userinfo.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

<!--#include file="Inc.asp"--><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
	function mail(str){
	var m1=str.split("@")[0]
	var m2=str.split("@")[1]
	document.writeln("<a href='mailto:" + m1+ "@" +m2 +"'><img border=0 align='absmiddle' src='Images/mail.gif'></a>")}
</script>
<%
Dim UserName,NoShow
If Not BBS94KK.FoundUser Then BBS94KK.GoToErr(10)
UserName=request.querystring("name")
If Trim(UserName)="" Then UserName=BBS94KK.MyName
If Not BBS94KK.Fun.CheckName(UserName) then BBS94KK.GoToErr(1)
If Lcase(UserName)=lCase(BBS94KK.MyName) Then
	BBS94KK.Position=BBS94KK.Position&" → <a href=UserInfo.asp>用户控制面版<a>"
	Call BBS94KK.Head("查看本人资料")
	MyManager()
Else
	Call BBS94KK.Head("查看用户资料")
End If
NoShow=BBS94KK.NoShowTopic()
ShowUserInfo()
ShowUserBBS()
BBS94KK.Footer()
Set BBS94KK=Nothing



Sub MyManager()
Response.Write BBS94KK.Template.ReadTemplate("用户控制面版")
End Sub

Sub ShowUserInfo()
	Dim Caption,Content
	Dim Rs,Grade,UserPic,UserSex,RegIP,LastIP
	SET Rs=BBS94KK.Execute("Select Name,Sex,Birthday,Mail,Home,IsQQpic,QQ,Pic,Pich,Picw,RegIp,LastIp,EssayNum,GoodNum,Mark,Grade,Coin,GameCoin,BankSave,RegTime,LastTime,IsShow,IsDel,IsVip,LoginNum,Honor,Sign,Faction From[KK_user]where Name='"&UserName&"' And Isdel=False")
	If Rs.eof then BBS94KK.GoToErr(37)
	If Rs("IsQQpic") Then
		UserPic="<img src='http://qqshow-user.tencent.com/"&Rs("QQ")&"/10/'>"
	Else
		UserPic="<img src="&BBS94KK.Fun.GetSqlStr(Rs("pic"))&" width="&Rs("picw")&" height="&Rs("pich")&" >"
	End If
	IF Rs("Sex") Then UserSex="男" Else UserSex="女"
	If Rs("Grade")=20 Then
		Grade= "论坛最高管理员"
	ElseIF Rs("Grade")=19 Then
		Grade= "论坛超级版主"
	ElseIF Rs("Grade")=18 Then
		Grade= "现任论坛版主"
	ElseIF Rs("IsVip") Then
		Grade= "VIP会员"
	Else
		Grade= "普通会员"
	End If
	IF BBS94KK.MyAdmin=1 or BBS94KK.MyAdmin=2 or BBS94KK.MyName=UserName Then
		RegIP=BBS94KK.Fun.GetSqlStr(Rs("RegIp"))
		LastIP=BBS94KK.Fun.GetSqlStr(Rs("LastIp"))
	Else 
		RegIP="保密":LastIP="保密"
	End If
	Caption="用户信息"
	Content="<table border=0 cellpadding=8 cellspacing=0 style='border-collapse: collapse' width='100%'><tr><td width='20%'>"&_
	"<table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td align='center'>"&UserPIc&"</td></tr><tr><td align='center' height='40'><a href='Sms.asp?Action=write&Name="&UserName&"'><img src='Images/sms.gif' border='0'> 发送留言</a></td></tr></table>"&_
	"</td><td width='40%' valign=top>"&_
	"<table width='98%' border='0' cellpadding='2' cellspacing='2' bgcolor='#FFFFFF' style='border-right: #D4D4D4 2px solid; border-bottom: #D4D4D4 2px solid;border-top: #e8e8e8 1px solid;border-left: #e8e8e8 1px solid;'><tr><th align='left' height='25' bgcolor='#D6DAD7'><img src='Images/inn.gif' align='absmiddle'> <b>基本信息</b></th></tr>"&_
	"<tr><td height='180' bgcolor='#F7F7F7'><li>昵称："&UserName&"<li>性别："&UserSex&"<li>生日："&Rs("Birthday")&"<li>邮箱：<script>mail('"&BBS94KK.Fun.GetSqlStr(Rs("Mail"))&"')</script><li> QQ："&BBS94KK.Fun.GetSqlStr(Rs("QQ"))&"<li>网站：<a href="&BBS94KK.Fun.GetSqlStr(Rs("Home"))&">"&BBS94KK.Fun.GetSqlStr(Rs("Home"))&"</a><li>论坛职务："&Grade&"<li>注册时间："&Rs("RegTime")&"<li>最后访问："&Rs("LastTime")&"<li>注册时IP："&RegIP&"<li>最后访问IP:"&LastIP&"</td></tr></table>"&_
	"</td><td width='40%' valign=top>"&_
	"<table width='95%' border='0' cellpadding='2' cellspacing='2' bgcolor='#FFFFFF' style='border-right: #D4D4D4 2px solid; border-bottom: #D4D4D4 2px solid;border-top: #e8e8e8 1px solid;border-left: #e8e8e8 1px solid;'><tr><th align='left' height='25' bgcolor='#D6DAD7'><img src='Images/inn.gif' align='absmiddle'> <b>论坛信息</b></th></tr>"&_
	"<tr><td height='180'bgcolor='#F7F7F7'><li>用户等级："&BBS94KK.GradeName(cint(rs("Grade")))&"<li>头街称号："&BBS94KK.Fun.GetSqlStr(Rs("Honor"))&"<li>论坛帮派："&BBS94KK.Fun.GetSqlStr(Rs("Faction"))&"<li>发帖总数："&Rs("EssayNum")&"篇<li>精华帖数："&Rs("GoodNum")&"篇<li>用户金钱："&Rs("Coin")&"元<li>用户存款："&Rs("BankSave")&"元<li>游 戏 币："&Rs("GameCoin")&"枚<li>用户积分："&Rs("Mark")&"分<li>登陆次数："&Rs("LoginNum")&"次</td></tr></table>"&_
	"</td></tr></table>"
	Rs.Close
	Call BBS94KK.ShowTable(Caption,Content)
End Sub 

Sub ShowUserBBS()
	Dim Rs,I,SysInfo,ReplyInfo
	Set Rs=BBS94KK.Execute("select Face,BoardID,Caption,AddTime,TopicID,Name,SqlTableID from  [KK_Topic] where name='"&UserName&"' And IsDel=False order by AddTime desc")
	 Do While not Rs.Eof
		If InStr(","&NoShow&",",","&Rs("BoardID")&",")=0 or (UserName=BBS94KK.MyName or BBS94KK.MyAdmin=1) Then
			i=i+1
			SysInfo=SysInfo& "<tr height='24' onmouseover=javascript:this.bgColor='#FFFDE6' onmouseout=javascript:this.bgColor=''><td background='Images/line_bg.gif' width='65%'><img src='pic/face/"&Rs("Face")&".gif' align='absmiddle'><a href=Show.asp?boardId="&Rs("BoardID")&"&ID="&Rs("TopicID")&"&TB="&Rs("SqlTableID")&">"&BBS94KK.Fun.StrLeft(Rs("Caption"),50)&"</a></td><td  background=Images/line_bg.gif width='15%'>"&Rs("name")&"<td width='20%' background='Images/line_bg.gif'> "&Rs("AddTime")&"</td></tr>"
		End If
		IF i=5 Then Exit Do
		Rs.MoveNext
	 Loop
	Rs.Close
	SysInfo="<br><table align='center' width='96%' border='0' cellpadding='0' cellspacing='3' bgcolor='#FFFFFF' style='border-right: #BCBCBC 2px solid; border-bottom: #BCBCBC 2px solid;border-top: #e8e8e8 1px solid; border-left: #e8e8e8 1px solid;'><tr><th height='25' bgcolor='#E8E8E8' colspan=3 align='left'>&nbsp;<img src='Images/inn.gif' align='absmiddle'> <b>最近发表的主题</b></th></tr><tr><td><table width=98% align='center' cellpadding='0' cellspacing='0' board=0 >"&SysInfo&"</table><br></td></tr></table>"
	i=0
	Set Rs=BBS94KK.Execute("select Face,BoardID,Caption,LastTime,TopicID,Name,SqlTableID from [KK_Topic] where Name<>'"&UserName&"' And IsDel=False and TopicID in (Select ReplyTopicID from [KK_Bbs"&BBS94KK.TB&"] where name='"&UserName&"' And IsDel=False) order by LastTime desc")
	 Do While not Rs.Eof
		If InStr(","&NoShow&",",","&Rs("BoardID")&",")=0 or (UserName=BBS94KK.MyName or BBS94KK.MyAdmin=1) Then
			i=i+1
			ReplyInfo=ReplyInfo& "<tr height='24' onmouseover=javascript:this.bgColor='#FFFDE6' onmouseout=javascript:this.bgColor=''><td background='Images/line_bg.gif' width='65%'><img src='pic/face/"&Rs("Face")&".gif' align='absmiddle'><a href=Show.asp?boardId="&Rs("BoardID")&"&ID="&Rs("TopicID")&"&TB="&Rs("SqlTableID")&">"&BBS94KK.Fun.StrLeft(Rs("Caption"),50)&"</a></td><td  background=Images/line_bg.gif width='15%'>"&Rs("name")&"<td width='20%' background='Images/line_bg.gif'> "&Rs("LastTime")&"</td></tr>"
		End If
		IF i=5 Then Exit Do
		Rs.MoveNext
	 Loop
	Rs.Close
	ReplyInfo="<br><table align='center' width='96%' border='0' cellpadding='0' cellspacing='3' bgcolor='#FFFFFF' style='border-right: #BCBCBC 2px solid; border-bottom: #BCBCBC 2px solid;border-top: #e8e8e8 1px solid; border-left: #e8e8e8 1px solid;'><tr><th height='25' bgcolor='#E8E8E8'  align='left' colspan=3>&nbsp;<img src='Images/inn.gif' align='absmiddle'> <b>最近参与的主题</b></th></tr><tr><td><table width=98% align='center' cellpadding='0' cellspacing='0' board=0 >"&ReplyInfo&"</table><br></td></tr></table><br>"
	Call BBS94KK.ShowTable(UserName&" 帖子信息",SysInfo&ReplyInfo)
End Sub
%>