usersetup.asp

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

<!--#include file="Inc.asp"--><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="Inc/md5.asp"-->
<%
Dim Action
If BBS94KK.FoundUser Then BBS94KK.Position=BBS94KK.Position&" → <a href=UserInfo.asp>用户控制面版<a>"
Action=Lcase(Request.Querystring("Action"))
Select Case Action
Case"myinfo"
	MyInfo()
	%>
	<script language="JavaScript" type="text/JavaScript">
	function ShowPic(){
	document.images.Pic.src="pic/headpic/"+document.form.headpic.options[document.form.headpic.selectedIndex].value+".gif";
	document.form.PicUrl.value="pic/headpic/"+document.form.headpic.options[document.form.headpic.selectedIndex].value+".gif";
	}
	function QQpic(){
	if (document.form.IsQQpic.checked == true){
		pic.style.display="none";
		pic1.style.display="none";
		}else{
		pic.style.display="block";
		pic1.style.display="block";
		}}
	QQpic()
	</script>
	<%
Case"savemyinfo"
	SaveMyInfo
Case"mypassword"
	MyPassword
Case"savemypassword"
	SaveMyPassword
Case"forgetpassword"
	forgetpassword
Case"getpassword"
	GetPassword
Case else
	BBS94KK.GoToErr(1)
End Select
BBS94KK.Footer()
Set BBS94KK=Nothing
Sub MyManager()
	Response.Write BBS94KK.Template.ReadTemplate("用户控制面版")
End Sub

Sub Myinfo()
	Dim Rs,Caption,Content,temp
	Call BBS94KK.Head("修改个人资料")
	MyManager()
	If Not BBS94KK.FoundUser Then BBS94KK.GotoErr(4)
	SET RS=BBS94KK.Execute("Select Name,Sex,Birthday,Mail,Home,IsQQpic,QQ,Pic,Pich,Picw,IsSign,Sign,Honor,Grade From[KK_user]where Name='"&BBS94KK.MyName&"' And PassWord='"&BBS94KK.MyPwd&"' And ID="&BBS94KK.MyID&" And Isdel=False")
	IF Rs.eof Then BBS94KK.MakeCookiesEmpty():BBS94KK.GotoErr(100)
	Content="<form style='margin:0' method='POST' action='?action=SaveMyInfo' name='form'>"&_
	"<br><table align='center' width='97%' border='0' cellpadding='0' cellspacing='5' 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 align='left' height='25' bgcolor='#E8E8E8' colspan=3>&nbsp;<img src='Images/inn.gif' align='absmiddle'> <b>修改个人资料</b></th></tr><tr><td>"&_
	"<table width=98% align='center' border=1 rules=rows frame=void style='border-collapse: collapse;'>"&_
	"<tr><td width='35%'><b>用户名称</b>：<br>此为论坛ID帐号，自己不能修改</td><td width='65%'><b>"&Rs("Name")&"</b></td></tr>"&_
	"<tr><td><b>您的性别：</b></td><td><input name='sex' type='radio' value='1'"
	If Rs("Sex") Then Content=Content & " checked"
	Content=Content & "><img src='Images/male.gif' align='absmiddle'></img> 帅哥&nbsp;&nbsp;<input type='radio' name='sex' value='0'"
	If Not Rs("Sex") Then Content=Content & " checked"
	Content=Content & "><img src='Images/female.gif' align='absmiddle'> 靓女</td></tr>"&_
	"<tr><td><b>Email地址</b>：<br>请输入有效的邮件地址</td><td><input type='text' name='Mail' size='30' maxlength='30' value='"&Rs("Mail")&"'></td></tr>"&_
	"<tr><td width='35%'><b>生日：</b><br>请按照1980-2-3格式填写</td><td width='65%'><input Type=text name='Birthday' value='"&Rs("Birthday")&"'></td></tr>"&_
	"<tr><td><b>主页：</b><br>填写你的个人主页，让大家见识见识！</td><td><input type=text name='Home' size='30' maxlength='200' value='"&Rs("Home")&"'></td></tr>"&_
	"<tr><td><B>OICQ号码</B>：<BR>填写您的QQ地址，方便与他人的联系</td><td><input type='text' name='QQ' value='"&Rs("QQ")&"' maxlength='15'> <input type='checkbox' onclick='QQpic()' name='IsQQpic' value='1'"
	If Rs("IsQQPic") Then
		Content=Content & " checked"
	End If
	Content=Content & ">启用QQ形象作为头像</td></tr>"&_
	"<tr id=pic><td valign='top'><b>我的头像：</b><br>使用论坛自带的图像</td><td>" & HeadPicOpt() &"<img src='"&Rs("Pic")&"' name='Pic'>&nbsp;&nbsp;<input onclick=javascript:window.open('See.asp?Action=HeadPic','open','width=600,height=300,resizable=1,scrollbars=yes,menubar=no,status=yes') type=button value='全部头像'></td></tr>"&_
	"<tr id=pic1><td><B>自定义头像</B>：<br> 如果图像位置中有连接图片将以自定义的为主</td><td>"
	If BBS94KK.BbsCache(23)=0 then
		Content=Content & "<input type=button value='上传头像图片' onclick=""javascript:up.style.display='block';upf.location.href='UploadFile.asp?Flag=1';this.style.display='none'""><div id='up' style='display:none'><iframe id='upf' scrolling='no' frameborder='0' height='22' width='100%'></iframe></div><br>"
	End if
	If Int(Rs("Grade"))<Int(BBS94KK.BbsCache(30)) then
		 Temp="您的等级未达到 <font Color=red>"&BBS94KK.BbsCache(30)&"</font> 不能自定头衔称号<input type='hidden' value='"&Rs("Honor")&"' name='Honor'>"
	Else
		 Temp="<input type='text' value='"&Rs("Honor")&"' name='Honor'>"
	End If
	Content=Content & "<input name='PicUrl' value='"&Rs("Pic")&"' size='40' maxlength='100'> 完整Url地址<br>图像宽度：<input type=text name='PicW' size='6' value='"&Rs("PicW")&"'> 高度：<input type=text name='PicH' size='6' value='"&Rs("PicH")&"'>(最大限度:"&BBS94KK.BbsCache(20)&")</td></tr>"&_
	"<tr><td><B>自定义头衔称号</B>：<BR>最多8个汉字</td><td>"&Temp&"</td></tr>"&_
	"<tr><td valign='top'><B>个性签名</B>：<BR>最多255个字符<BR> 文字将出现在您发表的文章的结尾处<br>体现您的个性</td><td><TEXTAREA name='Sign' rows='4' style='PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px;WIDTH: 100%;'>"&Rs("Sign")&"</textarea></td></tr>"&_
	"<tr><td colspan='2' height='30' align='center'><input type='submit' value='确定修改！'>&nbsp;&nbsp; <input type=reset value='取消重置！'></td></tr></table></td></tr></table><br></form>"
	Caption="修改我的资料"
	Call BBS94KK.ShowTable(Caption,Content)
End Sub

	
Function HeadPicOpt()
	Dim Temp,i
	for i=2 to Int(BBS94KK.BbsCache(19))
		Temp=Temp&"<option value="&i&">"&i&"</option>"
	Next
	HeadPicOpt="<select name=headpic size=8 onChange='ShowPic()'><option value='1' selected>1</option>"&Temp&"</select>"
End Function	

Sub SaveMyInfo()
	Dim Caption,Content,Mail,PicUrl,HeadPic,PicW,PicH,Home,Sign,QQ,IsQQpic,Sex,Birthday,Honor
	If Not BBS94KK.FoundUser Then BBS94KK.GotoErr(4)
	BBS94KK.Fun.CheckMake'禁止外部提交
	Call BBS94KK.Head("修改个人资料")
	MyManager()
	Mail=BBS94KK.Fun.GetStr("Mail")
	If Mail="" Then BBS94KK.GoToErr(32)	
	Mail=server.HTMLEncode(Mail)
	If Not BBS94KK.Fun.IsValidEmail(Mail) Then BBS94KK.GoToErr(30)
	PicUrl=BBS94KK.Fun.ubbg(BBS94KK.Fun.GetStr("PicUrl"))
	HeadPic=BBS94KK.Fun.ubbg(BBS94KK.Fun.GetStr("HeadPic"))
	Honor=BBS94KK.Fun.GetStr("Honor")
	If Not BBS94KK.Fun.CheckName(Honor) Then BBS94KK.GoToErr(55)
	Home=BBS94KK.Fun.ubbg(BBS94KK.Fun.GetStr("Home"))
	If Instr(Home,"://")=0 Then Home=""
	Sex=BBS94KK.Fun.GetStr("Sex")
	Birthday=BBS94KK.Fun.GetStr("Birthday")
	QQ=BBS94KK.Fun.GetStr("QQ")
	IsQQpic=BBS94KK.Fun.GetStr("IsQQpic")
	If IsQQpic<>"1" Then IsQQpic="0"