最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
网络寻呼机数据库版隐藏文件watch.asp
时间：2022-07-02 23:27:26 编辑：袖梨 来源：一聚教程网
<%
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 ""
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 ""
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
相关文章
- 《QQ》情侣空间历史情侣查看方法 08-02
- win11系统防火墙在哪里关闭？win11关闭防火墙和杀毒软件方法 08-02
- 澳大利亚证券投资委员会警告Bitget在澳提供“未经许可”的高杠杆加密货币期货产品 08-02
- 《怪兽大联盟》开荒推图阵容推荐 08-02
- win11自带的应用商店不能用为什么 win11无法打开应用商店如何解决 08-02
- 《QQ》资料卡背景封面设置方法 08-02