📄 newroom.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="config.asp" -->
<html>
<head>
<title>Create New 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">
创建新聊天室.
<%
'get any errors
varError = request.querystring("Error")
if varError = "SameName" then
response.write "<br><span style='color:red'>!! There is already a room with that name, please choose another !!"
end if
%>
<form name="form1" method="post" action="newroom.asp">
<table border="0" cellspacing="0" cellpadding="3">
<tr>
<td>聊天室名称: </td>
<td>
<input type="text" name="txtRoomName" class="input">
</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
'获得新建的名称
varRoomName = request("txtRoomName")
varDate = now()
'格式化当前时间
varTime = FormatDateTime(varDate, 4)
'查看当前已经存在该聊天室
call openDB
rs.open "SELECT * FROM ROOMS Where Name = '" & varRoomName & "';", conn, 0, 1
if NOT rs.EOF then
'如果存在
response.redirect "newroom.asp?Error=SameName"
end if
call closeDB
'
'将房间名称保存
call writeDB("INSERT INTO ROOMS(Name) VALUES('" & varRoomName & "');")
'获得房间编号
call openDB
rs.open "SELECT RoomID FROM ROOMS WHERE Name = '" & varRoomName & "';", conn, 0, 1
varRoomID = rs("RoomID")
call closeDB
'在离开当前房间之前，要向其他用户发送“Has Moved Rooms”文字，提示要离开
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变量中
session.contents("RoomID") = varRoomID
'然后更改当前用户到新创建的房间中
call writeDB("UPDATE USERS SET RoomID = '" & varRoomID & "' WHERE UserID = " & session.contents("UserID") & ";")
'向新创建房间公共信息中添加“Has Just Created This Room”信息，提示谁创建了当前用户
call writeDB("INSERT INTO MESSAGES(UserID, RoomID, Message, Style, Colour, [Time]) VALUES(" & session.contents("UserID") & ", '" & session.contents("RoomID") & "', 'Has Just Created This Room', 'i', 'red', '" & varTime & "');")
%>
<script language="JavaScript">
window.close()
</script>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -