yhzc.asp

为中小型企业与欲创业的个人提供一个合适的企业型网站

<!--#include file="top.asp"-->
<%
    If Request("Action")="Save" Then
    Call Tyi86_RegSave()
    response.End()
    End if
    If Request("Reply")<>"OK" Then
    Response.Redirect("Yhxy.asp")
    Response.End()
    End if
%>
<script language="JavaScript">
    <!--
    function CheckForm()
    {
	if (document.Tyi86Sys_Reg.UserName.value.length == 0)
    {
		alert("请输入用户名.");
		document.Tyi86Sys_Reg.UserName.focus();
		return false;
	}
	if (document.Tyi86Sys_Reg.UserName.value.indexOf("<")!=-1 || document.Tyi86Sys_Reg.UserName.value.indexOf(">")!=-1 || document.Tyi86Sys_Reg.UserName.value.indexOf("$")!=-1)
    {
		alert("用户名中包含非法字符 (<,>,$) ");
		document.Tyi86Sys_Reg.UserName.focus();
		return false;
	}
	if (document.Tyi86Sys_Reg.UserName.value.indexOf("'")!=-1 || document.Tyi86Sys_Reg.UserName.value.indexOf("%")!=-1 || document.Tyi86Sys_Reg.UserName.value.indexOf("&")!=-1)
    {
		alert("用户名中包含非法字符 (',%,&) ");
		document.Tyi86Sys_Reg.UserName.focus();
		return false;
	}
	if (document.Tyi86Sys_Reg.UserPassword.value.length <= 5) 
    {
		alert("\n请输入六位以上的密码！\n");
		document.Tyi86Sys_Reg.UserPassword.focus();
		return false;
	}
	if (document.Tyi86Sys_Reg.ReUserPassword.value.length == 0) 
    {
		alert("请输入密码确认！");
		document.Tyi86Sys_Reg.ReUserPassword.focus();
		return false;
	}
	if (document.Tyi86Sys_Reg.ReUserPassword.value!= document.Tyi86Sys_Reg.UserPassword.value) 
    {
		alert("两次输入密码不一样！");
		document.Tyi86Sys_Reg.ReUserPassword.focus();
		return false;
	}
	if (document.Tyi86Sys_Reg.UserCheckCode.value.length == 0) 
    {
		alert("请输入验证码！");
		document.Tyi86Sys_Reg.UserCheckCode.focus();
		return false;
	}
	if (document.Tyi86Sys_Reg.UserEmail.value.length == 0) 
    {
		alert("请输入Email！");
		document.Tyi86Sys_Reg.UserEmail.focus();
		return false;
	}
    if (document.Tyi86Sys_Reg.UserEmail.value.charAt(0)=="." ||        
         document.Tyi86Sys_Reg.UserEmail.value.charAt(0)=="@"||       
         document.Tyi86Sys_Reg.UserEmail.value.indexOf('@', 0) == -1 || 
         document.Tyi86Sys_Reg.UserEmail.value.indexOf('.', 0) == -1 || 
         document.Tyi86Sys_Reg.UserEmail.value.lastIndexOf("@")==document.Tyi86Sys_Reg.UserEmail.value.length-1 || 
         document.Tyi86Sys_Reg.UserEmail.value.lastIndexOf(".")==document.Tyi86Sys_Reg.UserEmail.value.length-1)
     {
      alert("Email的格式不正确！");
      document.Tyi86Sys_Reg.UserEmail.focus();
      return false;
      }
		if (document.Tyi86Sys_Reg.UserQuesion.value.length == 0) 
    {
		alert("请输入你的密码提示问题！");
		document.Tyi86Sys_Reg.UserQuesion.focus();
		return false;
	}
	if (document.Tyi86Sys_Reg.UserAnswer.value.length == 0) 
    {
		alert("请输入你的密码提示答案！");
		document.Tyi86Sys_Reg.UserAnswer.focus();
		return false;
	}
		return true;
    }
    ///onSubmit="return CheckForm();"
    //-->
</script>
<SCRIPT language=JavaScript type=text/javascript>
    <!--
    function Tyi86Sys_RegAgree(AgreeSet){
    AgreeSet.style.display=(AgreeSet.style.display=="none")?"":"none";
    }
    //-->
</SCRIPT>
<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 id="Tyi86Sys_Reg" name="Tyi86Sys_Reg" action="?Action=Save" method="post" 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">
                        </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>*-大于6小于14个字符.不能使用特殊字符</TD>
                      </TR>
                      <TR>
                        <TD align="right" height="25">确认密码：</TD>
                        <TD><INPUT id="ReUserPassword" type="password" maxLength="16" size="16" name="ReUserPassword"></TD>
                        <TD>*-确认一遍您输入的密码</TD>
                      </TR>
                      <TR>
                        <TD align="right" height="25" name="up">性别：</TD>
                        <TD>男
                          <INPUT type="radio" CHECKED value="1" name="UserSex">
                          女
                          <INPUT type="radio" 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">
                        </TD>
                        <TD>*-必须是有效的电子信箱,当你忘记密码时要用到它</TD>
                      </TR>
                      <TR>
                        <TD align="right" height="25">密码问题：</TD>
                        <TD><INPUT id="UserQuesion" maxLength="20" size="16" name="UserQuesion"></TD>
                        <TD>*-忘记密码的提示问题</TD>
                      </TR>
                      <TR>
                        <TD align="right" height="25">密码答案：</TD>
                        <TD><INPUT id="UserAnswer" maxLength="20" size="16" name="UserAnswer"></TD>
                        <TD>*-忘记密码的提示问题答案，用于取回密码</TD>
                      </TR>
                      <TR>
                        <TD align="right" height="25">详细资料： </TD>
                        <TD colSpan="2"><INPUT onclick="Tyi86Sys_RegAgree(others)" type="checkbox" value="1" name="otherselect">
                          开启高级选项</TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                    <DIV id=others style="DISPLAY: none">
                      <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"></TD>
                          </TR>
                          <TR>
                            <TD align="right" height="25">OICQ号码：</TD>
                            <TD colSpan="2"><INPUT id="OICQ" maxLength="20" size="15" name="OICQ"></TD>
                          </TR>
                          <TR>
                            <TD align="right" height="25">真实姓名：</TD>
                            <TD colSpan="2"><INPUT id="TrueName" maxLength="20" size="15" name="TrueName">
                            </TD>
                          </TR>
                          <TR>
                            <TD align="right" height="22">出生日期：</TD>
                            <TD colSpan="2"><INPUT id="UserBirthday" name="UserBirthday"></TD>
                          </TR>
                          <TR>
                            <TD align="right" height="25">联系地址：</TD>
                            <TD colSpan="2"><INPUT id="UserAddress" maxLength="30" size="30" name="UserAddress">
                              邮政编码：
                              <INPUT id="PostCode" maxLength="15" size="15" name="PostCode"></TD>
                          </TR>
                          <TR>
                            <TD align="right" height="25">签名/简介：<BR></TD>
                            <TD colSpan="2"><BR>
                                <TEXTAREA id="UserSign" name="UserSign" rows="5" cols="50"></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>
              </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"-->
</body>
</html>
<%
'保存注册的信息----------------------------------
Sub Tyi86_RegSave()
Dim UserName,UserPassword,ReUserPassword,UserCheckCode,UserEmail,UserQuesion,UserAnswer
Dim HomePage,OICQ,TrueName,UserBirthday,UserAddress,PostCode,UserSign
'一定要写的资料----------------------------------
UserName = Request("UserName")
UserPassword = 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 IsEmpty(Request("UserName")) OR IsEmpty(Request("UserEmail")) Then 
'Response.write UserName & UserEmail
Response.write"<script>alert(""信息填写不完整！"");location.href=""javascript:history.back()"";</script>"
Response.End  
End if 
If IsEmpty(UserQuesion) OR IsEmpty(UserAnswer) Then 
Response.write"<script>alert(""问题答案填写不完整！"");location.href=""javascript:history.back()"";</script>"
Response.End  
End if 

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")
sql="select * from "&Tyi86_DBTable&" where "&Tyi86_UserName&"='"&UserName&"'"
rs.open sql,conn_user,1,3
if (rs.eof and rs.bof) then
	Rs.addnew 
'一定要写的资料----------------------------------

Rs(Tyi86_UserName)=UserName
	UserPassword=Md5(UserPassword) 'MD5()
Rs(Tyi86_UserPassword)=UserPassword
Rs(Tyi86_UserSex)=UserSex
Rs(Tyi86_UserEmail)=UserEmail
Rs(Tyi86_UserQuesion)=UserQuesion
	UserAnswer=Md5(UserAnswer) 'MD5()
Rs(Tyi86_UserAnswer)=UserAnswer
'可以不填的资料----------------------------------
Rs("HomePage")=HomePage 'W
Rs("OICQ")=OICQ 'W
Rs("TrueName")=TrueName 'W
	Rs(Tyi86_UserBirthday)=UserBirthday
Rs("UserAddress")=UserAddress  'W
Rs("PostCode")=PostCode  'W
	Rs(Tyi86_UserSign)=UserSign
Rs(Tyi86_UserGrade)=0 'UserGrade
Rs(Tyi86_UserMoney)=100 'UserMoney
Rs(Tyi86_UserIP)=Request.ServerVariables("REMOTE_ADDR")
	if NeedCheck=1 then
        Rs("IsActive")=False
	else
        Rs("IsActive")=True
	end if
    rs.update
	if NeedCheck=1 then 
	response.write"<script>alert(""恭喜你 "&UserName&" 已注册成功!\n管理员会尽快通过验证的！"");location.replace(""index.asp"");</script>"
    response.end
	else
	'Call DealCookie_Tyi86Sys()
	'Session("Pw_UserID")=rs("UserID")
	'Session("Pw_Sys_User")=rs("Username")
	'Session("Grade")=rs("Grade")
	'Session("Pw_Money")=rs("Money")
	end if
	rs.close
	set rs=nothing
 Response.write"<script>alert("" 恭喜你 "&UserName&" 注册成功!\n "");location.href=""index.asp"";</script>"
Else
 Response.write"<script>alert("" 用户名 "&UserName&" 已被注册!\n "");location.href=""javascript:history.back()"";</script>"
End if
End Sub
Sub DealCookie_Tyi86Sys()
	Response.Cookies(Tyi86Sys)("UserID")=rs(Tyi86_UserID)
	Response.Cookies(Tyi86Sys)("Username")=rs(Tyi86_Username)
	Response.Cookies(Tyi86Sys)("Grade") =rs(Tyi86_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
%>