exit.asp

来自「聊天室的源代码.利用ASP技术制作」· ASP 代码 · 共 23 行

ASP
23 行
字号 
<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
%>

exit.asp - 源码说明

本页面展示了「聊天室的源代码.利用ASP技术制作」中的 exit.asp 源码文件，采用 ASP 编程语言编写，共 23 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?