clearpublic.asp
来自「聊天功能的实现」· ASP 代码 · 共 14 行
ASP
14 行
<%Response.Expires=0
class1=Session("class")
if class1<8 then Response.Write "没有权限" : Response.end
%>
<!--#include file="conn.asp"-->
<%
Set rs = Conn.Execute( "delete from public1 where DateDiff('d',time1,now)>7")
rs.Close
Response.Write "<title></title>"
Response.write "<br><br><br><br><body bgcolor=#FFFFFF><p align='center'>已清理完毕</p>"
Response.write "<p align='center'><a href='public.asp'>返回</a><BR><br>"
Response.end
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?