usermodify.asp

这是作的一个网站,修改很方便,可以做网站设计.管理登陆：admin.asp 帐号和密码：admin/admin

<!--#include file="Gaobei_head.asp" -->
<% 
    if Request.Cookies(Gaobei_Sys)("UserName")="" then 
    Response.redirect"Index.asp" 
    end if
    if Request ("Action")="Save" then
    call Gaobei_RegSave()
    response.end
    end if 
%>
<script language="JavaScript">
   <!--
    function CheckForm()
    {
	if (document.GaobeiSys_Modify.CheckUserPass.value.length == 0)
 {
		alert("请输入确认密码.");
		document.GaobeiSys_Modify.CheckUserPass.focus();
		return false;
	}
	if (document.GaobeiSys_Modify.UserName.value.indexOf("<")!=-1 || document.GaobeiSys_Modify.UserName.value.indexOf(">")!=-1 || document.GaobeiSys_Modify.UserName.value.indexOf("$")!=-1)
{
		alert("用户名中包含非法字符 (<,>,$) ");
		document.GaobeiSys_Modify.UserName.focus();
		return false;
	}
	if (document.GaobeiSys_Modify.UserName.value.indexOf("'")!=-1 || document.GaobeiSys_Modify.UserName.value.indexOf("%")!=-1 || document.GaobeiSys_Modify.UserName.value.indexOf("&")!=-1)
{
		alert("用户名中包含非法字符 (',%,&) ");
		document.GaobeiSys_Modify.UserName.focus();
		return false;
	}
	if (document.GaobeiSys_Modify.ReUserPassword.value!= document.GaobeiSys_Modify.UserPassword.value) 
{
		alert("两次输入密码不一样！");
		document.GaobeiSys_Modify.ReUserPassword.focus();
		return false;
	}
	if (document.GaobeiSys_Modify.UserEmail.value.length == 0) 
{
		alert("请输入Email！");
		document.GaobeiSys_Modify.UserEmail.focus();
		return false;
	}
	
    if (document.GaobeiSys_Modify.UserEmail.value.charAt(0)=="." ||        
         document.GaobeiSys_Modify.UserEmail.value.charAt(0)=="@"||       
         document.GaobeiSys_Modify.UserEmail.value.indexOf('@', 0) == -1 || 
         document.GaobeiSys_Modify.UserEmail.value.indexOf('.', 0) == -1 || 
         document.GaobeiSys_Modify.UserEmail.value.lastIndexOf("@")==document.GaobeiSys_Modify.UserEmail.value.length-1 || 
         document.GaobeiSys_Modify.UserEmail.value.lastIndexOf(".")==document.GaobeiSys_Modify.UserEmail.value.length-1)
     {
      alert("Email的格式不正确！");
      document.GaobeiSys_Modify.UserEmail.focus();
      return false;
      }
		return true;
}
///onSubmit="return CheckForm();"
//-->
</script>
<%
    Set Rs=conn_user.execute("select * from "&Gaobei_DBTable&" where "&Gaobei_UserName&"='"&Request.Cookies(Gaobei_Sys)("UserName")&"'")
    if Rs.eof and Rs.bof then
    response.write "<p align='center'>信息出错！！</p>"
    else
%>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="48">
		<tr>
			<td>
<form method="post" name="GaobeiSys_Modify" action="UserModify.asp?Action=Save" onSubmit="return CheckForm();">

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="768" height="20" background="images/gaobei_userziliao.gif">
		<tr>
			<td></td>
		</tr>
	</table>
</div>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="768" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>
<TABLE cellSpacing=0 cellPadding=0 width=768 align=center border=0 bgcolor="#FFFFFF">
                          <TBODY>
                            <TR> 
                              <TD align=right height=25>用户昵称：</TD>
                              <TD   width=112><INPUT name=UserName id=UserName value="<%=Rs(Gaobei_UserName)%>" size=16 maxLength=16 readonly> 
                              </TD>
                                <TD width="428"><FONT color=#ff0000>*</FONT>-<font color="#999999">用户昵称不能修改</font></TD>
                            </TR>
                            <TR> 
                              <TD align=right height=25>用户密码：</TD>
                              <TD><INPUT name=UserPassword type=password id=UserPassword size=16 maxLength=16></TD>
                                <TD><FONT color=#ff0000>*</FONT>-不修改保留</TD>
                            </TR>
                            <TR> 
                              <TD align=right height=25>确认密码：</TD>
                              <TD><INPUT name=ReUserPassword type=password id=ReUserPassword size=16 maxLength=16></TD>
                                <TD><FONT color=#ff0000>*</FONT>-不修改保留</TD>
                            </TR>
                            <TR>
                              <TD align=right height=25 name="up">用户密码：</TD>
                              <TD><INPUT name=CheckUserPass type=password id=CheckUserPass size=16 maxLength=16></TD>
                                <TD> <FONT color=#ff0000>*</FONT>-你的登陆的密码，用于<font color="#FF0000">确认信息</font>。</TD>
                            </TR>
                            <TR> 
                              <TD align=right height=25 name="up">性别：</TD>
                              <TD> 男 
                                <INPUT type=radio <% If Rs(Gaobei_UserSex)=1 Then%> CHECKED <%End If%>value=1 name=UserSex  style="Border:0Px">
                                女 
                                <INPUT type=radio <% If Rs(Gaobei_UserSex)=0 Then%> CHECKED <%End If%> value=0 name=UserSex  style="Border:0Px"></TD>
                              <TD><FONT color=#ff0000>*</FONT>-<font color="#999999">请选择您的性别</font></TD>
                            </TR>
                            <TR> 
                              <TD align=right height=25>电子信箱：</TD>
                              <TD><INPUT name=UserEmail id=UserEmail value="<%=Rs(Gaobei_UserEmail)%>" size=16 maxLength=30> 
                              </TD>
                              <TD><FONT color=#ff0000>*</FONT>-<FONT color=#999999>必须是有效的电子信箱,当你忘记密码时要用到它</FONT></TD>
                            </TR>
                            <TR> 
                              <TD align=right height=25>密码问题：</TD>
                              <TD><INPUT name=UserQuesion  id=UserQuesion value="<%=Rs(Gaobei_UserQuesion)%>" size=16 maxLength=20></TD>
                              <TD><FONT color=#ff0000>*</FONT>-<font color="#999999">忘记密码的提示问题</font></TD>
                            </TR>
                            <TR> 
                              <TD align=right height=25>密码答案：</TD>
                              <TD><INPUT name=UserAnswer id=UserAnswer size=16 maxLength=20></TD>
                                <TD><FONT color=#ff0000>*</FONT>-<font color="#999999">忘记密码的提示问题答案 
                                  </font>( 不修改保留 )</TD>
                            </TR>
                          </TBODY>
                        </TABLE>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="768" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="768" height="20" background="images/gaobei_userxxzl.gif">
		<tr>
			<td></td>
		</tr>
	</table>
</div>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="768" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>
<TABLE cellSpacing=0 cellPadding=0 width=768 align=center border=0 bgColor=#ffffff>
                            <TBODY>
                              <TR> 
                                <TD align=right width=230 height=24>主页地址：</TD>
                                <TD colSpan=2> <INPUT name=HomePage id=HomePage value="<%=Rs("HomePage")%>" size=35 maxLength=50></TD>
                              </TR>
                              <TR> 
                                <TD align=right height=25>OICQ号码：</TD>
                                <TD colSpan=2> <INPUT name=OICQ id=OICQ value="<%=Rs("OICQ")%>" size=15 maxLength=20></TD>
                              </TR>
                              <TR> 
                                <TD align=right height=25>真实姓名：</TD>
                                <TD colSpan=2> <INPUT name=TrueName id=TrueName value="<%=Rs("TrueName")%>" size=15 maxLength=20> 
                                </TD>
                              </TR>
                              <TR> 
                                <TD align=right height=22>出生日期：</TD>
                                <TD colSpan=2><input name="UserBirthday" type="text" id="UserBirthday" value="<%=Rs("UserBirthday")%>" size=15></TD>
                              </TR>
                              <TR> 
                                <TD align=right height=25>联系地址：</TD>
                                <TD colSpan=2> <INPUT name=UserAddress id=UserAddress value="<%=Rs("UserAddress")%>" size=15 maxLength=30>
                                  邮政编码： 
                                  <input name="PostCode" type="text" id="PostCode" value="<%=Rs("PostCode")%>" size="15" maxlength="15"></TD>
                              </TR>
                              <TR> 
                                <TD align=right height=25>签名/简介：<br> </TD>
                                <TD colSpan=2> 体现您的个性!你的爱好等!<br> <textarea name="UserSign" cols="50" rows="5" id="UserSign"><%=Rs("UserSign")%></textarea> 
                                </TD>
                              </TR>
                              <TR>
                                <TD align=right height=25>　</TD>
                                <TD colSpan=2><input type="submit" name="Submit" value="确定修改">
                                  <input name="Reset" type="reset" id="Reset" value="重新设置"> 
                                </TD>
                              </TR>
                            </TBODY>
                          </TABLE>
               </form>
<% end if %>
			</td>
		</tr>
	</table>
</div>
<!--#include file="Gaobei_foot.asp" -->
<%
Sub Gaobei_RegSave()
CheckUserPass=Request.form("CheckUserPass")
If CheckUserPass="" Then 
response.write"<script>alert(""请输入确认密码!\n\n"");location.href=""javascript:history.back()"";</script>"
response.end
End if

Dim UserName,UserPassword,ReUserPassword,UserCheckCode,UserEmail,UserQuesion,UserAnswer
Dim HomePage,OICQ,TrueName,UserBirthday,UserAddress,PostCode,UserSign
'一定要写的资料----------------------------------
UserName=Trim(Request.Cookies(Gaobei_Sys)("UserName"))
UserPassword = Trim(Request("UserPassword"))
ReUserPassword = Trim(Request("ReUserPassword"))
UserCheckCode = Trim(Request("UserCheckCode"))
UserSex = Request("UserSex")
UserEmail = Request("UserEmail")
UserQuesion = Trim(Request("UserQuesion"))
UserAnswer = Trim(Request("UserAnswer"))
'可以不填的资料----------------------------------
HomePage = Request("HomePage")
OICQ = Request("OICQ")
TrueName = Request("TrueName")
UserBirthday = Request("UserBirthday")
UserAddress = Request("UserAddress")
PostCode = Request("PostCode")
UserSign = Request("UserSign")

if UserPassword<>ReUserPassword then 
response.write"<script>alert(""两次输入密码不一样!\n\n请重新输入！"");location.href=""javascript:history.back()"";</script>"
response.end
end if
set rs=server.createobject("adodb.recordset")
CheckUserPass=Md5(CheckUserPass)
sql="select * from "&Gaobei_DBTable&" where "&Gaobei_UserName&"='"&UserName&"'and "&Gaobei_UserPassword&"='"&CheckUserPass&"'"
rs.open sql,conn_user,1,3
if (rs.eof and rs.bof) then
 response.write"<script>alert('用户 "&UserName&" 不存在!\n\n或者你的信息填写错误！ ');location.href=""javascript:history.back()"";</script>"
else

      Rs(Gaobei_UserName)=UserName
If UserPassword<>"" then
	UserPassword=Md5(UserPassword) 'MD5()
	Rs(Gaobei_UserPassword)=UserPassword
End If
      Rs(Gaobei_UserSex)=UserSex
      Rs(Gaobei_UserEmail)=UserEmail
      Rs(Gaobei_UserQuesion)=UserQuesion
    If Trim(request.form("UserAnswer"))<>"" then
	UserAnswer=Md5(UserAnswer) 'MD5()
	Rs(Gaobei_UserAnswer)=UserAnswer
End If
'可以不填的资料----------------------------------
      Rs("HomePage")=HomePage
      Rs("OICQ")=OICQ
      Rs("TrueName")=TrueName
      Rs(Gaobei_UserBirthday)=UserBirthday
      Rs("UserAddress")=UserAddress
      Rs("PostCode")=PostCode
      Rs(Gaobei_UserSign)=UserSign
'Call DealCookie_Gaobei_Sys()
    Rs.update
	Rs.close
	Set Rs=nothing
response.write"<script>alert('恭喜您"&UserName&"：信息已修改成功!\n ');location.replace('Index.asp')</script>"
end if
end sub
Sub DealCookie_Gaobei_Sys()
	Response.Cookies(GaobeiSys)("UserID")=rs(Gaobei_UserID)
	Response.Cookies(GaobeiSys)("Username")=rs(Gaobei_Username)
	Response.Cookies(GaobeiSys)("Grade") =rs("UserGrade")
	Response.Cookies(GaobeiSys)("Money")=rs(Gaobei_UserMoney)
	Response.Cookies(GaobeiSys)("UserEmail")=rs(Gaobei_UserEmail)
	If CookieDate<>"" Then 
	   CookieDate=0
	End If 
	Response.Cookies(GaobeiSys)("CookieDate") = CookieDate
	Select case CookieDate
		case 0
			'Not Save
		case 1
		   	Response.Cookies(GaobeiSys).Expires=Date+1
		case 2
			Response.Cookies(GaobeiSys).Expires=Date+31
		case 3
			Response.Cookies(GaobeiSys).Expires=Date+365
	End select
End sub
%>
</BODY></HTML>