📄 f3.asp
字号:
<!--#Include file="Config.asp"-->
<!--#INCLUDE FILE="function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="refresh" content="<%=ReOnLine%> ">
<link rel="stylesheet" href="all.css">
<script language="JavaScript">
<!--
function selectwho(list){
parent.input.document.forms[0].towho.options[0].value=list;
parent.input.document.forms[0].towho.options[0].text=list;
}
//-->
</script>
<base target="_self">
</head>
<body background="images/bg.gif" text="#000000" topmargin="0" leftmargin="0" link="#000000" vlink="#000000" style="border-top: 2 solid #DDDDDD">
<TABLE width="90%" border="0" align="center">
<TR align="center">
<TD>在线人员</TD>
</TR>
<TR>
<TD><HR></TD>
</TR>
<TR>
<TD>
<a href="javascript:selectwho('大家');">大家</a><br>
<%
'从数组中获取有关人员
Dim arrayUsername,chatroom
chatroom=Session("chatroom")
arrayUsername=Application(chatroom & "_arrayUserName")
For I=0 To Ubound(arrayUserName)
%>
<a href="#" onClick="javascript:selectwho('<%=arrayUserName(I,1)%>');"><%=arrayUserName(I,1)%></a><br>
<%
Next
%>
</TD>
</TR>
</TABLE>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -