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

核心提示：<% username=session("username")if username<>"" thenSet conn=server.createobject("adodb.connection")PRovider = "Provi

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

%>