<% 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="
"&_ "
"&UserPIc&"
发送留言
"&_ "
"&_ "
基本信息
"&_ "
  • 昵称:"&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& "
"&BBS.Fun.StrLeft(Rs("Caption"),50)&"
" 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& "
"&BBS.Fun.StrLeft(Rs("Caption"),50)&"
" End If Rs.MoveNext Loop Rs.Close SysInfo="
最近发表的主题
"&SysInfo&"
" BBS.ShowTable UserName&" 帖子信息",SysInfo&ReplyInfo&"
" End Sub %>