网络寻呼机数据库版隐藏文件watch.asp

2019-11-18 20:25:03

字体：大中小

来源：转载

供稿：网友

<%
    username=session("username")
    if username<>"" then

    Set conn=server.createobject("adodb.connection")
    PRovider = "Provider=Microsoft.Jet.OLEDB.4.0;"
    DBPath = "Data Source=" & Server.MapPath( "webuser.mdb" )

    conn.Open Provider & DBPath

    sql="select toname,isread,adddate from talks where toname='"& username &"'and isread=0 order by adddate"
    set rs=conn.execute(sql)
    if not rs.eof then
    response.write "<script>window.open('showmessage.asp','','width=580,height=400,scrollbars=yes')</script>"
    end if
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing

    end if

%>

上一篇：网络寻呼机数据库版总结

下一篇：网络寻呼机数据库版删除选中的消息deletemessage.asp