dispuser.asp

论坛源码

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/birthday.asp"-->
<%
'=========================================================
' 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: [e-mail],[e-mail]
'=========================================================
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+"<br>"+"<li>错误的参数。"
		founderr=true
		exit sub
	end if
end if

if Cint(GroupSetting(1))=0 then
	Errmsg=Errmsg+"<br>"+"<li>您没有浏览本论坛会员资料的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
	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+"<br>"+"<li>数据库操作失败："&err.description
	founderr=true
	exit sub
end if
if rs.eof and rs.bof then
	ErrMsg=Errmsg+"<br>"+"<li>您查询的名字不存在"
	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
%>
<table width=<%=Forum_body(12)%> border=0 cellspacing=0 cellpadding=3 align=center>
  <tr> 
    <td><img src=<%=htmlencode(rs("face"))%> width=20 height=21 align=absmiddle> 
<b><%=htmlencode(username)%></b> 
</td>
    <td align=right>
<%=stat%><img src=<%=Forum_info(7)%>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
%>
  </td>
  </tr>
</table>
<%if setuserinfo=1 then%>
<table cellspacing=1 cellpadding=3 align=center  style="table-layout:fixed;word-break:break-all" class=tableborder1>
  <col width=20% ><col width=*><col width=40% > 
  <tr> 
    <th colspan=2 align=left>基本资料</th>
    <td rowspan=9 align=center class=tablebody1 width=40% valign=top>
<%=iimg(rs("userphoto"),"<font color=gray>无</font>","<img src="&htmlencode(FilterJS(rs("userPhoto")))&">")%>
    </td>
  </tr>   
  <tr> 
    <td class=tablebody1 width=20% align=right>性 别：</td>
    <td class=tablebody1><%=iif(rs("sex"),"男","女")%> </td>
  </tr>
  <tr> 
    <td class=tablebody2 width=20% align=right>出 生：</td>
    <td class=tablebody2>
<%=iimg(rs("birthday"),"<font color=gray>未填</font>",rs("birthday"))%>
 </td>
  </tr>
  <tr> 
    <td class=tablebody1 width=20% align=right>星 座：</td>
    <td class=tablebody1>
<%=iimg(rs("birthday"),"<font color=gray>未填</font>",astro(rs("birthday")))%>
</td>
  </tr>
  <tr> 
    <td class=tablebody2 width=20% align=right>Ｅｍａｉｌ：</td>
    <td class=tablebody2>
<%=iimg(rs("useremail"),"<font color=gray>未填</font>","<a href=mailto:"&htmlencode(rs("useremail"))&">"&htmlencode(rs("useremail"))&"</a>")%>
</td>
  </tr>
  <tr> 
    <td class=tablebody1 width=20% align=right>Ｑ Ｑ：</td>
    <td class=tablebody1>
<%=iimg(rs("oicq"),"<font color=gray>未填</font>",htmlencode(rs("oicq")))%>
</td>
  </tr>
  <tr> 
    <td class=tablebody2 width=20% align=right>ＩＣＱ：</td>
    <td class=tablebody2>
<%=iimg(rs("icq"),"<font color=gray>未填</font>",htmlencode(rs("icq")))%>
</td>
  </tr>
  <tr> 
    <td class=tablebody1 width=20% align=right>ＭＳＮ：</td>
    <td class=tablebody1>
<%=iimg(rs("msn"),"<font color=gray>未填</font>",htmlencode(rs("msn")))%>
 </td>
  </tr>
  <tr> 
    <td class=tablebody2 width=20% align=right>主 页：</td>
    <td class=tablebody2>
<%=iimg(rs("homepage"),"<font color=gray>未填</font>","<a href="&htmlencode(rs("homepage"))&" target=_blank>"&htmlencode(rs("homepage"))&"</a> ")%>
</td>
  </tr>
  <tr> 
    <td class=tablebody1 width=20% align=right valign=top>&nbsp;</td>
    <td class=tablebody1>&nbsp;</td>
    <td class=tablebody1 align=center width=40% >
      <b><a href="javascript:openScript('messanger.asp?action=new&touser=<%=htmlencode(username)%>',500,400)">给他留言</a> | <a href="friendlist.asp?action=addF&myFriend=<%=HTMLEncode(username)%>" target=_blank>加为好友</a></b></td>
  </tr>
</table>
<br>
<%end if%>

<%if setusertrue=1 then%>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="table-layout:fixed;word-break:break-all">
  <col width=20% ><col width=*><col width=40% > 
  <tr> 
    <th colspan=2 align=left>
      用户详细资料</th>
    <td rowspan=14 class=tablebody1 width=40% valign=top>
<b>性