📄 man_room.asp
字号:
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
if not IsArray(Session("info")) then Response.Redirect "err1.asp?kind=01"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
gradeinfo=Application("gradeinfo")
if gradeinfo(info(1),14)<>true then Response.Redirect "err.asp?kind=83"
roominfo=Application("roominfo")
Function lenp(v)
if len(v)<50 then
Response.Write v
else
Response.Write Left(v,50)&"..."
end if
End Function
%>
<!--#INCLUDE FILE="config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>房间信息</title>
<style>
<!--
a:active { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
a:link { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
a:visited { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
a { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
body{SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #eeeeee;
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow;
font-size: 9pt; color: <%=zzbird_chattext%> }
.but { border-style: ridge; border-width: 1; background-color: <%=zzbird_butbg%> ;color: <%=zzbird_buttext%>;CURSOR: hand; }
.in { font-size: 9.5pt ;color: <%=zzbird_selecttext%>; background-color: <%=zzbird_selectbg%>}
table { font-size: 10pt }
-->
</style>
<Script Language="JavaScript">
var exeword;
function edit(id)
{
exeword="document.man.v1.value=v1_" + id + ".innerHTML;"
eval(exeword);
exeword="document.man.v2.value=v2_" + id + ".innerHTML;"
eval(exeword);
exeword="document.man.v3.value=v3_" + id + ".innerHTML;"
eval(exeword);
exeword="document.man.v4.value=v4_" + id + ".innerHTML;"
eval(exeword);
exeword="document.man.v5.value=v5_" + id + ".innerHTML;"
eval(exeword);
}
function roomdel(id,name)
{
if(confirm("你真的要删除房间“" + name + "”吗？\r\n\r\n注意：如果该房间内还有聊友，他们将仍然可以在该房间继续聊天，但该房间其实已经删除。因此，聊友只能出去，不能进来。直到所有人都出去了，该房间才算真正完全删除。"))
{
location.href="man_roomdel.asp?id=" + id;
}}
function check()
{
if(confirm("确定提交？"))
{return true;}
else
{return false;}
}
</Script>
</head>
<body bgcolor="<%=zzbird_chatbg%>" <%if zzbird_chatbgpic<>"" then%> background="<%=zzbird_chatbgpic%>" <%end if%> text="<%=zzbird_chattext%>" style="font-size: 10pt" topmargin="6" leftmargin="6">
<div align="center">
房间管理
</div>
<hr>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#EAEAEA" width="100%" id="AutoNumber1" height="63">
<tr>
<td width="16%" align="center" bgcolor="#EAEAEA" style="color: <%=zzbird_chatbg%>" bordercolor="<%=zzbird_chatbg%>" height="13">房间名称</td>
<td width="11%" align="center" bgcolor="#EAEAEA" style="color: <%=zzbird_chatbg%>" bordercolor="<%=zzbird_chatbg%>" height="13">最大在线</td>
<td width="16%" align="center" bgcolor="#EAEAEA" style="color: <%=zzbird_chatbg%>" bordercolor="<%=zzbird_chatbg%>" height="13">机器人名</td>
<td width="11%" align="center" bgcolor="#EAEAEA" style="color: <%=zzbird_chatbg%>" bordercolor="<%=zzbird_chatbg%>" height="13">进入级别</td>
<td width="39%" align="center" bgcolor="#EAEAEA" style="color: <%=zzbird_chatbg%>" bordercolor="<%=zzbird_chatbg%>" height="13">房间简介</td>
<td width="7%" align="center" bgcolor="#EAEAEA" style="color: <%=zzbird_chatbg%>" bordercolor="<%=zzbird_chatbg%>" height="13">管理</td>
</tr>
<%for i=0 to ubound(roominfo,1)%>
<tr>
<td width="16%" height="49" id="v1_<%=i%>"><%=roominfo(i,1)%></td>
<td width="11%" height="49" id="v2_<%=i%>" align="center"><%=roominfo(i,2)%></td>
<td width="16%" height="49" id="v3_<%=i%>"><%=roominfo(i,3)%></td>
<td width="11%" height="49" id="v4_<%=i%>" align="center"><%=roominfo(i,4)%></td>
<td width="39%" height="49" id="v5_<%=i%>"><%lenp(roominfo(i,5))%></td>
<td width="7%" height="49" align="center"><a href="javascript:edit('<%=i%>')">更改</a><br>
<a href="javascript:roomdel(<%=roominfo(i,0)%>,'<%=roominfo(i,1)%>')">删除</a></td>
</tr>
<%next%>
</table>
</center>
</div>
<hr>
增加/修改一个房间：<br>
注：如果房间名称和现有名称重合，则对现有房间进行更改操作。<br>
如果是修改信息，则已经在该房间的聊友需要下次登陆才能看到新的参数。<div align="center">
<form method="POST" name="man" action="man_roomok.asp" onsubmit="return(check())">
房间名称：<input type="text" name="v1" size="17" class="in"> 最大在线：<input type="text" name="v2" size="8" class="in" maxlength="4">
<br>
机器人名：<input type="text" name="v3" size="17" class="in"> 进入级别：<input type="text" name="v4" size="8" class="in" maxlength="3">
<br>
房间简介：<textarea rows="3" name="v5" cols="38" class="in"></textarea>
<br>
<input type="submit" value=" 提 交 " name="B1" class="but"> <input type="reset" value=" 重 置 " name="B2" class="but">
<input type="button" value=" 关 闭 " class="but" onclick="window.close()"></form>
</div>
<div align="center">
</div>
<div align="center">
</div>
<div align="right">
<a href="http://aspxer.com/go.aspx?action=nowchat" target="_blank"><font style="font-size:8.5pt" color="#EAEAEA">NowChat 2.2 - Powered by 喳喳鸟</font></a>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -