📄 f3.asp

📁 聊天室源码呵呵你好用~~~~~~2.0版本
💻 ASP
字号:
<%@ LANGUAGE=VBScript%>
<%Response.Buffer=true
Response.Expires=0
username=Session("a_c_user_name")
if username="" or Session("a_c_user_outchat")=1 then
 Response.Redirect "close.asp"
end if
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj= n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
savetime=Session("a_c_user_savetime")
if DateDiff("n",savetime,sj)>=15 then Response.Redirect "usersave.asp"
dim show()
Application.Lock
input=Application("a_c_user_online")
inthechat=Application("a_c_user_inthechat")
for i=1 to inthechat*4 step 4
 p=1
 ptemp="999999999999999"
 for j=1 to inthechat*4 step 4
  if ptemp>input(j+1) then
   ptemp=input(j+1)
   p=j
  end if
 next
 Redim preserve show(i),show(i+1),show(i+2),show(i+3)
 show(i)=input(p)
 show(i+1)=input(p+1)
 show(i+2)=input(p+2)
 show(i+3)=input(p+3)
 input(p+1)="999999999999999"
next
Application.UnLock%><html>
<head>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<meta http-equiv=refresh content='100;url=f3.asp'>
<title>在线用户列表</title>
<style type='text/css'>
<!--
body {line-height:150%;font-size:12pt;}
td {line-height:170%;font-size:10.5pt;}
.p9 {line-height:120%;font-size:9pt;}
A {color:white;text-decoration:none;}
A:Hover {color:black;text-decoration:none;}
A:Active {color:black}
-->
</style>
<script language="JavaScript">
<!--
function sw(list){
 parent.f2.document.forms[0].towho.options[0].value=list;
 parent.f2.document.forms[0].towho.options[0].text=list;
 parent.f2.document.forms[0].saystemp.focus();
}
//-->
</script>
</head>
<body bgcolor=008888 background="read/bg.gif" bgproperties="fixed" style="margin-left: 10px; margin-right: 5px; margin-top: 10px">
<div align="center"><font color="#FFFFFF" style="font-size:10.5pt"><%=Application("a_c_chatroom_name")%></font></div>
<center>
<hr size=1 color=FFFF00>
<font color=FF0000><b><%=inthechat%></b></font><font color=0000FF><span class=p9>(<%=Application("a_c_user_active")%>)</span>人在线<br></font>
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
<td align=left>
<a href="javascript:sw('大家');" onMouseOver="window.status='选择对话或动作对象为：大家'" onMouseOut="window.status=''">大家</a><br><%for j=1 to inthechat*4 step 4%>
<a href="javascript:sw('<%=show(j)%>');" onMouseOver="window.status='选择对话或动作对象为：<%=show(j)%>'" onMouseOut="window.status=''"><%=show(j)%></a><%if show(j+3)<>"" then Response.Write "<font color=FFFF00 class=p9>" & show(j+3) & "</font>"%><br><%next%>
</td></tr></table>
</center>
</body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -