byebye.asp

来自「聊天室」· ASP 代码 · 共 41 行

ASP
41 行
字号 
<html>
<head>
<meta http-equiv="refresh" content="1;url=default.asp">
<title>聊天室程序</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<body >
<%
if session("myname")<>"" then
set newconn=server.CreateObject ("ADODB.Connection")
newconn.ConnectionString ="ChatRoom"
newconn.Open 

newsql1="delete from UserOnLine where UserID='" & session("myname") & "'"
newsql2="Update RoomInfo set HowManyUsers=HowManyUsers-1 where RoomName='" & session("myroom") & "'"

newconn.Execute (newsql1)
newconn.Execute (newsql2)

mysql="select UserID from UserOnLine where RoomName='" & session("myroom") & "'"
set newrecord=newconn.Execute (mysql)
Application.Lock 
do while not newrecord.eof
	application(newrecord(0))="<br><font color=purple>" & session("nickname") & "大摇大摆地走了!(请刷新)<font size=1 color=blue>(" & time() & ")</font><br><br>" & application(newrecord(0))
	newrecord.movenext
loop
application(session("myname"))=""
Application.UnLock 

newconn.Close 
set newconn=nothing
session.Abandon 
'Response.Redirect "default.asp"
end if

%>

<p align="center"><font color="#000000"><strong><big><big><big>欢迎再来聊天,结识更多的朋友!</big></big></big></strong></font></p>

</body>
</html>

byebye.asp - 源码说明

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

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

⌨️ 快捷键说明

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