?? 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 + -