📄 exit.asp
字号:
<%
if session("name")="" then
Response.Write "<script language=JavaScript>" & chr(13) & "alert('非法用户!');" & "history.back()" & "</script>"
Response.End
else
if session("name")="lyf" then
Response.Write "<script language=JavaScript>" & chr(13) & "alert('感谢您的光临,欢迎下次再来!!');" &"window.close()"&"</script>"
else
dim sql
dim rs
name=session("name")
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="delete * from activetable where name='"&name&"'"
Response.Write sql
rs.Open sql,conn,1,1
set rs=nothing
session("name")=""
Response.Write "<script language=JavaScript>" & chr(13) & "alert('感谢您的光临,欢迎下次再来!!');" & "window.close();" & "</script>"
end if
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -