<% '========================================================= ' File: dispuser.asp ' Version:5.0 ' Date: 2002-10-25 ' Script Written by satan '========================================================= ' Copyright (C) 2001,2002 AspSky.Net. All rights reserved. ' Web: http://www.aspsky.net,http://www.dvbbs.net ' Email: info@aspsky.net,eway@aspsky.net '========================================================= dim username dim abgcolor dim masterinfo dim usertopic,usertopic_1 dim delpoint dim userclass dim suserid username=trim(checkStr(request("name"))) stats="查询"&username&"个人资料" founderr=false dim usersign usersign=true call nav() if founderr then call head_var(2,0,"","") call dvbbs_error() else if request("action")="permission" then stats="查看用户权限" call head_var(1,BoardDepth,0,0) call mypermission() else call main() end if if founderr then call dvbbs_error() end if call footer() sub main() call head_var(2,0,"","") if isnumeric(request("id")) then suserid=request("id") else if username="" then ErrMsg=Errmsg+"
"+"

错误的参数。" founderr=true exit sub end if end if if Cint(GroupSetting(1))=0 then Errmsg=Errmsg+"
"+"

您没有浏览本论坛会员资料的权限，请登陆或者同管理员联系。" founderr=true exit sub end if dim stat,OnlineTime dim Srs dim Stockmoney,bankmoney,usergrade dim userinfo,userbaseinfo,usertrueinfo dim realname,character,personal,country,province,city,shengxiao,blood,belief,occupation,marital, education,college,userphone,useraddress dim usersetting,setuserinfo,setusertrue set rs=server.createobject("adodb.recordset") if suserid="" then sql="select * from [User] where username='"&UserName&"'" else sql="select * from [user] where userid="&suserid end if rs.open sql,conn,1,1 if err.number<>0 then ErrMsg=Errmsg+"
"+"

数据库操作失败："&err.description founderr=true exit sub end if if rs.eof and rs.bof then ErrMsg=Errmsg+"
"+"

您查询的名字不存在" founderr=true exit sub end if suserid=rs("userid") userclass=rs("userclass") username=rs("username") if rs("usersetting")<>"" then usersetting=split(rs("usersetting"),"|||") if ubound(usersetting)=1 then setuserinfo=usersetting(0) setusertrue=usersetting(1) if not isnumeric(setuserinfo) then setuserinfo=1 if not isnumeric(setusertrue) then setusertrue=0 else setuserinfo=1 setusertrue=0 end if else setuserinfo=1 setusertrue=0 end if if rs("userinfo")<>"" then userinfo=split(rs("userinfo"),"|||") if ubound(userinfo)=14 then realname=userinfo(0) character=userinfo(1) personal=userinfo(2) country=userinfo(3) province=userinfo(4) city=userinfo(5) shengxiao=userinfo(6) blood=userinfo(7) belief=userinfo(8) occupation=userinfo(9) marital=userinfo(10) education=userinfo(11) college=userinfo(12) userphone=userinfo(13) useraddress=userinfo(14) else realname="" character="" personal="" country="" province="" city="" shengxiao="" blood="" belief="" occupation="" marital="" education="" college="" userphone="" useraddress="" end if else realname="" character="" personal="" country="" province="" city="" shengxiao="" blood="" belief="" occupation="" marital="" education="" college="" userphone="" useraddress="" end if if boardmaster or master then set Srs=conn.execute("select stats,startime from online where userid="&rs("userid")) else set Srs=conn.execute("select stats,startime from online where userid="&rs("userid")&" and userhidden=2") end if if Srs.eof and Srs.bof then stat="" OnlineTime="[离线]" else stat="当前位置：["&Srs(0)&"]" OnlineTime="[在线：" & datediff("n",Srs(1),Now()) & "Mins]" end if Srs.close set Srs=nothing Stockmoney=0 bankmoney=0 %> border=0 cellspacing=0 cellpadding=3 align=center>

width=20 height=21 align=absmiddle> <%=htmlencode(username)%>

<%=stat%>zhuangtai.gif width=16 height=16 align=absmiddle> 状态： <% if rs("lockuser")=1 then response.write "锁定 " & onlinetime elseif rs("lockuser")=2 then response.write "屏蔽 " & onlinetime else response.write "正常 " & onlinetime end if %>

<%if setuserinfo=1 then%>

基本资料		<%=iimg(rs("userphoto"),"无","")%>
性 别：	<%=iif(rs("sex"),"男","女")%>
出 生：	<%=iimg(rs("birthday"),"未填",rs("birthday"))%>
星 座：	<%=iimg(rs("birthday"),"未填",astro(rs("birthday")))%>
Ｅｍａｉｌ：	<%=iimg(rs("useremail"),"未填",""&htmlencode(rs("useremail"))&"")%>
Ｑ Ｑ：	<%=iimg(rs("oicq"),"未填",htmlencode(rs("oicq")))%>
ＩＣＱ：	<%=iimg(rs("icq"),"未填",htmlencode(rs("icq")))%>
ＭＳＮ：	<%=iimg(rs("msn"),"未填",htmlencode(rs("msn")))%>
主 页：	<%=iimg(rs("homepage"),"未填",""&htmlencode(rs("homepage"))&" ")%>
		给他留言 | 加为好友

<%end if%> <%if setusertrue=1 then%>

用户详细资料		性格： <%=character%> 个人简介： <%=personal%>
真实姓名：	<%=realname%>
国　　家：	<%=country%>
联系电话：	<%=userphone%>
通信地址：	<%=useraddress%>
省　　份：	<%=province%>
城　　市：	<%=city%>
生　　肖：	<%=shengxiao%>
血　　型：	<%=blood%>
信　　仰：	<%=belief%>
职　　业：	<%=occupation%>
婚姻状况：	<%=marital%>
最高学历：	<%=education%>
毕业院校：	<%=college%>

<%end if%>

论坛属性
经验值：	<%= rs("userEP") %>	精华帖子：	<%=rs("userisbest")%>篇
魅力值：	<%= rs("userCP") %>	帖子总数：	<%=rs("article")%> 篇
论坛等级：	<%=rs("userclass")%>	被删主题：	><%=rs("userDel")%> 篇
威望值：	><%=rs("userPower")%>	被删除率：	> <% if rs("userDel")>0 or rs("article")>0 then response.write FormatPercent(-rs("userDel")/rs("article")) else response.write "%" end if %>
门 派：	<%=iimg(rs("usergroup"),"无",rs("usergroup"))%>	登陆次数：	<%=rs("logins")%>
注册日期：	<%=rs("addDAte")%>	上次登录：	<%=rs("lastlogin")%>

资产情况
现金货币：	<%= rs("userWealth") %>	论坛职务： <% if rs("UserGroupID")=1 then response.write "管理员 " end if if rs("UserGroupID")<=3 then set Srs=conn.execute("select boardmaster,boardid,boardtype from board order by rootid,orders") do while not srs.eof if not isnull(srs(0)) and srs(0)<>"" then boardmaster=split(srs(0),"|") for i=0 to ubound(boardmaster) if boardmaster(i)=username then response.write ""&srs(2)&" 版主 " next end if srs.movenext loop srs.close set srs=nothing end if if rs("userGroupID")>3 then response.write "无职务" end if %>
股票市值：	<%=Stockmoney%>
银行存款：	<%=bankmoney%>
总 资 产：	<%=rs("userWealth")+stockmoney+bankmoney%>

最近活动－－搜索该用户所有帖子

<% set srs=conn.execute("select top 5 rootid,boardid,dateandtime,topic,expression,announceid,body from "&NowUseBBS&" where postuserid="&rs("userid")&" and not locktopic=2 order by announceid desc") do while not srs.eof response.write "  " if isnull(srs(3)) or srs(3)="" then response.write left(htmlencode(replace(srs(6),chr(10)," ")),26) & "..." else response.write htmlencode(srs(3)) end if response.write " -- "&srs(2)&" " srs.movenext loop srs.close set srs=nothing %>

<%if Cint(GroupSetting(28))=1 or Cint(GroupSetting(29))=1 or Cint(GroupSetting(42))=1 or Cint(GroupSetting(43))=1 or Cint(GroupSetting(30))=1 or Cint(GroupSetting(31))=1 then%> <%if Cint(GroupSetting(42))=1 or Cint(GroupSetting(43))=1 or Cint(GroupSetting(28))=1 then%> <%end if%> <%if Cint(GroupSetting(29))=1 then%> <%end if%> <%if Cint(GroupSetting(30))=1 then%> <%end if%>

快捷管理选项
用户管理选项： 『 title=锁定该用户不允许登陆和发言>锁定 | title=屏蔽该用户在论坛的发言>屏蔽 | title=解除该用户在论坛的锁定和屏蔽>解除 | 奖励 | ">编辑该用户论坛权限 』
帖子管理选项： 删除该用户  <%for i=1 to 10%> <%=i%> <%next%>  天内的主题	删除该用户  <%for i=1 to 10%> <%=i%> <%next%>  天内的回复在 <% For i=0 to ubound(AllPostTable) response.write ""&AllPostTablename(i)&"" next %> 中
用户最后来访IP： "><%=rs("UserLastIP")%>  点击IP查看用户来源及操作

<% end if rs.close set rs=nothing call activeonline() end sub sub mypermission() dim myper_1,myper_2,myper_3 myper_1=false myper_2=false myper_3=false set rs=conn.execute("select uc_userid from UserAccess where uc_boardid="&boardid&" and uc_userid="&userid) if not(rs.eof and rs.bof) then myper_1=true end if if not myper_1 then set rs=conn.execute("select pid from BoardPermission where Boardid="&boardid&" and GroupID="&UserGroupID) if not(rs.eof and rs.bof) then myper_2=true end if end if if not(myper_1 and myper_2) then set rs=conn.execute("select UserGroupID from UserGroups where UserGroupID="&UserGroupID) if not(rs.eof and rs.bof) then myper_3=true end if end if set rs=nothing %>

<% dim myper_4 if boardid=0 then myper_4="本论坛" else myper_4=boardtype end if if myper_1 then response.write "您在 "&myper_4&" 被系统定义了单独的用户权限，具体的权限列表如下" elseif myper_2 then response.write "您所属的用户组在 "&myper_4&" 有单独的权限设置，具体的权限列表如下" else response.write "您所属的用户组在 "&myper_4&" 使用的是默认设置，具体的权限列表如下" end if %>
＝＝查看权限
可以浏览论坛	<%if GroupSetting(0)=1 then%>√<%end if%><%if GroupSetting(0)=0 then%>>×<%end if%>
可以查看会员信息(包括其他会员的资料和会员列表)	<%if GroupSetting(1)=1 then%>√<%end if%><%if GroupSetting(1)=0 then%>>×<%end if%>
可以查看其他人发布的主题	<%if GroupSetting(2)=1 then%>√<%end if%><%if GroupSetting(2)=0 then%>>×<%end if%>
可以浏览精华帖子	<%if GroupSetting(41)=1 then%>√<%end if%><%if GroupSetting(41)=0 then%>>×<%end if%>
＝＝发帖权限
可以发布新主题	<%if GroupSetting(3)=1 then%>√<%end if%><%if GroupSetting(3)=0 then%>>×<%end if%>
可以回复自己的主题	<%if GroupSetting(4)=1 then%>√<%end if%><%if GroupSetting(4)=0 then%>>×<%end if%>
可以回复其他人的主题	<%if GroupSetting(5)=1 then%>√<%end if%><%if GroupSetting(5)=0 then%>>×<%end if%>
可以在论坛允许评分的时候参与评分(鲜花和鸡蛋)?	<%if GroupSetting(6)=1 then%>√<%end if%><%if GroupSetting(6)=0 then%>>×<%end if%>
参与评分所需金钱	<%=GroupSetting(47)%>
可以上传附件	<%if GroupSetting(7)=1 then%>√<%end if%><%if GroupSetting(7)=0 then%>>×<%end if%>
一次最多上传文件个数	<%=GroupSetting(40)%>
一天最多上传文件个数	<%=GroupSetting(50)%>
上传文件大小限制	<%=GroupSetting(44)%> KB
可以发布新投票	<%if GroupSetting(8)=1 then%>√<%end if%><%if GroupSetting(8)=0 then%>>×<%end if%>
可以参与投票	<%if GroupSetting(9)=1 then%>√<%end if%><%if GroupSetting(9)=0 then%>>×<%end if%>
可以发布小字报	<%if GroupSetting(17)=1 then%>√<%end if%><%if GroupSetting(17)=0 then%>>×<%end if%>
发布小字报所需金钱	<%=GroupSetting(46)%>
＝＝帖子/主题编辑权限
可以编辑自己的帖子	<%if GroupSetting(10)=1 then%>√<%end if%><%if GroupSetting(10)=0 then%>>×<%end if%>
可以删除自己的帖子	<%if GroupSetting(11)=1 then%>√<%end if%><%if GroupSetting(11)=0 then%>>×<%end if%>
可以移动自己的帖子到其他论坛	<%if GroupSetting(12)=1 then%>√<%end if%><%if GroupSetting(12)=0 then%>>×<%end if%>
可以打开/关闭自己发布的主题	<%if GroupSetting(13)=1 then%>√<%end if%><%if GroupSetting(13)=0 then%>>×<%end if%>
＝＝其他权限
可以搜索论坛	<%if GroupSetting(14)=1 then%>√<%end if%><%if GroupSetting(14)=0 then%>>×<%end if%>
可以使用'发送本页给好友'功能	<%if GroupSetting(15)=1 then%>√<%end if%><%if GroupSetting(15)=0 then%>>×<%end if%>
可以修改个人资料	<%if GroupSetting(16)=1 then%>√<%end if%><%if GroupSetting(16)=0 then%>>×<%end if%>
帖子中可以可以查看其它人签名	<%if GroupSetting(38)=1 then%>√<%end if%><%if GroupSetting(38)=0 then%>>×<%end if%>
可以浏览论坛事件	<%if GroupSetting(39)=1 then%>√<%end if%><%if GroupSetting(39)=0 then%>>×<%end if%>
＝＝管理权限
可以删除其它人帖子	<%if GroupSetting(18)=1 then%>√<%end if%><%if GroupSetting(18)=0 then%>>×<%end if%>
可以移动其它人帖子	<%if GroupSetting(19)=1 then%>√<%end if%><%if GroupSetting(19)=0 then%>>×<%end if%>
可以打开/关闭其它人帖子	<%if GroupSetting(20)=1 then%>√<%end if%><%if GroupSetting(20)=0 then%>>×<%end if%>
可以固顶/解除固顶帖子	<%if GroupSetting(21)=1 then%>√<%end if%><%if GroupSetting(21)=0 then%>>×<%end if%>
可以奖励/惩罚发贴用户	<%if GroupSetting(22)=1 then%>√<%end if%><%if GroupSetting(22)=0 then%>>×<%end if%>
可以奖励/惩罚用户	<%if GroupSetting(43)=1 then%>√<%end if%><%if GroupSetting(43)=0 then%>>×<%end if%>
可以编辑其它人帖子	<%if GroupSetting(23)=1 then%>√<%end if%><%if GroupSetting(23)=0 then%>>×<%end if%>
可以加入/解除精华帖子	<%if GroupSetting(24)=1 then%>√<%end if%><%if GroupSetting(24)=0 then%>>×<%end if%>
可以发布公告	<%if GroupSetting(25)=1 then%>√<%end if%><%if GroupSetting(25)=0 then%>>×<%end if%>
可以管理公告	<%if GroupSetting(26)=1 then%>√<%end if%><%if GroupSetting(26)=0 then%>>×<%end if%>
可以管理小字报	<%if GroupSetting(27)=1 then%>√<%end if%><%if GroupSetting(27)=0 then%>>×<%end if%>
可以锁定/屏蔽/解除锁定用户	<%if GroupSetting(28)=1 then%>√<%end if%><%if GroupSetting(28)=0 then%>>×<%end if%>
可以删除用户1－10天内所发帖子	<%if GroupSetting(29)=1 then%>√<%end if%><%if GroupSetting(29)=0 then%>>×<%end if%>
可以查看来访IP及来源	<%if GroupSetting(30)=1 then%>√<%end if%><%if GroupSetting(30)=0 then%>>×<%end if%>
可以限定IP来访	<%if GroupSetting(31)=1 then%>√<%end if%><%if GroupSetting(31)=0 then%>>×<%end if%>
可以管理用户权限	<%if GroupSetting(42)=1 then%>√<%end if%><%if GroupSetting(42)=0 then%>>×<%end if%>
可以批量删除帖子（前台）	<%if GroupSetting(45)=1 then%>√<%end if%><%if GroupSetting(45)=0 then%>>×<%end if%>
是否有审核帖子的权限	<%if GroupSetting(36)=1 then%>√<%end if%><%if GroupSetting(36)=0 then%>>×<%end if%>
是否有进入隐含论坛的权限	<%if GroupSetting(37)=1 then%>√<%end if%><%if GroupSetting(37)=0 then%>>×<%end if%>
＝＝短信权限
可以发送短信	<%if GroupSetting(32)=1 then%>√<%end if%><%if GroupSetting(32)=0 then%>>×<%end if%>
最多发送用户	<%=GroupSetting(33)%>
短信内容大小限制	<%=GroupSetting(34)%> byte
信箱大小限制	<%=GroupSetting(35)%> KB

<% end sub %>