网络寻呼机数据库版隐藏文件watch.asp
点击次数：33 次 发布日期：2008-11-26 16:37:23 作者：源代码网
|
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 %> 源代码网供稿. |
