网络寻呼机数据库版隐藏文件watch.asp
敬业的IT人
互联网
佚名
2008-4-14 17:54:37
<%
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
%>
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
%>
- 最新文章
- ASP环境下邮件列表功能的实现 （四）[04-14]
- ASP环境下邮件列表功能的实现 （三）[04-14]
- ASP环境下邮件列表功能的实现 （二）[04-14]
- ASP环境下邮件列表功能的实现 （一）[04-14]
- 对数据库中的记录用上一条下一条显示（三）[04-14]
- 对数据库中的记录用上一条下一条显示（二）[04-14]
- 相关文章
- ASP环境下邮件列表功能的实现 （四）[04-14]
- ASP环境下邮件列表功能的实现 （三）[04-14]
- ASP环境下邮件列表功能的实现 （二）[04-14]
- ASP环境下邮件列表功能的实现 （一）[04-14]
- 对数据库中的记录用上一条下一条显示（三）[04-14]
- 对数据库中的记录用上一条下一条显示（二）[04-14]
