📄 chatcmd.asp
字号:
if rs.bof and rs.eof then
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "alert('对不起，用户当前不在线或不存在!');"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
elseif session("grade")<=rs("grade") then
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "alert('踢人失败，你的权限不足!');"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
else
rs("isonline")=false
rs.update
rs.close
sql="select * from chatinfo order by puttime asc"
rs.open sql,conn,0,3
rs("userid")=""
rs("sayto")=""
rs("saycontent")="<span class=emtxt>"&keystr&"</span>被请出了聊天室，欢迎下次再来！"
rs("puttime")=now()
rs("ispublic")=true
rs.update
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "opener.top.main.window.location.href='main.asp?ntime="&ntime&"';"&vbcrlf
response.write "opener.top.online.window.location.href='online.asp?ntime="&ntime&"';"&vbcrlf
response.write "alert('踢人成功!');"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
end if
rs.close
elseif act="view" and trim(keystr)<>"" then
sql="select * from userinfo where userid='"&trim(keystr)&"'"
rs.open sql,conn,0,1
if rs.bof and rs.eof then
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "alert('查看用户信息失败，你要查看的用户不存在!');"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
else
response.write "<html>"&vbcrlf
response.write "<head>"&vbcrlf
response.write "<meta http-equiv='Content-Type' content='text/html;charset=gb2312'>"&vbcrlf
response.write "<title>查看用户 "&keystr&" 的聊天信息</title>"&vbcrlf
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "self.resizeTo(400,320);"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
response.write "<style type='text/css'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "body{margin-top:20px;font-size:12px;background:#f6f6f6 url(images/bg.gif);}"&vbcrlf
response.write "table{width:300px}"&vbcrlf
response.write "td{font-size:12px;color:#900000;padding-left:12px;}"&vbcrlf
response.write "a{color:#000090;text-decoration:none}"&vbcrlf
response.write "a{color:#000090;text-decoration:none}"&vbcrlf
response.write "a:hover{color:#ff3333;text-decoration:underline}"&vbcrlf
response.write ".awhite{color:#ffffff}"&vbcrlf
response.write ".awhite a{color:#ffffff;text-decoration:none;font-weight:500}"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</style>"&vbcrlf
response.write "</head>"&vbcrlf
response.write "<body>"&vbcrlf
response.write "<table border=1 align='center' cellpadding=0 cellspacing=0 style=border-collapse:collapse bordercolor=#111111 height=250>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td align=center colspan=2 class='awhite' style='background:#34aacd url(images/leadtop.gif);height:19px'><a href='index.asp'>"&pagetitle&"</a>--查看网友聊天信息</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>用户名：</td>"&vbcrlf&" <td>"&keystr&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>性别：</td>"&vbcrlf&" <td>"&rs("usersex")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>注册时间：</td>"&vbcrlf&" <td>"&rs("regtime")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>上次离站：</td>"&vbcrlf&" <td>"&rs("logintime")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>在线时间：</td>"&vbcrlf&" <td>"&rs("timecount")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>登陆次数：</td>"&vbcrlf&" <td>"&rs("logincount")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>权限等级：</td>"&vbcrlf&" <td>"&rs("grade")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>人气值：</td>"&vbcrlf&" <td>"&rs("clickcount")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>在线状态：</td>"&vbcrlf&" <td>"
if rs("isonline")=true then
response.write "在线"
else
response.write "不在线"
end if
response.write "</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>上次IP：</td>"&vbcrlf&" <td>"&rs("userip")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>详细资料：</td>"&vbcrlf&" <td><a href="&selfname&"?act=moreinfo&keystr="&keystr&">查看</a></td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td align=center colspan=2 class='awhite' style='background:#34aacd url(images/leadbottom.gif);height:19px;'>〖<a href='"&selfname&"?act=newusers&keystr=20&ntime="&ntime&"'>最新注册</a>〗 〖<a href='javascript:void(0)' onclick='window.close()'>关闭本窗口</a>〗 〖<a href='"&selfname&"?act=clicktop&keystr=20&ntime="&ntime&"'>人气排行</a>〗 </td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write "</table>"&vbcrlf
response.write "</body>"&vbcrlf
response.write "</html>"&vbcrlf
end if
rs.close
elseif act="moreinfo" and trim(keystr)<>"" then
sql="select * from userinfo where userid='"&trim(keystr)&"'"
rs.open sql,conn,0,3
if rs.bof and rs.eof then
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "alert('查看用户信息失败，你要查看的用户不存在!');"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
else
response.write "<html>"&vbcrlf
response.write "<head>"&vbcrlf
response.write "<meta http-equiv='Content-Type' content='text/html;charset=gb2312'>"&vbcrlf
response.write "<title>查看用户 "&keystr&" 的详细资料</title>"&vbcrlf
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "self.resizeTo(400,320);"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
response.write "<style type='text/css'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "body{margin-top:20px;font-size:12px;background:#f6f6f6 url(images/bg.gif);}"&vbcrlf
response.write "table{width:300px}"&vbcrlf
response.write "td{font-size:12px;color:#900000;padding-left:12px;}"&vbcrlf
response.write "a{color:#000090;text-decoration:none}"&vbcrlf
response.write "a{color:#000090;text-decoration:none}"&vbcrlf
response.write "a:hover{color:#ff3333;text-decoration:underline}"&vbcrlf
response.write ".awhite{color:#ffffff}"&vbcrlf
response.write ".awhite a{color:#ffffff;text-decoration:none;font-weight:500}"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</style>"&vbcrlf
response.write "</head>"&vbcrlf
response.write "<body>"&vbcrlf
response.write "<table border=1 align='center' cellpadding=0 cellspacing=0 style=border-collapse:collapse bordercolor=#111111 height=250>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td align=center colspan=2 class='awhite' style='background:#34aacd url(images/leadtop.gif);height:19px'><a href='index.asp'>"&pagetitle&"</a>--查看用户详细资料</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td width='40%'>真实姓名：</td>"&vbcrlf&" <td>"&rs("username")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>电话号码：</td>"&vbcrlf&" <td>"&rs("telephone")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>手机号码：</td>"&vbcrlf&" <td>"&rs("movephone")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>QQ号码：</td>"&vbcrlf&" <td>"&rs("qq")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>电子邮箱：</td>"&vbcrlf&" <td>"&rs("email")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>个人主页：</td>"&vbcrlf&" <td>"
if rs("homepage")<>"" then
response.write "<a href='"&rs("homepage")&"' target='_blank'>去看看</a>"
else
response.write "暂时没有"
end if
response.write "</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>通讯地址：</td>"&vbcrlf&" <td>"&rs("address")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>邮政编码：</td>"&vbcrlf&" <td>"&rs("zipcode")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td>其它信息：</td>"&vbcrlf&" <td>"&rs("leavewords")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td align=center colspan=2 class='awhite' style='background:#34aacd url(images/leadbottom.gif);height:19px;'>〖<a href='"&selfname&"?act=newusers&keystr=20&ntime="&ntime&"'>最新注册</a>〗 〖<a href='javascript:void(0)' onclick='window.close()'>关闭本窗口</a>〗 〖<a href='"&selfname&"?act=clicktop&keystr=20&ntime="&ntime&"'>人气排行</a>〗 </td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write "</table>"&vbcrlf
response.write "</body>"&vbcrlf
response.write "</html>"&vbcrlf
if isnull(rs("clickcount")) then
rs("clickcount")=1
elseif session("userid")<>keystr then
rs("clickcount")=rs("clickcount")+1
end if
rs.update
end if
rs.close
elseif act="upusergrade" and trim(keystr)<>"" then
sql="select grade from userinfo where userid='"&keystr&"'"
rs.open sql,conn,0,3
if rs.bof and rs.eof then
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "alert('提升用户等级失败，该用户不存在!');"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
elseif (rs("grade")+1)<session("grade") then
usrgrade=rs("grade")
rs("grade")=usrgrade+1
rs.update
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "alert('提升用户等级成功!用户“"&keystr&"”当前等级为："&usrgrade+1&"');"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
else
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "alert('提升用户等级失败，你没有足够权限!');"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
end if
rs.close
else
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "alert('对不起，操作失败，请重新登陆后再试!');"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
end if
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -