?? exit.asp
字號:
<body background="cittext.gif" text="#993333">
<%
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 + -