📄 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 "err.asp?kind=20"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
%>
<!--#INCLUDE FILE="config.asp" -->
<html>
<head>
<script Language=JavaScript>
if(window==window.top){top.location.href="chat.asp?fp=1";}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
body{SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #eeeeee;
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow}
a:active { font-size: 10pt; color: <%=zzbird_chattext%> ;}
a:link { font-size: 10pt; color: <%=zzbird_chattext%> ;}
a:visited { color: <%=zzbird_chattext%>; font-size: 10pt ;}
a { color: <%=zzbird_chattext%>; font-size: 10pt ;}
a:hover { color: <%=zzbird_chattext%>; font-size: 10pt ;}
table { color: <%=zzbird_chattext%>; font-size: 10pt ;}
body { color: <%=zzbird_chattext%>; font-size: 10pt ;}
input { border-style: ridge; border-width: 1; background-color:
<%=zzbird_butbg%> ;color: <%=zzbird_buttext%>;CURSOR: hand; }
select { font-size: 9pt ;color: <%=zzbird_selecttext%>; background-color: <%=zzbird_selectbg%>}
-->
</style>
<script language="JavaScript">
function change(name){if(confirm("确认：你真的要切换到“"+name+"”？")){return true;}else{return false;}}
function seeinfo(id)
{window.open("roomotherinfo.asp?id="+id,"roominfo","height=305,width=460,left=150,top=60,toolbar=no,scrollbars=yes,resizable=yes");}
function ctlent(eventobject)
{if(event.ctrlKey)
{self.event.returnValue=false}
}
</script>
<title>状态显示</title>
</head>
<body onkeydown="ctlent()" oncontextmenu=self.event.returnValue=false bgcolor="<%=zzbird_chatbg%>" <%if zzbird_chatbgpic<>"" then%>background="<%=zzbird_chatbgpic%>" <%end if%> topmargin="6" leftmargin="6">
<div align="center" class='bird'><span style="font-size: 11.5pt">房间列表</span></div><hr color="#000000" size="1">
<br>
<%roominfo=Application("roominfo")
for j=0 to ubound(roominfo)
howmany=ubound(Application("online" & roominfo(j,0)),1)
%>
<form class='bird' method="post" action="changeroom.asp" name="room" onsubmit="return(change('<%=roominfo(j,1)%>'));">
<input type="hidden" name="id" value="<%=roominfo(j,0)%>"><img border="0" src="images/room.gif" width="16" height="16">【<font color="#FFC488"><%=roominfo(j,1)%></font>】<%
if info(6)<>roominfo(j,1) then
if info(1)<int(roominfo(j,4)) or howmany>=(roominfo(j,2)) then
Response.Write "<input type='submit' value='GO' disabled>"
else
Response.Write "<input type='submit' value='GO'>"
end if
end if
%>
<select size="1" name="D1" style="width: 125">
<Script Language="JavaScript">
v = "<%=Application("zzbird_name_" & roominfo(j,0))%>";
if(v!="")
{
v = v.substring(1,v.length-1);
lis = v.split(",,")
document.write("<option selected>" + (lis.length) + "人在线</option>");
for(t=0;t<lis.length;t++)
{document.write("<option>" + lis[t] + "</option>");}
}
else
{
document.write("<option selected>0人在线</option>");
}
</Script>
</select>
限制:<font color="#FFFF00"> <%=roominfo(j,2)%> </font>人,<font color="#FFFF00"> <%=roominfo(j,4)%> </font>级<br>
<a href="javascript:seeinfo(<%=roominfo(j,0)%>)">[其他信息]</a></form>
<%next%>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -