明辉站/网站教程/内容

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

网站教程2024-06-17 阅读
[摘要]<% username=session("username") if username<>"" then Set conn=server.createobject("adodb.connection"...
<%
    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

%>




……

相关阅读