📄 read.asp

📁 聊天室源码呵呵你好用~~~~~~2.0版本

💻 ASP

字号:

<%Response.Expires=0
username=Session("a_c_user_name")
if username="" or Session("a_c_user_outchat")=1 then
 Response.Write "对不起，您尚未进入聊天室！"
 Response.End
end if
Application.Lock
icqdata=Application("a_c_icq_data")
icqline=Application("a_c_icq_line")
Dim show(),newdata()
x=0
n=0
for i=1 to icqline step 4
 if username=icqdata(i) then
  Redim Preserve show(x+1),show(x+2),show(x+3)
  show(x+1)=icqdata(i+1)
  show(x+2)=icqdata(i+2)
  show(x+3)=icqdata(i+3)
  x=x+3
  Application("a_c_icq_line")=Application("a_c_icq_line")-4
  if Application("a_c_icq_line")<0 then Application("a_c_icq_line")=0
 else
  Redim Preserve newdata(n+1),newdata(n+2),newdata(n+3),newdata(n+4)
  newdata(n+1)=icqdata(i)
  newdata(n+2)=icqdata(i+1)
  newdata(n+3)=icqdata(i+2)
  newdata(n+4)=icqdata(i+3)
  n=n+4
 end if
next
Application("a_c_icq_data")=newdata
Application.Unlock%><html>
<head>
<title><%=username%>，聊友在呼叫你</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 9pt; line-height: 150%}
td {font-size: 9pt; line-height: 150%}
a:link {color: #0000FF; text-decoration: none;}
a:hover {color: #FF0000; text-decoration: underline;}
a:visited {color: #0000FF; text-decoration: none;}
a:active {text-decoration: none;}
-->
</style>
</head>
<body bgcolor="#EFC684">
<div align=center><font style="font-size:12pt"><%=Application("a_c_chatroom_name")%> Web ICQ 1.0</font><br>
共收到 <font color="#CC0000"><b><%=x/3%></b></font> 条消息<br>
（点击消息前的姓名即可进行回复）</div>
<table border="0" align="center" cellpadding="2">
<tr bgcolor="#E0E0E0"><td width="66">姓名</td><td width="120">时间</td><td>消息</td></tr>
<%for i=1 to x step 3%><tr bgcolor="#E0E0E0"><td width="66"><a href="#" onclick="javascript:window.open('send.asp?who=<%=Server.URLEncode(show(i))%>','dxjhqticqsend','Status=no,scrollbars=no,resizable=no,width=240,height=210')"><%=show(i)%></a></td><td width="120"><%=show(i+1)%></td><td><%=show(i+2)%></td></tr><%next%>
</table></body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -