viewperson.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 122 行

<!--#include file="inc/pstart.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/incpage.asp"-->
<!--#include file="inc/bbsinfo.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<%
dim seeuser,action,hx66bbs
bid=clng(request.querystring("bid"))
if bid=0 then bid=1
seeuser=restr(request.querystring("author"))
action=restr(request.querystring("action"))
hx66bbs=restr(request.querystring("hx66bbs"))
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from hx66_uinfo where hx66_uname='"&seeuser&"'"
rs.open sqlstr,conn,1,1
dim usermoney,userqming
if not rs.eof then
usermoney=rs("hx66_money")
userqming=sart(ubbcode(rs("hx66_qming")))
else
usermoney=0
userqming=""
end if
rs.close
set rs=nothing
start="用户信息"
call bbs_top()
if hx66bbs="ok" then'===管理用户
   if not checkadmin(ckuname)>=3 then showmsg("不能确认您的管理员身份")
   if action="1" then'===屏蔽主题
      sql="UPDATE hx66_bbs SET hx_close=1 where hx66_name='"&seeuser&"'"
      conn.execute (sql)
      response.redirect "?bid="&bid&"&author="&seeuser&""
   elseif action="11" then'===解除屏蔽主题
      sql="UPDATE hx66_bbs SET hx_close=0 where hx66_name='"&seeuser&"'"
      conn.execute (sql)
      response.redirect "?bid="&bid&"&author="&seeuser&""
   elseif action="2" then'===屏蔽回复
      sql="UPDATE hx66_saybbs SET hx66_close=1 where hx66_user='"&seeuser&"'"
      conn.execute (sql)
      response.redirect "?bid="&bid&"&author="&seeuser&""
   elseif action="22" then'===解除屏蔽回复
      sql="UPDATE hx66_saybbs SET hx66_close=0 where hx66_user='"&seeuser&"'"
      conn.execute (sql)
      response.redirect "?bid="&bid&"&author="&seeuser&""
   elseif action="3" then'===删除主题
      sql="UPDATE hx66_bbs SET hx66_delete=1 where hx66_name='"&seeuser&"'"
      conn.execute (sql)
      response.redirect "?bid="&bid&"&author="&seeuser&""
   elseif action="4" then'===删除回复
      sql="UPDATE hx66_saybbs SET hx66_hdelete=1 where hx66_user='"&seeuser&"'"
      conn.execute (sql)
      response.redirect "?bid="&bid&"&author="&seeuser&""
   else
      showmsg("无效参数！或没有权限")
      response.end
   end if
end if
%>
<table class="table-hx66s" height="40" cellSpacing="0" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
    <tr>
      <td align="middle" height="20"></td>
    </tr>
    <tr>
      <td>
       <table width='96%' border='1' align='center' cellspacing='0' cellpadding='5' bgcolor='#FFFFFF' bordercolor='#f0f0f0' style='border-collapse: collapse'>
          <tr>
            <td height="25">用户名：<%=htmlencode(seeuser)%></td>
          </tr>
          <tr>
            <td height="25">积&nbsp;&nbsp;分：<%=usermoney%></td>
          </tr>
          <% 
           dim zt,zts,hf,hfs
           zt=conn.execute("select count(*) from hx66_bbs where hx66_name='"&seeuser&"'")(0)
           zts=conn.execute("select count(*) from hx66_bbs where hx66_delete=1 and hx66_name='"&seeuser&"'")(0)
           ztp=conn.execute("select count(*) from hx66_bbs where hx_close=1 and hx66_name='"&seeuser&"'")(0)
           hf=conn.execute("select count(*) from hx66_saybbs where hx66_user='"&seeuser&"'")(0)
           hfs=conn.execute("select count(*) from hx66_saybbs where hx66_hdelete=1 and hx66_user='"&seeuser&"'")(0)
           hfp=conn.execute("select count(*) from hx66_saybbs where hx66_close=1 and hx66_user='"&seeuser&"'")(0)
          %>
          <tr>
            <td height="25">主题总数：<%=zt%>&nbsp;→ 其中：&nbsp;屏蔽主题：<%=ztp%> → 被删主题：<%=zts%></td>
          </tr>
          <tr>
            <td height="25">回复总数：<%=hf%>&nbsp;→ 其中：&nbsp;屏蔽回复：<%=hfp%> → 被删回复：<%=hfs%></td>
          </tr>
          <tr>
            <td height="25">搜索该用户：<a href="list.asp?bid=<%=bid%>&keywords=<%=seeuser%>&SearchType=会员">搜索该用户此版面所有主题帖子</a></td>
          </tr>
          <tr>
            <td height="25">签&nbsp;&nbsp;名：</td>
          </tr>
          <tr>
            <td height="25"><%=userqming%></td>
          </tr>
          <tr>
            <td align="center" height="30">&nbsp;<a href="default.asp"><b>返回论坛</b></a>&nbsp;&nbsp;&nbsp;<a href="javascript:history.back()"><b>返回前页</b></a></td>
          </tr>
        </table>
        <%if checkadmin(ckuname)>=3 then%>
        <table width='96%' border='1' align='center' cellspacing='0' cellpadding='5' bgcolor='#FFFFFF' bordercolor='#f0f0f0' style='border-collapse: collapse'>
          <tr>
            <td height="25">屏蔽管理选项：<a href="?author=<%=htmlencode(seeuser)%>&hx66bbs=ok&action=1&bid=<%=bid%>">屏蔽该用户所有主题贴</a> | <a href="?author=<%=htmlencode(seeuser)%>&hx66bbs=ok&action=11&bid=<%=bid%>">解除屏蔽该用户所有主题贴</a></td>
          </tr>
          <tr>
            <td height="25">屏蔽管理选项：<a href="?author=<%=htmlencode(seeuser)%>&hx66bbs=ok&action=2&bid=<%=bid%>">屏蔽该用户所有回复贴</a> | <a href="?author=<%=htmlencode(seeuser)%>&hx66bbs=ok&action=22&bid=<%=bid%>">解除屏蔽该用户所有回复贴</a></td>
          </tr>
          <tr>
            <td height="25">删除管理选项：<a href="?author=<%=htmlencode(seeuser)%>&hx66bbs=ok&action=3&bid=<%=bid%>">删除该用户所有主题贴</a> | <a href="?author=<%=htmlencode(seeuser)%>&hx66bbs=ok&action=4&bid=<%=bid%>">删除该用户所有回复贴</a></td>
          </tr>
        </table>
       <%end if%>
      </td>
    </tr>
   <tr><td height="20"></td></tr>
</table>
<%
call bbs_foot()
conn.close
set conn=nothing
%>