yhzc_modify.asp
来自「为中小型企业与欲创业的个人提供一个合适的企业型网站」· ASP 代码 · 共 307 行
ASP
307 行
<!--#include file="top.asp"-->
<%
if Request.Cookies(Tyi86_Sys)("UserName")="" then
Response.redirect"Index.asp"
end if
if Request ("Action")="Save" then
call Tyi86_RegSave()
response.end
end if
%>
<script language="JavaScript">
<!--
function CheckForm()
{
if (document.Tyi86Sys_Modify.CheckUserPass.value.length == 0)
{
alert("请输入确认密码.");
document.Tyi86Sys_Modify.CheckUserPass.focus();
return false;
}
if (document.Tyi86Sys_Modify.UserName.value.indexOf("<")!=-1 || document.Tyi86Sys_Modify.UserName.value.indexOf(">")!=-1 || document.Tyi86Sys_Modify.UserName.value.indexOf("$")!=-1)
{
alert("用户名中包含非法字符 (<,>,$) ");
document.Tyi86Sys_Modify.UserName.focus();
return false;
}
if (document.Tyi86Sys_Modify.UserName.value.indexOf("'")!=-1 || document.Tyi86Sys_Modify.UserName.value.indexOf("%")!=-1 || document.Tyi86Sys_Modify.UserName.value.indexOf("&")!=-1)
{
alert("用户名中包含非法字符 (',%,&) ");
document.Tyi86Sys_Modify.UserName.focus();
return false;
}
if (document.Tyi86Sys_Modify.ReUserPassword.value!= document.Tyi86Sys_Modify.UserPassword.value)
{
alert("两次输入密码不一样！");
document.Tyi86Sys_Modify.ReUserPassword.focus();
return false;
}
if (document.Tyi86Sys_Modify.UserEmail.value.length == 0)
{
alert("请输入Email！");
document.Tyi86Sys_Modify.UserEmail.focus();
return false;
}
if (document.Tyi86Sys_Modify.UserEmail.value.charAt(0)=="." ||
document.Tyi86Sys_Modify.UserEmail.value.charAt(0)=="@"||
document.Tyi86Sys_Modify.UserEmail.value.indexOf('@', 0) == -1 ||
document.Tyi86Sys_Modify.UserEmail.value.indexOf('.', 0) == -1 ||
document.Tyi86Sys_Modify.UserEmail.value.lastIndexOf("@")==document.Tyi86Sys_Modify.UserEmail.value.length-1 ||
document.Tyi86Sys_Modify.UserEmail.value.lastIndexOf(".")==document.Tyi86Sys_Modify.UserEmail.value.length-1)
{
alert("Email的格式不正确！");
document.Tyi86Sys_Modify.UserEmail.focus();
return false;
}
return true;
}
///onSubmit="return CheckForm();"
//-->
</script>
<%
Set Rs=conn_user.execute("select * from "&Tyi86_DBTable&" where "&Tyi86_UserName&"='"&Request.Cookies(Tyi86_Sys)("UserName")&"'")
if Rs.eof and Rs.bof then
response.write "<p align='center'>信息出错！！</p>"
else
%>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" id="Table_01">
<tr>
<td rowspan="7" align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/yhzc.gif" width="800" height="33"></td>
</tr>
</table>
<br>
<TABLE cellSpacing="1" cellPadding="0" width="780" bgColor="#1871D3" border="0">
<TBODY>
<TR>
<form method="post" name="Tyi86Sys_Modify" action="Yhzc_Modify.asp?Action=Save" onSubmit="return CheckForm();">
<TD align="center" valign="top" bgcolor="#FFFFFF"><TABLE cellSpacing="0" cellPadding="3" width="760" align="center" bgColor="#ffffff">
<TBODY>
<TR>
<TD align="center" colSpan="3" height="38"><STRONG>基本资料</STRONG></TD>
</TR>
<TR>
<TD align="right" width="200" height="25">用户昵称： </TD>
<TD width="112"><INPUT id="UserName" maxLength="16" size="16" name="UserName" value="<%=Rs(Tyi86_UserName)%>">
</TD>
<TD width="428">*-最大10个字符.不能使用特殊字符</TD>
</TR>
<TR>
<TD align="right" height="25">用户密码：</TD>
<TD><INPUT id="UserPassword" type="password" maxLength="16" size="16" name="UserPassword"></TD>
<TD><FONT color=#ff0000>*</FONT>-不修改请留空</TD>
</TR>
<TR>
<TD align="right" height="25">确认密码：</TD>
<TD><INPUT id="ReUserPassword" type="password" maxLength="16" size="16" name="ReUserPassword"></TD>
<TD><FONT color=#ff0000>*</FONT>-不修改请留空</TD>
</TR>
<TR>
<TD align="right" height="25">用户密码：</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(Tyi86_UserSex)=1 Then%> CHECKED <%End If%>value=1 name=UserSex>
女
<INPUT type=radio <% If Rs(Tyi86_UserSex)=0 Then%> CHECKED <%End If%> value=0 name=UserSex></TD>
<TD>*-请选择您的性别</TD>
</TR>
<TR>
<TD align="right" height="25">电子信箱：</TD>
<TD><INPUT id="UserEmail" maxLength="30" size="16" name="UserEmail" value="<%=Rs(Tyi86_UserEmail)%>">
</TD>
<TD>*-必须是有效的电子信箱,当你忘记密码时要用到它</TD>
</TR>
<TR>
<TD align="right" height="25">密码问题：</TD>
<TD><INPUT id="UserQuesion" maxLength="20" size="16" name="UserQuesion" value="<%=Rs(Tyi86_UserQuesion)%>"></TD>
<TD>*-忘记密码的提示问题</TD>
</TR>
<TR>
<TD align="right" height="25">密码答案：</TD>
<TD><INPUT id="UserAnswer" maxLength="20" size="16" name="UserAnswer"></TD>
<TD><FONT color=#ff0000>*</FONT>-<font color="#999999">忘记密码的提示问题答案
</font>( 不修改保留 )</TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing="0" cellPadding="3" width="760" align="center" bgColor="#ffffff" border="0">
<TBODY>
<TR>
<TD align="center" colSpan="3" height="32"><STRONG>详细资料</STRONG></TD>
</TR>
<TR>
<TD align="right" width="200" height="24">主页地址：</TD>
<TD colSpan="2"><INPUT id="HomePage" maxLength="50" size="35" name="HomePage" value="<%=Rs("HomePage")%>"></TD>
</TR>
<TR>
<TD align="right" height="25">OICQ号码：</TD>
<TD colSpan="2"><INPUT id="OICQ" maxLength="20" size="15" name="OICQ" value="<%=Rs("OICQ")%>"></TD>
</TR>
<TR>
<TD align="right" height="25">真实姓名：</TD>
<TD colSpan="2"><INPUT id="TrueName" maxLength="20" size="15" name="TrueName" value="<%=Rs("TrueName")%>">
</TD>
</TR>
<TR>
<TD align="right" height="22">出生日期：</TD>
<TD colSpan="2"><INPUT id="UserBirthday" name="UserBirthday" value="<%=Rs("UserBirthday")%>"></TD>
</TR>
<TR>
<TD align="right" height="25">联系地址：</TD>
<TD colSpan="2"><INPUT id="UserAddress" maxLength="30" size="30" name="UserAddress" value="<%=Rs("UserAddress")%>">
邮政编码：
<INPUT id="PostCode" maxLength="15" size="15" name="PostCode" value="<%=Rs("PostCode")%>"></TD>
</TR>
<TR>
<TD align="right" height="25">签名/简介：<BR></TD>
<TD colSpan="2"><BR>
<TEXTAREA id="UserSign" name="UserSign" rows="5" cols="50"><%=Rs("UserSign")%></TEXTAREA>
</TD>
</TR>
</TBODY>
</TABLE>
</DIV>
<TABLE cellSpacing="0" cellPadding="0" width="100%" border="0">
<TBODY>
<TR>
<TD height="32" align="center"><INPUT type="submit" value="提交申请" name="shq">
<INPUT type="reset" value="重设表单" name="tj">
</TD>
</TR>
</TBODY>
</TABLE> </TD>
</Form>
<% end if %>
</TR>
</TBODY>
</TABLE>
<br>
<br></td>
<td>
<img src="images/Spacer.gif" width="1" height="29" alt=""></td>
</tr>
<tr>
<td>
<img src="images/Spacer.gif" width="1" height="24" alt=""></td>
</tr>
<tr>
<td>
<img src="images/Spacer.gif" width="1" height="160" alt=""></td>
</tr>
<tr>
<td>
<img src="images/Spacer.gif" width="1" height="55" alt=""></td>
</tr>
<tr>
<td>
<img src="images/Spacer.gif" width="1" height="182" alt=""></td>
</tr>
<tr>
<td>
<img src="images/Spacer.gif" width="1" height="1" alt=""></td>
</tr>
<tr>
<td height="2">
<img src="images/Spacer.gif" width="1" height="1" alt=""></td>
</tr>
</table>
<!--#include file="end.asp"-->
<%
Sub Tyi86_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(Tyi86_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 "&Tyi86_DBTable&" where "&Tyi86_UserName&"='"&UserName&"'and "&Tyi86_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(Tyi86_UserName)=UserName
If UserPassword<>"" then
UserPassword=Md5(UserPassword) 'MD5()
Rs(Tyi86_UserPassword)=UserPassword
End If
Rs(Tyi86_UserSex)=UserSex
Rs(Tyi86_UserEmail)=UserEmail
Rs(Tyi86_UserQuesion)=UserQuesion
If Trim(request.form("UserAnswer"))<>"" then
UserAnswer=Md5(UserAnswer) 'MD5()
Rs(Tyi86_UserAnswer)=UserAnswer
End If
'可以不填的资料----------------------------------
Rs("HomePage")=HomePage
Rs("OICQ")=OICQ
Rs("TrueName")=TrueName
Rs(Tyi86_UserBirthday)=UserBirthday
Rs("UserAddress")=UserAddress
Rs("PostCode")=PostCode
Rs(Tyi86_UserSign)=UserSign
'Call DealCookie_Tyi86_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_Tyi86_Sys()
Response.Cookies(Tyi86Sys)("UserID")=rs(Tyi86_UserID)
Response.Cookies(Tyi86Sys)("Username")=rs(Tyi86_Username)
Response.Cookies(Tyi86Sys)("Grade") =rs("UserGrade")
Response.Cookies(Tyi86Sys)("Money")=rs(Tyi86_UserMoney)
Response.Cookies(Tyi86Sys)("UserEmail")=rs(Tyi86_UserEmail)
If CookieDate<>"" Then
CookieDate=0
End If
Response.Cookies(Tyi86Sys)("CookieDate") = CookieDate
Select case CookieDate
case 0
'Not Save
case 1
Response.Cookies(Tyi86Sys).Expires=Date+1
case 2
Response.Cookies(Tyi86Sys).Expires=Date+31
case 3
Response.Cookies(Tyi86Sys).Expires=Date+365
End select
End sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?