📄 userlist.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="10">
<title>用户列表</title>
<script>
function overtd(td){
td.style.border="1 outset gray";
}
function ontd(td){
td.style.border="0 none black";
}
function downtd(td){
td.style.border="2 inset white";
}
function openURL(URL){
window.open(URL,'newwindow','menubar=0,toolbar=0,location=no,status=no,directories=0,scrollbars=1,width=400,height=300');
}
</script>
<style>
<!--
.hand { cursor: hand; font-size: 12px }
-->
</style>
<base target="Main">
</head>
<body leftmargin="0" bgcolor="#00CCff" topmargin="0" marginwidth="0" marginheight="0">
<div align="left">
<table border=0 cellspacing="0" width="100" cellpadding="0" bgcolor="#00CCff" height="100%" align="left" >
<tr>
<td width="100%" style="border:0 inset white" valign="top">
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td class=hand onmousedown="downtd(this);" onmouseout="ontd(this);" onmouseover="overtd(this);" onmouseup="overtd(this);" height="20" valign="top">
<p align="center">
<%
If Application("UserListStr")="" Then Application("UserListstr")="00大家，"
UserListStr= Application("UserListStr")
UserListStr=Left(UserListStr,len(UserListStr)-1)
User=Split(UserListStr,",")
Application("UserCount")=ubound(User)
Response.Write Application("UserCount")&"人在线"
%></td>
</tr>
<%for i = 0 to ubound(User)
PicURL=Left(User(i),2)
UserName=Replace(User(i),PicURL,"")
PicURL=PicURL&".gif"
If User(i)=Session("NickName") Then
%>
<tr>
<td class=hand onclick="javascript:openURL('like.asp');" onmousedown="downtd(this);" onmouseout="ontd(this);" onmouseover="overtd(this);" onmouseup="overtd(this);" height="25" valign="middle" align="left">
<p align="left"><img border="0" src="images/pic/<%=PicURL%>" width="16" height="16" ><font color=#660099>
<%=UserName%></font></td>
</tr>
<%Else%>
<tr>
<td class=hand onclick="javascript:parent.Input.selectwho('<%=UserName%>');" onmousedown="downtd(this);" onmouseout="ontd(this);" onmouseover="overtd(this);" onmouseup="overtd(this);" height="25" valign="middle" align="left">
<p align="left"><img border="0" src="images/pic/<%=PicURL%>" width="16" height="16" >
<%=UserName%></td>
</tr>
<%End If
next
%>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -