📄 online.asp
字号:
<%
if session("loginstatus")<>"logined" or session("userid")="" or session("grade")="" then
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "top.window.location.href='index.asp?ntime="&ntime&"';"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
response.end
end if
%>
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<%
if request.form("submit")="提交" then
sql="select top 1 * from chatsubject order by content asc,puttime asc"
rs.open sql,conn,0,3
rs("content")=trim(request.form("content"))
rs("puttime")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
response.end
end if
Randomize
sql="select content from chatsubject where content<>'' order by num asc"
set rs2=conn.execute(sql)
if not (rs2.eof and rs2.bof) then
chatsubject=rs2.getrows
maxnum=ubound(chatsubject,2)+1
nowannounce=chatsubject(0,fix(maxnum*rnd))
else
nowannounce="请随便聊，并相互尊重。本聊天室由 netasp 设计制作，下载最新版本请到<a href=http://www.98062.com target=_blank>www.98062.com</a>。"
end if
set rs2=server.createobject("adodb.recordset")
sql="select * from userinfo where logintime<#"&dateadd("s",(0-sessionout),now())&"# and isonline=true"
rs.open sql,conn,0,3
systeminfo=rs.recordcount
do while not rs.eof
sql="select * from chatinfo order by puttime asc"
rs2.open sql,conn,0,3
rs2("userid")=""
rs2("sayto")=""
rs2("saycontent")="<span class=emtxt>"&rs("userid")&"</span>悄悄的离开了聊天室"
rs2("puttime")=dateadd("s",sessionout,rs("logintime"))
rs2("ispublic")=true
rs2.update
rs2.close
rs("isonline")=false
rs.update
rs.movenext
loop
set rs2=nothing
rs.close
response.write "<html>"&vbcrlf
response.write "<head>"&vbcrlf
response.write "<meta http-equiv='refresh' content='80;URL="&selfname&"?ntime="&ntime&"'>"&vbcrlf
response.write "<meta http-equiv='Content-Type' content='text/html;charset=gb2312'>"&vbcrlf
response.write "<title>"&nowannounce&"</title>"&vbcrlf
response.write "<style type='text/css'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "input,body,table{font-size:12px}"&vbcrlf
response.write "body{color:#eeeeee;margin:12px 0px 12px 6px;font-weight:600;width:120px;background:#00aead url(images/onlinebg.jpg)}"&vbcrlf
response.write "form{margin:0;padding:0}"&vbcrlf
response.write "a{color:#000090;text-decoration:none}"&vbcrlf
response.write "a:hover{color:#ff3333;text-decoration:underline}"&vbcrlf
response.write ".self{color:#cc6666}"&vbcrlf
response.write ".userlist{cursor:hand}"&vbcrlf
response.write "-->"&vbcrlf
response.write "</style>"&vbcrlf
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "function setobj(obj)"&vbcrlf
response.write "{"&vbcrlf
response.write "for (i=1; i<parent.chatform.document.forms[0].object.length; i++)"&vbcrlf
response.write "{"&vbcrlf
response.write " var iscontinue=true;"&vbcrlf
response.write " if (parent.chatform.document.forms[0].object.options[i].value==obj)"&vbcrlf
response.write " {"&vbcrlf
response.write " parent.chatform.document.forms[0].object.selectedIndex = i;"&vbcrlf
response.write " iscontinue=false;"&vbcrlf
response.write " break;"&vbcrlf
response.write " }"&vbcrlf
response.write "}"&vbcrlf
response.write "if (iscontinue==true)"&vbcrlf
response.write "{"&vbcrlf
response.write " var oOption = parent.chatform.document.createElement('OPTION');"&vbcrlf
response.write " parent.chatform.document.forms[0].object.add(oOption, 1);"&vbcrlf
response.write " parent.chatform.document.forms[0].object.options[1].value=obj;"&vbcrlf
response.write " parent.chatform.document.forms[0].object.options[1].text=obj;"&vbcrlf
response.write " parent.chatform.document.forms[0].object.selectedIndex=1;"&vbcrlf
response.write " parent.chatform.document.forms[0].putwords_temp.focus();"&vbcrlf
response.write "}"&vbcrlf
response.write "}"&vbcrlf
response.write "function gotop()"&vbcrlf
response.write "{"&vbcrlf
response.write " if (window==top)"&vbcrlf
response.write " {"&vbcrlf
response.write " top.location.href='chat.asp';"&vbcrlf
response.write " }"&vbcrlf
response.write "}"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
response.write "</head>"&vbcrlf
response.write "<body onload='gotop()'>"&vbcrlf
sql="select usersex,userid from userinfo where logintime>#"&dateadd("s",(0-sessionout),now())&"# and isonline=true"
rs.open sql,conn,0,1
if rs.bof and rs.eof then
response.write "<span style='color:#900000;font-weight:600'>在线名单:</span>（0人）<br><br>"&vbcrlf
rs.close
set rs=nothing
conn.close
set conn=nothing
else
onlinedata=rs.getrows()
rs.close
set rs=nothing
conn.close
set conn=nothing
onlinecount=ubound(onlinedata,2)
response.write "<span style='color:#900000;font-weight:600'>在线名单:</span>（"&onlinecount+1&"人）<br><br>"&vbcrlf
for i=0 to onlinecount
response.write "<span class='sex'>"&onlinedata(0,i)
if session("userid")=onlinedata(1,i) then
response.write "</span>：<span class='self' onclick=""setobj('"&onlinedata(1,i)&"')"">"&onlinedata(1,i)&"</span><br>"&vbcrlf
else
response.write "</span>：<span class='userlist' onclick=""setobj('"&onlinedata(1,i)&"')"">"&onlinedata(1,i)&"</span><br>"&vbcrlf
end if
next
end if
%>
<!--#include file="incfoot.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -