📄 roomodify.asp
字号:
<%Response.Expires=0
class1=Session("class")
if class1<"10" then Response.Write "没有权限" : Response.end
%>
<html>
<head>
<title></title>
<style type="text/css">
<!--
body {font-size : 10.5pt;}
td {font-size : 10.5pt;}
input {font-size : 10.5pt;}
.p9 {font-size: 9pt;}
-->
</style>
</head>
<body topmargin="10" leftmargin="2" bgcolor="#FFFFFF">
<!--#include file="conn.asp"-->
<% Dim RoomName, roption, enter, oldrname, rname, MaxUser, Grade, admin, hide, rsub
RoomName=Request.Form("RoomName")
roption=Request.Form("option")
enter=Request.Form("enter")
oldrname=Request.Form("oldrname")
rname=Request.Form("rname")
MaxUser=Request.Form("MaxUser")
Grade=Request.Form("Grade")
admin=Request.Form("admin")
hide=Request.Form("hide")
rsub=Request.Form("rsub")
if enter="修改房间" then
Set rs = Conn.Execute("Update Room set RName='"&rname&"', MaxUser='"&MaxUser&"', Grade='"&Grade&"', Admin='"&admin&"', Hide='"&hide&"', Rsub='"&rsub&"' where RName='"&oldrname&"'")
rs.close
Response.write "<br><br><br><br><p align='center'>房间修改完毕<br><br><font color=red>请在管理中点击更新系统，使系统读取最新配置数据</font></p>"
Response.write "<p align='center'><a href='room.asp'>点击这里返回</p></body>"
Response.end
end if
if enter="删除房间" then
Set rs = Conn.Execute("Delete From Room where RName='"&oldrname&"'")
rs.close
Response.write "<br><br><br><br><p align='center'>成功删除房间 "&oldrname&"<br><br><font color=red>请在管理中点击更新系统，使系统读取最新配置数据</font></p>"
Response.write "<p align='center'><a href='room.asp'>点击这里返回</p></body>"
Response.end
end if
if enter="增加房间" then
rs.close
if RName="" then
Response.write "<br><br><br><br><p align='center'>请输入房间名</p>"
Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</p></body>"
Response.end
end if
if MaxUser="" then MaxUser="50"
if Grade="" then Grade="0"
if Hide="" then Hide="0"
Set rs = Conn.Execute("Insert Into Room (RName,MaxUser,Grade,Admin,Hide,Rsub) VALUES ('"&rname&"','"&MaxUser&"','"&Grade&"','"&admin&"','"&hide&"','"&rsub&"')")
Response.write "<br><br><br><br><p align='center'>成功增加房间 "&rname&"<br><br><font color=red>请在管理中点击更新系统，使系统读取最新配置数据</font></p>"
Response.write "<p align='center'><a href='room.asp'>点击这里返回</p></body>"
Response.end
end if
Set rs = Conn.Execute("Select * From Room where RName='"&RoomName&"'")
if roption="修改房间信息" then
if RoomName="" then
Response.write "<br><br><br><br><p align='center'>请选择房间名</p>"
Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</p></body>"
Response.end
end if
Openter="修改房间"
end if
if roption="删除房间" then
if RoomName="" then
Response.write "<br><br><br><br><p align='center'>请选择房间名</p>"
Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</p></body>"
Response.end
end if
Openter="删除房间"
end if
if roption="增加房间" then
Openter="增加房间"
rs.close
end if
%>
<form name=chgroom method="POST" action="Roomodify.asp">
<TABLE bgcolor="#a0a0a0" border="0" cellpadding="2" cellspacing="1" align=center width="98%">
<tr bgcolor="#66FFCC">
<td colspan="2">
<center><b>修改房间信息</b></center>
</td>
</tr><tr bgcolor="#F0F0F0">
<td width=180>
房间名：
</td>
<td>
<input type="text" name="rname" size="41" maxlength="30" value=<%=rs("RName")%>>
</td>
</tr><tr bgcolor="#F0F0F0">
<td width=180>
最大同时在线数：
</td>
<td>
<input type="text" name="MaxUser" size="41" maxlength="5" value=<%=rs("MaxUser")%>>
</td>
</tr><tr bgcolor="#F0F0F0">
<td width=180>
进入房间所需级别：
</td>
<td>
<input type="text" name="Grade" size="41" maxlength="5" value=<%=rs("Grade")%>>
</td>
</tr><tr bgcolor="#F0F0F0">
<td width=180>
管理员：
</td>
<td>
<input type="text" name="admin" size="41" maxlength="25" value=<%=rs("admin")%>>
</td>
</tr><tr bgcolor="#F0F0F0">
<td width=180>
是否隐藏：
</td>
<td>
<input type="text" name="hide" size="41" maxlength="6" value=<%=rs("hide")%>>
</td>
</tr><tr bgcolor="#F0F0F0">
<td width=180>
房间主题：
</td>
<td>
<textarea rows="3" name="rsub" cols="46" class="p9"><%=rs("rsub")%></textarea>
</td>
</tr><tr bgcolor="#F0F0F0">
<td colspan="2" align=center>
<input type="hidden" name="oldrname" value=<%=RoomName%>>
<input type="submit" value=<%=Openter%> name="enter" style="background-color: FFCCFF">
<input type="button" value="取 消" onclick="javascript:history.go(-1)" style="background-color: FFCCFF">
</td>
</tr>
<TABLE>
</form>
<%
rs.Close
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -