📄 chatcmd.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="functions.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
act=request.querystring("act")
keystr=request.querystring("keystr")
if instr(keystr,chr(39))>0 or instr(keystr,chr(34))>0 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
response.end
end if
s_opencmds=" newusers clicktop onlinetop moreinfo pwd sex view "
if session("grade")>=gradekick then
s_opencmds=s_opencmds&"kick "
end if
if session("grade")>=gradeupuser then
s_opencmds=s_opencmds&"upusergrade "
end if
if instr(s_opencmds," "&act&" ")<=0 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
response.end
end if
%>
<!--#include file="conn.asp"-->
<%
if act="newusers" and keystr<>"" and isnumeric(keystr) then
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,430);"&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:#000090;padding-left:12px;}"&vbcrlf
response.write "th{font-size:12px;font-weight:600;color:#900000;text-align:center}"&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>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadtop.gif);height:19px'><a href='index.asp'>"&pagetitle&"</a>--最新注册的"&keystr&"位用户</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <th>呢称</th>"&vbcrlf&" <th>性别</th>"&vbcrlf&" <th>注册时间</th>"&vbcrlf
response.write " </tr>"&vbcrlf
keystr=fix(keystr)
sql="select userid,usersex,regtime from userinfo order by regtime desc"
rs.open sql,conn,0,1
i=1
do while not rs.eof
response.write " <tr>"&vbcrlf
response.write " <td><a href='"&selfname&"?act=view&keystr="&rs("userid")&"'>"&rs("userid")&"</a></td>"&vbcrlf&" <td>"&rs("usersex")&"</td>"&vbcrlf&" <td>"&rs("regtime")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
if i>=keystr then
exit do
end if
i=i+1
rs.movenext
loop
rs.close
response.write " <tr>"&vbcrlf
response.write " <td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadbottom.gif);height:19px;'><a href='javascript:void(0)' onclick='window.close()'>关闭本窗口</a></td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write "</table>"&vbcrlf
response.write "</body>"&vbcrlf
response.write "</html>"&vbcrlf
elseif act="clicktop" and keystr<>"" and isnumeric(keystr) then
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,430);"&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:#000090;padding-left:12px;}"&vbcrlf
response.write "th{font-size:12px;font-weight:600;color:#900000;text-align:center}"&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>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadtop.gif);height:19px'><a href='index.asp'>"&pagetitle&"</a>--人气排行 <b>TOP"&keystr&"</b></td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <th>点击</th>"&vbcrlf&" <th>呢称</th>"&vbcrlf&" <th>性别</th>"&vbcrlf&" <th>注册时间</th>"&vbcrlf
response.write " </tr>"&vbcrlf
keystr=fix(keystr)
sql="select * from userinfo order by clickcount desc"
rs.open sql,conn,0,1
i=1
do while not rs.eof
response.write " <tr>"&vbcrlf
response.write " <td>"&rs("clickcount")&"</td>"&vbcrlf&" <td><a href='"&selfname&"?act=view&keystr="&rs("userid")&"'>"&rs("userid")&"</a></td>"&vbcrlf&" <td>"&rs("usersex")&"</td>"&vbcrlf&" <td>"&rs("regtime")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
if i>=keystr then
exit do
end if
i=i+1
rs.movenext
loop
rs.close
response.write " <tr>"&vbcrlf
response.write " <td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadbottom.gif);height:19px;'><a href='javascript:void(0)' onclick='window.close()'>关闭本窗口</a></td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write "</table>"&vbcrlf
response.write "</body>"&vbcrlf
response.write "</html>"&vbcrlf
elseif act="onlinetop" and keystr<>"" and isnumeric(keystr) then
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,430);"&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:#000090;padding-left:6px;}"&vbcrlf
response.write "th{font-size:12px;font-weight:600;color:#900000;text-align:center}"&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>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadtop.gif);height:19px'><a href='index.asp'>"&pagetitle&"</a>--总上站时间排行 <b>TOP"&keystr&"</b></td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <th>上站累计</th>"&vbcrlf&" <th>呢称</th>"&vbcrlf&" <th>性别</th>"&vbcrlf&" <th>注册时间</th>"&vbcrlf
response.write " </tr>"&vbcrlf
keystr=fix(keystr)
sql="select * from userinfo order by timecount desc"
rs.open sql,conn,0,1
i=1
do while not rs.eof
response.write " <tr>"&vbcrlf
response.write " <td>"&FormatNumber(rs("timecount")/60,2,-1)&"小时</td>"&vbcrlf&" <td><a href='"&selfname&"?act=view&keystr="&rs("userid")&"'>"&rs("userid")&"</a></td>"&vbcrlf&" <td>"&rs("usersex")&"</td>"&vbcrlf&" <td>"&rs("regtime")&"</td>"&vbcrlf
response.write " </tr>"&vbcrlf
if i>=keystr then
exit do
end if
i=i+1
rs.movenext
loop
rs.close
response.write " <tr>"&vbcrlf
response.write " <td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadbottom.gif);height:19px;'><a href='javascript:void(0)' onclick='window.close()'>关闭本窗口</a></td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write "</table>"&vbcrlf
response.write "</body>"&vbcrlf
response.write "</html>"&vbcrlf
elseif act="pwd" and trim(keystr)<>"" then
sql="select password from userinfo where userid='"&session("userid")&"'"
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 "opener.top.window.location.href='loginout.asp?ntime="&ntime&"';"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
else
rs("password")=keystr
rs.update
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
elseif act="sex" and (keystr="帅哥" or keystr="靓妹" or keystr="神秘人") then
sql="select usersex from userinfo where userid='"&session("userid")&"'"
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 "opener.top.window.location.href='loginout.asp?ntime="&ntime&"';"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
else
rs("usersex")=keystr
rs.update
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&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="kick" and session("grade")>=gradekick then
sql="select * from userinfo where userid='"&keystr&"' and isonline=true"
rs.open sql,conn,0,3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -