📄 changeroom.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="config.asp" -->
<html>
<head>
<title>Change Room</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="styles.css" rel="stylesheet" type="text/css">
</head>
<body class="topbar">
从聊天室列表中选择一个聊天室.
<%
'从数据库中读取当前所有聊天室
call openDB
varSQL = "SELECT * FROM ROOMS;"
rs.Open varSQL, conn
if rs.EOF then
'如果没有聊天室
varRooms = "<option value='0'>There are no rooms</option>"
else
'将所有房间显示在下拉列表框中
rs.movefirst
do
varRoomID = rs("RoomID")
varName = rs("Name")
varRooms = varRooms & "<option value='" & varRoomID & "'>" & varName & "</option>"
rs.movenext
loop until rs.EOF
end if
call closeDB
%>
<form name="form1" method="post" action="changeroom.asp">
<table border="0" cellspacing="0" cellpadding="3">
<tr>
<td>聊天室名称: </td>
<td>
<select name="sltRoom" class="input"><%=varRooms%></select>
</td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" name="Submit" value="更换" class="inputbtn">
</td>
</tr>
</table>
<Input type="hidden" name="login" value="Yes">
</form>
<%
'如果要更改聊天室
if request.form("login") = "Yes" then
'获得选择的聊天室
varRoomID = request("sltRoom")
varDate = now()
'格式化当前时间
varTime = FormatDateTime(varDate, 4)
'向原来的聊天室发送该用户离开的消息.
call writeDB("INSERT INTO MESSAGES(UserID, RoomID, Message, Style, Colour, [Time]) VALUES(" & session.contents("UserID") & ", '" & session.contents("RoomID") & "', 'Has Moved Rooms', 'i', 'red', '" & varTime & "');")
'更改用户的聊天室编号
session.contents("RoomID") = varRoomID
'更改用户的状态
call writeDB("UPDATE USERS SET RoomID = '" & varRoomID & "' WHERE UserID = " & session.contents("UserID") & ";")
'向新聊天室发送登录的消息.
call writeDB("INSERT INTO MESSAGES(UserID, RoomID, Message, Style, Colour, [Time]) VALUES(" & session.contents("UserID") & ", '" & session.contents("RoomID") & "', 'Has Just Entered This Room', 'i', 'red', '" & varTime & "');")
%>
<script language="JavaScript">
//close this popup
window.close()
</script>
<%
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -