📄 chitchat.asp

📁 聊天室源码呵呵你好用~~~~~~2.0版本
💻 ASP
字号:
<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
username=Session("a_c_user_name")
userip=Session("a_c_user_ip")
useroutchat=Session("a_c_user_outchat")
if username="" then Response.Redirect "close.asp"
if useroutchat=1 then
Application.Lock
inthechat=Application("a_c_user_inthechat")
useronline=Application("a_c_user_online")
for i=1 to inthechat*4 step 4
 if username=useronline(i) then
   Application.UnLock
   Response.Redirect "close.asp"
 end if
next
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
t=s & ":" & f & ":" & m
Application("a_c_user_inthechat")=Application("a_c_user_inthechat")+1
Redim Preserve useronline(inthechat*4+1),useronline(inthechat*4+2),useronline(inthechat*4+3),useronline(inthechat*4+4)
useronline(inthechat*4+1)=username
useronline(inthechat*4+2)=userip
useronline(inthechat*4+3)=sj
Session("a_c_user_savetime")=sj
useronline(inthechat*4+4)=Session("a_c_user_gender")
Application("a_c_user_online")=useronline
Dim all_saysdata(400)
saysdata=Application("a_c_all_saysdata")
all_saysdata(1) = 1
all_saysdata(2) = 0
all_saysdata(3) = username
all_saysdata(4) = "大家"
all_saysdata(5) = "660099"
all_saysdata(6) = "660099"
all_saysdata(7) = "对"
all_saysdata(8) = "<font color=000000>【聊吧公告】</font><font color=008800>在清脆的笑声中<a href=javascript:sw('" & username & "')>" & username & "</a>推门而入。</font><font class=p9>(" & t & ")</font>"
for j=9 to 400
 all_saysdata(j)=saysdata(j-8)
next
Application("a_c_all_saysdata") = all_saysdata
Application.UnLock
Session("a_c_user_lasttime")=sj
End if
Session("a_c_user_outchat")=0%><html>
<head>
<meta http-equiv="Content-Type" content='text/html; charset=gb2312'>
<title><%=Application("a_c_chatroom_name")%></title>
<frameset cols='*,140' border=0 frameborder=0 framespacing=>
 <frameset rows='*,80' border=0 frameborder=0 framespacing=0>
  <frame src='f1.asp' name='f1'>
  <frame src='f2.asp' name='f2' scrolling='no'>
 </frameset>
 <frameset rows='*,146' border=0 frameborder=0 framespacing=0>
  <frame src='f3.asp' name='f3' marginwidth=0 scrolling='auto'>
  <frame src='f4.asp' name='f4' marginwidth=0 scrolling='no'>
 </frameset>
</frameset>
</head>
</html>
⌨️ 快捷键说明

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