当前位置: 首页 > 图文教程 > 网络编程 > ASP > 网络寻呼机数据库版隐藏文件watch.asp

ASP
如何使用ASP产生象安装向导的主页
ADO如何取得数据库中表的字段信息之一
ADO如何取得数据库中表的字段信息之二
网页计数器的程序
实验Recordset.Movenext,Recordset.Previous,Recorset...等移动记录
不能ASP图像组件来生成图像的ASP计数器程序(一)
IIS5 + ADO 2.5新先睹为快技术(一)
IIS5 + ADO 2.5新先睹为快技术(二)
如何使用 Microsoft Access 和 Active Server Pages 加密你的页面
WINDOWS 2000搭載ASP3.0和IIS5.0
IIS 5.0新功能
网络开发之编程技巧之一(有效验证用户的登录)
如何使用ASP在自己的网站建立投票机制(一)
如何使用ASP在自己的网站建立投票机制(二)
组件对象开发Web应用的实例分析
如何实现动态添加Html文档中Form项
一个BBS的源代码(一)
一个BBS的源代码(二)
一个BBS的源代码(三)
一个BBS的源代码(四)

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 116 ::
收藏到网摘: n/a

  <%
    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

%>