%
Dim UserName,Page_Url
If Not BBS.FoundUser Then BBS.GoToErr(10)
UserName=request.querystring("name")
If UserName <> "" Then
Page_Url = "?Name="&UserName
Else
Page_Url = ""
End If
If Trim(UserName)="" Then UserName=BBS.MyName
If Not BBS.Fun.CheckName(UserName) then BBS.GoToErr(1)
If Lcase(UserName)=lCase(BBS.MyName) Then
BBS.Position=BBS.Position&" -> 用户控制面版"
BBS.Head "userinfo.asp"&Page_Url,"","查看本人资料"
Response.Write BBS.ReadSkins("用户控制面版")
Else
If SESSION(CacheName& "MyGradeInfo")(21)="0" Then BBS.GoToErr(74)
BBS.Head "userinfo.asp"&Page_Url,"","查看用户资料"
End If
Showuserinfo()
ShowUserBBS()
BBS.Footer()
Set BBS =Nothing
Sub Showuserinfo()
Dim Caption,Content
Dim Rs,Grade,UserPic,UserSex,RegIP,LastIP
SET Rs=BBS.Execute("Select Name,Sex,Birthday,Mail,Home,IsQQpic,QQ,Pic,Pich,Picw,RegIp,LastIp,EssayNum,GoodNum,Mark,GradeID,Coin,GameCoin,BankSave,RegTime,LastTime,IsShow,IsDel,IsVip,LoginNum,Honor,Sign,Faction From[user]where Name='"&UserName&"' And Isdel=0")
If Rs.eof then BBS.GoToErr(79)
If Rs("IsQQpic")="1" Then
UserPic=""
Else
UserPic=""
End If
IF Rs("Sex")=1 Then UserSex="男" Else UserSex="女"
Grade=BBS.GetGradeInfo(Rs("GradeID"))
Grade=split(Grade,"|")
IF SESSION(CacheName& "MyGradeInfo")(42)="1" Then
RegIP=BBS.Fun.GetSqlStr(Rs("RegIp"))
LastIP=BBS.Fun.GetSqlStr(Rs("LastIp"))
Else
RegIP="保密":LastIP="保密"
End If
Caption="用户信息"
Content=""&_
"
"&_
"
"&_
"
基本信息
"&_
"
- 昵称:"&UserName&"
- 性别:"&UserSex&"
- 生日:"&Rs("Birthday")&"
- 邮箱:
- QQ:"&BBS.Fun.GetSqlStr(Rs("QQ"))&"
- 网站:我的网址
- 注册时间:"&Rs("RegTime")&"
- 最后访问:"&Rs("LastTime")&"
- 注册时IP:"&RegIP&"
- 最后访问IP:"&LastIP&"
"&_
"
论坛信息
"&_
"
- 论坛等级:"&Grade(2)&"
- 头街称号:"&BBS.Fun.GetSqlStr(Rs("Honor"))&"
- 论坛帮派:"&BBS.Fun.GetSqlStr(Rs("Faction"))&"
- 发帖总数:"&Rs("EssayNum")&"
- 精华帖数:"&Rs("GoodNum")&"
- "&BBS.Info(120)&":"&Rs("Coin")&"
- 银行存款:"&Rs("BankSave")&"
- "&BBS.Info(122)&":"&Rs("GameCoin")&"
- "&BBS.Info(121)&":"&Rs("Mark")&"
- 登陆次数:"&Rs("LoginNum")&"次
"
Rs.Close
BBS.ShowTable Caption,Content
End Sub
Sub ShowUserBBS()
Dim Rs,I,SysInfo,ReplyInfo,NoShow
NoShow=BBS.NoShowTopic()
Set Rs=BBS.Execute("select Top 5 Face,BoardID,Caption,LastTime,TopicID,Name,SqlTableID from [Topic] where Name<>'"&UserName&"' And IsDel=0 and TopicID in (Select ReplyTopicID from [Bbs"&BBS.TB&"] where name='"&UserName&"' And IsDel=0) order by LastTime desc")
Do While not Rs.Eof
If InStr(","&NoShow&",",","&Rs("BoardID")&",")=0 or (lcase(UserName)=lcase(BBS.MyName) or BBS.MyAdmin=9) Then
ReplyInfo=ReplyInfo& ""
End If
Rs.MoveNext
Loop
Rs.Close
ReplyInfo=" 最近参与的主题 "&ReplyInfo&"
"
Set Rs=BBS.Execute("select Top 5 Face,BoardID,Caption,AddTime,TopicID,Name,SqlTableID from [Topic] where name='"&UserName&"' And IsDel=0 order by AddTime desc")
Do While not Rs.Eof
If InStr(","&NoShow&",",","&Rs("BoardID")&",")=0 or (lcase(UserName)=lcase(BBS.MyName) or BBS.MyAdmin=9) Then
SysInfo=SysInfo& ""
End If
Rs.MoveNext
Loop
Rs.Close
SysInfo=" 最近发表的主题 "&SysInfo&"
"
BBS.ShowTable UserName&" 帖子信息",SysInfo&ReplyInfo&""
End Sub
%>