editprofile.asp

秘密网源代码 传闻拉了 100W风投

<!-- #include file="Setup.asp" -->
<!-- #include file="Utility/MD5.asp" -->
<!--#include FILE="Utility/UpFile_Class.asp"-->

<%
if Request("menu")="upface" then
	if CookieUserName=empty then Alert("您还未登录")
	UpFace
elseif Request("menu")="PostUpFace" then
	if CookieUserName=empty then Alert("您还未登录")
	UserID=Conn.Execute("Select UserID From [Wo_Users] where UserID="&CookieUserID&"")(0)
	UpFolder="UpFile/UpFace/"&CookieUserID&""	'上传路径及文件名
	UpClass="Face"
	UpMaxFileSize=SiteConfig("MaxFaceSize")*1024		'最大上传文件大小
%>
	<!--#include FILE="Utility/UpFile.asp"-->
	<script language="JavaScript">
		parent.document.form.UserFaceUrl.value='<%=SaveFile%>';
		parent.document.getElementById("tus").src='<%=SaveFile%>';
		parent.Wo_Modal.Close();
	</script>
<%
else
if CookieUserName=empty then error("您还未<a href=Login.asp?ReturnUrl="&ReturnUrl&">登录</a>")

HtmlTop
%>

<%

select case Request("menu")
	case "editProfileok"
		editProfileok
	case "passok"
		passok
end select
%>
<SCRIPT type="text/javascript" src="Utility/pswdplc.js"></SCRIPT>
<SCRIPT type="text/javascript" src="Utility/calendar.js"></SCRIPT>
<table width="900" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><div id="CommonBreadCrumbArea"><%ClubTree%> → 编辑资料</div></td>
  </tr>
</table>
<table cellspacing=1 cellpadding=0 width=900 id=CommonListArea align="center">
	<TR id=CommonListTitle3>
		<TD align="center"><a href="EditProfile.asp">资料修改</a></td>
		<TD align="center"><a href="EditProfile.asp?menu=pass">密码修改</a></td>
		<TD align="center"><a href="MyUpFiles.asp">上传管理</a></td>
		<TD align="center"><a href="MyFavorites.asp">收 藏 夹</a></td>
		<TD align="center"><a href="MyMessage.asp">短信服务</a></td>
	</TR>
</TABLE>
<br>
<%
select case Request("menu")
	case "pass"
		pass
	case else
		default
end select

Sub default
	sql="select * from [Wo_Users] where UserID="&CookieUserID&""
	Set Rs=Conn.Execute(sql)
		if Rs.eof then error("该窝友资料不存在")

		XMLDOM.loadxml("<Wo>"&Rs("UserInfo")&"</Wo>")
		QQ=SelectSingleNode("QQ")
		ICQ=SelectSingleNode("ICQ")
		AIM=SelectSingleNode("AIM")
		MSN=SelectSingleNode("MSN")
		Yahoo=SelectSingleNode("Yahoo")
		Skype=SelectSingleNode("Skype")
		UserSign=replace(""&Rs("UserSign")&"","<br>",vbCrlf)
		UserBio=replace(""&Rs("UserBio")&"","<br>",vbCrlf)

		birthday=Rs("birthday")

%>
<form method="POST" name="form" action="EditProfile.asp">
<input type=hidden name=menu value="editProfileok">
<table cellspacing=0 cellpadding=0 width=900 align="center">
  <tr height=22 style="text-align:center">
    <td class=PannelOn id=PannelHeader0 onclick="ShowPannel(0,3)">基本资料</td>
    <td class=PannelOff id=PannelHeader1 onclick="ShowPannel(1,3)">签名＆简介</td>
    <td class=PannelOff id=PannelHeader2 onclick="ShowPannel(2,3)">即时通信</td>
    <td class=PannelOff id=PannelHeader3 onclick="ShowPannel(3,3)">头像设置</td>
    <td width=40% class="TableRight">　</td>
  </tr>
</table>

<table id="Pannel0" style="display:" cellspacing=0 cellpadding=0 width=900 class="PannelBody" align="center">
	<tr>
      <td width="100"><b>名字</b></td>
      <td><input type="text" name="RealName" size="20" value="<%=Rs("RealName")%>"></td>
    </tr>
	<tr>
    	<td width="100"><b>性别</b>		</td>
    	<td><select size=1 name=UserSex>
				<option value=0 selected>[请选择]</option>
				<option value=1 <%if Rs("UserSex")=1 then%>selected<%end if%>>男</option>
				<option value=2 <%if Rs("UserSex")=2 then%>selected<%end if%>>女</option>
			</select></td>
	</tr>
	<tr>
		<td width="100"><b>生日</b></td>
		<td><input onclick="showcalendar(event, this)"  onfocus="showcalendar(event, this)" size=24 value="<%=birthday%>" name=birthday></td>
	</tr>
	<tr>
	    <td width="100"><b>职业</b></td>
	    <td><input type="text" name="Occupation" size="30" value="<%=Rs("Occupation")%>"></td>
	</tr>
	<tr>
		<td width="100"><b>兴趣</b></td>
		<td><input type="text" name="Interests" size="30" value="<%=Rs("Interests")%>"></td>
	</tr>
	<tr>
		<td width="100"><b>地址</b></td>	
		<td><input type="text" name="Address" size="30" value="<%=Rs("Address")%>"></td>	
	</tr>
	<tr>
		<td width="100"><b>主页</b></td>
		<td><input type="text" name="WebAddress" size="30" value="<%=Rs("WebAddress")%>"></td>
	</tr>
	<tr>
		<td width="100"><b>博客</b></td>
		<td><input type="text" name="WebLog" size="30" value="<%=Rs("WebLog")%>"></td>
	</tr>
	<tr>
		<td width="100"><b>相册</b></td>
		<td><input type="text" name="WebGallery" size="30" value="<%=Rs("WebGallery")%>"></td>
	</tr>
</table>
<table id="Pannel1" style="display:none;" cellspacing=0 cellpadding=0 width=900 class=PannelBody align="center">
	<tr>
		<td>
			<p><b>签名</b><br><textarea name=UserSign rows=7 cols=80><%=UserSign%></textarea></p>
			<p><b>简介</b><br><textarea name=UserBio rows=8 cols=80><%=UserBio%></textarea></p>
		</td>
	</tr>
</table>
	<table id="Pannel2" style="display:none" cellspacing=0 cellpadding=0 width=900 class=PannelBody align="center">
		<tr>
			<td width="100"><img src=images/im_qq.gif align=absmiddle> <b>QQ</b></td>
			<td><b><input type="text" name="QQ" size="20" onkeyup=if(isNaN(this.value))this.value='' value="<%=QQ%>"></b></td>
		</tr>
		<tr>
			<td><img src=images/im_icq.gif align=absmiddle> <b>ICQ</b></td>
			<td><b><input type="text" name="ICQ" size="20" onkeyup=if(isNaN(this.value))this.value='' value="<%=ICQ%>"></b></td>
		</tr>
		<tr>
			<td><img src=images/im_aim.gif align=absmiddle> <b>AIM</b></td>
			<td><b><input type="text" name="AIM" size="20" value="<%=AIM%>"></b></td>
		</tr>
		<tr>
			<td><img src=images/im_msn.gif align=absmiddle> <b>MSN</b></td>
			<td><b><input type="text" name="MSN" size="20" value="<%=MSN%>"></b></td>
		</tr>
		<tr>
			<td><img src=images/im_yahoo.gif align=absmiddle> <b>Yahoo</b></td>
			<td><b><input type="text" name="Yahoo" size="20" value="<%=Yahoo%>"></b></td>
		</tr>
		<tr>
			<td><img src=images/im_skype.gif align=absmiddle> <b>Skype</b></td>
			<td><b><input type="text" name="Skype" size="20" value="<%=Skype%>"></b></td>
		</tr>
	</table>
<table id="Pannel3" style="display:none" cellspacing=0 cellpadding=0 width=900 class=PannelBody align="center">
	<tr>
		<td width="50">
			<table cellspacing=0 cellpadding=0 border=0 width=62 style='cursor:pointer' onclick="javascript:open('Utility/Face.htm','','width=500,height=500,resizable,scrollbars')"><tr><td style="padding-left:1px; padding-top:1px; background-repeat:no-repeat" background=Images/FaceBackground.gif><img id="tus" src="<%=Rs("UserFaceUrl")%>" width=48 height=48 name=tus border="0" title="选择系统给定的头像"></td></tr></table>
		</td>
		<td>
			<b>头像地址</b> <input type="text" value="<%=Rs("UserFaceUrl")%>" name="UserFaceUrl" size="40" <%if SiteConfig("EnableRemoteAvatars")=0 then%> readonly <%end if%> > <a href="javascript:Wo_Modal.Open('EditProfile.asp?menu=upface',500,150);" class="CommonTextButton" title="上传本地自定义头像">上传头像</a>
	 	</td>
	</tr>
</table>


<div style="padding-top:5px"><input type="submit" value=" 确 定 "></div>
</form>

<%
End Sub

Sub editProfileok
	UserSign=HTMLEncode(Request.Form("UserSign"))
	UserFaceUrl=HTMLEncode(Request("UserFaceUrl"))
	birthday=Request("birthday")
	

	
	if birthday<>"" then
		if Not IsDate(birthday) then Message=Message&"<li>出生日期输入格式错误"
	end if
	
	if instr(UserFaceUrl,";")>0 or instr(UserFaceUrl,"%")>0 or instr(UserFaceUrl,"javascript:")>0 then Message=Message&"<li>头像URL中不能含有特殊符号"

	if Len(UserSign)>SiteConfig("SignatureMaxLength") then Message=Message&"<li>签名档不能大于 "&SiteConfig("SignatureMaxLength")&" 个字节"
	
	if Message<>"" then error(""&Message&"")

	sql="select * from [Wo_Users] where UserID="&CookieUserID&""
	Rs.Open sql,Conn,1,3
	XMLDOM.loadxml("<Wo>"&Rs("UserInfo")&"</Wo>")
		Set objRoot = XMLDOM.documentElement
		objRoot.SelectSingleNode("QQ").text = ""&server.HTMLEncode(Request("QQ"))&""
		objRoot.SelectSingleNode("ICQ").text = ""&server.HTMLEncode(Request("ICQ"))&""
		objRoot.SelectSingleNode("AIM").text = ""&server.HTMLEncode(Request("AIM"))&""
		objRoot.SelectSingleNode("MSN").text = ""&server.HTMLEncode(Request("MSN"))&""
		objRoot.SelectSingleNode("Yahoo").text = ""&server.HTMLEncode(Request("Yahoo"))&""
		objRoot.SelectSingleNode("Skype").text = ""&server.HTMLEncode(Request("Skype"))&""
		Set objNodes=XMLDOM.documentElement.ChildNodes
		for each element in objNodes
			UserInfoList=UserInfoList&"<"&element.nodename&">"&element.text&"</"&element.nodename&">"&vbCrlf
		next
		
		if IsDate(birthday) then
			Rs("birthday")=birthday
		else	
			Rs("birthday")=null
		end if

		Rs("UserFaceUrl")=UserFaceUrl
		Rs("UserSex")=RequestInt("UserSex")
		Rs("UserBio")=HTMLEncode(Request("UserBio"))
		Rs("RealName")=HTMLEncode(Request("RealName"))
		Rs("Occupation")=HTMLEncode(Request("Occupation"))
		Rs("Address")=HTMLEncode(Request("Address"))
		Rs("Interests")=HTMLEncode(Request("Interests"))
		Rs("WebAddress")=HTMLEncode(Request("WebAddress"))
		Rs("WebLog")=HTMLEncode(Request("WebLog"))
		Rs("WebGallery")=HTMLEncode(Request("WebGallery"))
		Rs("UserSign")=UserSign
		Rs("UserInfo")=UserInfoList

	Rs.update
	Rs.close

	Message=Message&"<li>修改资料成功</li><li><a href=Profile.asp?UserName="&CookieUserName&">查看我的资料</a></li>"
	succeed Message,"Profile.asp?UserName="&CookieUserName&""
	
	
End Sub

Sub pass
	sql="select * from [Wo_Users] where UserID="&CookieUserID&""
	Set Rs=Conn.Execute(sql)
%>
<form method="POST" name="form"action="EditProfile.asp" onsubmit="return VerifyInput();">
<table cellspacing=1 cellpadding=0 width=900 align="center" id=CommonListArea>
	<input type=hidden name="menu" value="passok">
	<tr id=CommonListTitle3>
		<td align="center" colspan="2" valign="bottom">窝友密码修改</td>
	</tr>
	<tr id=CommonListCell>
	    <td align="right" width="45%" height="28"><b> 原密码：</b></td>
	    <td align="Left" width="55%"> <input type="password" name="OldUserPass" size="40"></td>
	</tr>
	<tr id=CommonListCell>
	    <td align="right" width="45%" height="30"><b> 新密码：</b><br>如不更改密码此处请留空</td>
		<td align="Left" width="55%"> <input type="password" name="Userpass" size="40" maxLength="16" onkeyup=EvalPwd(this.value); onchange=EvalPwd(this.value);></td>
	</tr>
	<tr id=CommonListCell>
	    <td align="right" width="45%" height="25"><b>密码强度：</b></td>
	    <td align="Left" width="55%">
			<table border="0" width="250" cellspacing="1" cellpadding="2">
				<tr bgcolor="#f1f1f1">
					<td id=iWeak align="center">弱</td>
					<td id=iMedium align="center">中</td>
					<td id=iStrong align="center">强</td>
				</tr>
			</table>
		</td>
	</tr>
	<tr id=CommonListCell>
	    <td align="right" width="45%" height="35"><b>重新键入新密码：</b><br>请与您的新密码保持一致</td>
	    <td align="Left" valign="middle" width="55%"> <input type="password" name="RetypePassword" size="40" maxlength="16"></td>
	</tr>
	<tr id=CommonListCell>
	    <td align="right" width="45%" height="30"><b>邮箱地址：</b></td>
	    <td align="Left" width="55%"> <input type="text" name="UserEmail" size="40" value="<%=Rs("UserEmail")%>"></td>
	</tr>
	<tr id=CommonListCell>
	    <td align="center" width="100%" colspan="2" height="28"> <input type="submit" value=" 确 定 "></td>
	</tr>
</table>
</form>
<script language="JavaScript">
function VerifyInput()
{
	var Mail = document.form.UserEmail.value;
	if(Mail.indexOf('@',0) == -1 || Mail.indexOf('.',0) == -1){
		alert("您输入的Email有错误\n请重新检查您的Email");
		document.form.UserEmail.focus();
		return false;
	}
	if (document.form.UserEmail.value == "")
	{
		alert("请输入您的Email地址");
		document.form.UserEmail.focus();
		return false;
	}
	if (document.form.Userpass.value != document.form.RetypePassword.value)
	{
		alert("您二次键入的新密码不同！");
		document.form.Userpass.focus();
		return false;
	}
	return true;
}
</SCRIPT>
<%
End Sub

Sub passok
	Userpass=Trim(Request("Userpass"))
	OldUserPass=Trim(Request("OldUserPass"))
	RetypePassword=Trim(Request("RetypePassword"))
	UserEmail=HTMLEncode(Request("UserEmail"))
	if instr(UserEmail,"@")=0 then error("您的电子邮箱地址填写错误")
	sql="select * from [Wo_Users] where UserID="&CookieUserID&""
	Rs.Open sql,Conn,1,3
		if md5(OldUserPass)<>Rs("Userpass") then Message=Message&"<li>您的原密码错误"
		if Userpass<>RetypePassword then Message=Message&"<li>您的新密码和确认新密码不同"
		if Userpass<>empty then
			if Len(Userpass)<6 then Message=Message&"<li>新密码必须至少包含 6 个字符"
			Rs("Userpass")=md5(Userpass)
		end if
		
		if UserEmail<>Rs("UserEmail") then 
			If not Conn.Execute("Select UserID From [Wo_Users] where UserEmail='"&UserEmail&"'" ).eof Then Message=Message&"<li>"&UserEmail&" 已经被别人注册了"
		end if
		
		if Message<>"" then error(""&Message&"")
		
		Rs("UserEmail")=UserEmail
	Rs.update
	Rs.close
	Message=Message&"<li>修改资料成功</li><li><a href=Profile.asp?UserName="&CookieUserName&">查看我的资料</a></li>"
	succeed Message,"Profile.asp?UserName="&CookieUserName&""

End Sub


Set XMLDOM=Nothing
HtmlBottom

end if
Sub UpFace
Response.clear
%>
<title>上传头像</title>

<body style="FONT-SIZE:9pt;">
<form enctype=multipart/form-data method=Post action="?menu=PostUpFace">
<input type=file name="file" size=50><br><br>
支持文件类型：GIF、JPG、JPEG、PNG<br>
文件大小限制：<%=CheckSize(SiteConfig("MaxFaceSize")*1024)%><br><br>
<center><input type=submit value=" 上 传 "> <input type="button" onclick="javascript:parent.Wo_Modal.Close()" value=" 取 消 "></center>
</form>
</body>
<%
End Sub
%>