usersetup.asp

网趣购物系统加强升级版 ○ 完美整合BBS论坛程序

<!--#include file="Inc/SysConfig.Asp"-->
<!--#include file="Inc/md5.Asp"-->
<%
Dim Action
If YxBBs.FoundUser Then YxBBs.Position=YxBBs.Position&" <FONT face=Webdings>8</FONT> <a href=Profile.Asp>控制面版<a>"
Action=Lcase(Request.QueryString("Action"))
Select Case Action
Case"myinfo"
	MyInfo()
	%>
	<script>
	function ShowPic(){
	document.images.Pic.src=document.form.headpic.options[document.form.headpic.selectedIndex].value;
	document.form.PicUrl.value=document.form.headpic.options[document.form.headpic.selectedIndex].value;
	}
	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()
	first("selectp","selectc","form",0,0);
	</script>
	<%
Case"savemyinfo"
	SaveMyInfo
Case"mypassword"
	MyPassword
Case"savemypassword"
	SaveMyPassword
Case"forgetpassword"
	forgetpassword
Case"getpassword"
	GetPassword
Case else
	YxBBs.Error("错误的地址栏参数，请不要手动去更改地址栏参数！")
End Select
YxBBs.Footer()
Set YxBBs=Nothing


Sub Myinfo()
	Dim Rs,Caption,Content,temp,i
	Call YxBBs.Head("修改个人资料")
	If Not YxBBs.FoundUser Then YxBBs.Error("您还没有注册或者登陆！")
	Set Rs=YxBBs.Execute("Select Name,Sex,Birthday,Mail,Home,IsQQpic,QQ,Pic,Pich,Picw,IsSign,Sign,Honor,GradeNum From [YX_user]where Name='"&YxBBs.MyName&"' And PassWord='"&YxBBs.MyPwd&"' And ID="&YxBBs.MyID&"")
	IF Rs.eof Then YxBBs.MakeCookiesEmpty():YxBBs.Error("您没有进行这个操作的权限！")
	Content="<FORM name=form style='margin:0' method='POST' action='?action=SaveMyInfo'>"&_
	"<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><td align='left' height='25' bgcolor='#E8E8E8' colspan=3>&nbsp;<img src='Images/inn.gif' align='absmiddle'> <b>修改个人资料</b></td></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>"
	If Int(Rs("GradeNum"))<Int(YxBBs.BBSSetting(25)) then
		 Temp="您的等级未达到 <B><font Color=red>"&YxBBs.BBSSetting(25)&"级</font></B> 不能自定头衔称号<input type='hidden' value='"&Rs("Honor")&"' name='Honor'>"
	Else
		 Temp="<input type='text' value='"&Rs("Honor")&"' name='Honor'>"
	End If
	Content=Content & "<tr><td><B>自定义街称号</B>：<BR>最多6个汉字</td><td>"&Temp&"</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/11.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/01.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>请按照1986-08-16格式填写</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>QQ号码</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>"
	Content=Content & "<select name=headpic size=8 onChange='ShowPic()'><option value='"&Rs("Pic")&"' selected>默认头像</option>"
	for i=1 to Int(YxBBs.BBSSetting(14))
		Content=Content & "<option value=Images/UserHead/"&i&".gif>"&i&"</option>"
	Next
	Content=Content & "</select>"
	Content=Content & "<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 YxBBs.BBSSetting(18)=0 then
        If Int(Rs("GradeNum"))>Int(YxBBs.BBSSetting(35)) then
		Content=Content & "<input type=button value='上传头像图片' onclick=""javascript:up.style.display='block';upf.location.href='ViewFile.Asp?Action=Upload&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>"
        Else
               Content=Content & "您的等级未达到 <B><font Color=red>"&YxBBs.BBSSetting(35)&"级</font></B> 不能上传头像图片<br>"
	End if
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")&"'>(最大限度:"&YxBBs.BBSSetting(15)&")</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>"&_
"</table></td></tr></table><br>"

	Content=Content & "                  <tr>"& vbCrLf
	Content=Content & "                    <td colspan='2' height='30' align='center'><input name=""submit"" type='submit' value='确定修改！'>"& vbCrLf
	Content=Content & "          &nbsp;&nbsp;"& vbCrLf
	Content=Content & "                      <input name=""reset"" type=reset value='取消重置！'></td>"& vbCrLf
	Content=Content & "                  </tr>"& vbCrLf
	Content=Content & "              </table></td>"& vbCrLf
	Content=Content & "            </tr>"& vbCrLf
	Content=Content & "          </table><br></td>"& vbCrLf
	Content=Content & "            </tr>"& vbCrLf
	Content=Content & "          </table></form>"& vbCrLf
	Caption="修改我的资料"
	Call YxBBs.ShowTable(Caption,Content)
End Sub
	

Sub SaveMyInfo()
	Dim Caption,Content,Mail,PicUrl,HeadPic,PicW,PicH,Home,Sign,QQ,IsQQpic,Sex,Birthday,Honor
	If Not YxBBs.FoundUser Then YxBBs.Error("您还没有注册或者登陆！")
	YxBBs.Fun.CheckMake
	Call YxBBs.Head("修改个人资料")
	Mail=YxBBs.Fun.GetStr("Mail")
	If Mail="" Then YxBBs.Error("E-Mail地址不能为空！")	
	Mail=server.HTMLEncode(Mail)
	If Not YxBBs.Fun.IsValidEmail(Mail) Then YxBBs.Error("请填写有效的E-Mail地址！")
	PicUrl=YxBBs.Fun.ubbg(YxBBs.Fun.GetStr("PicUrl"))
	HeadPic=YxBBs.Fun.ubbg(YxBBs.Fun.GetStr("HeadPic"))
	Honor=YxBBs.Fun.GetStr("Honor")
	If Not YxBBs.Fun.CheckName(Honor) Then YxBBs.Error("自定义头衔包含非法字符！")
	Home=YxBBs.Fun.ubbg(YxBBs.Fun.GetStr("Home"))
	If Instr(Home,"://")=0 Then Home=""
	Sex=YxBBs.Fun.GetStr("Sex")
	Birthday=YxBBs.Fun.GetStr("Birthday")
	QQ=YxBBs.Fun.GetStr("QQ")