?? chatcmd.asp
字號(hào):
<!--#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('操作失敗，用戶名或密碼不得包含引號(hào)!');"&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('對(duì)不起，你無權(quán)執(zhí)行此操作!');"&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&" 位網(wǎng)友的資料</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>--最新注冊(cè)的"&keystr&"位用戶</td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <th>呢稱</th>"&vbcrlf&" <th>性別</th>"&vbcrlf&" <th>注冊(cè)時(shí)間</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()'>關(guān)閉本窗口</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&" 位網(wǎng)友信息</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>點(diǎn)擊</th>"&vbcrlf&" <th>呢稱</th>"&vbcrlf&" <th>性別</th>"&vbcrlf&" <th>注冊(cè)時(shí)間</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()'>關(guān)閉本窗口</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>查看上站總時(shí)間排行前 "&keystr&" 位網(wǎng)友信息</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>--總上站時(shí)間排行 <b>TOP"&keystr&"</b></td>"&vbcrlf
response.write " </tr>"&vbcrlf
response.write " <tr>"&vbcrlf
response.write " <th>上站累計(jì)</th>"&vbcrlf&" <th>呢稱</th>"&vbcrlf&" <th>性別</th>"&vbcrlf&" <th>注冊(cè)時(shí)間</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)&"小時(shí)</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()'>關(guān)閉本窗口</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('操作失敗，請(qǐng)重新登陸后再試!');"&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('更改自己密碼成功，請(qǐng)記住你的新密碼!');"&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('操作失敗，請(qǐng)重新登陸后再試!');"&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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -