reg_firm.asp

麦布会员管理程序是一个简易的会员注册及管理系统

<link href="style.css" rel="stylesheet" type="text/css">
<% 
Function ChkString(str)	 
	 	 
		str = replace(str, "<", "&lt;", 1, -1, 1)
		str = replace(str, ">", "&gt;", 1, -1, 1)
	 
	 ChkString = str
End Function

Function IsValidEmail(Email) '检测是否有效的E-mail地址
	Dim names, name, i, c
	IsValidEmail = True
	Names = Split(email, "@")
	IF UBound(names) <> 1 then
   		IsValidEmail = False
   		Exit Function
	End IF
	For Each name IN names
		if Len(name) <= 0 Then
     		IsValidEmail = False
     		Exit Function
   		End IF
   		For i = 1 to Len(name)
     		c = Lcase(Mid(name, i, 1))
     		IF InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then
       			IsValidEmail = false
       			Exit Function
     		End IF
   		Next
   		IF Left(name, 1) = "." or Right(name, 1) = "." then
      		IsValidEmail = false
      		Exit Function
   		End IF
	Next
	IF InStr(names(1), ".") <= 0 Then
   		IsValidEmail = False
   		Exit Function
	End IF
	i = Len(names(1)) - InStrRev(names(1), ".")
	IF i <> 2 And i <> 3 Then
   		IsValidEmail = False
   		Exit Function
	End IF
	IF InStr(email, "..") > 0 Then
   		IsValidEmail = False
	End IF
End Function

name = trim(ChkString(Request.form("name")))
email = trim(ChkString(Request.form("email")))
sex = trim(ChkString(Request.form("sex")))
City = trim(ChkString(Request.form("city")))
State = trim(ChkString(Request.form("state")))
web = trim(ChkString(Request.form("web")))
qq = trim(ChkString(Request.form("qq")))
phone = trim(ChkString(Request.form("phone")))
card = trim(ChkString(Request.form("card")))
Password = trim(ChkString(Request.form("password")))
confirmpassword = trim(ChkString(request.form("confirmpassword")))


if name = "" or Len(name)>6 then
response.redirect"cue.asp?cue=002"
else

if email = "" or IsValidEmail(email)=False then
response.redirect"cue.asp?cue=003"
else

if sex = "empty" then
response.redirect"cue.asp?cue=004"
else

if city = "empty" then
response.redirect"cue.asp?cue=005"
else

if State = "" then
response.redirect"cue.asp?cue=005"
else

if qq = "" then
response.redirect"cue.asp?cue=006"
else

if password = "" or Len(password)<6 or Len(password)>20 then
response.redirect"cue.asp?cue=007"
else

if password <> confirmpassword then
response.redirect"cue.asp?cue=008"
else
%>


<P align=center>　</P>
  <center>
    <table border="1" cellpadding="3" cellspacing="0" width="380" bordercolor="#ACACAC" style="border-collapse: collapse" height="94">
      <tr>
        <td height="1" colspan="2" bgcolor="#BCBCBC" width="372" >
        <p align="center"><font color="#FFFFFF">请检查您提交的信息，如果发现有误请后退修改，否则请按确认信息</font></td>
      </tr>
      <tr>
        <td width="96" height="6" bgcolor="#DEDEDE" >用户名：</td>
        <td width="269" height="6" bgcolor="#DEDEDE" ><%=name%></td>
      </tr>
      <tr>
        <td width="96" height="16" bgcolor="#DEDEDE" >邮箱地址：</td>
        <td width="269" height="16" bgcolor="#DEDEDE" ><%=email%></td>
      </tr>
      <tr>
        <td width="96" height="16" bgcolor="#DEDEDE" >性别</td>
        <td width="269" height="16" bgcolor="#DEDEDE" ><%=sex%></td>
      </tr>
      <tr>
        <td width="96" height="6" bgcolor="#DEDEDE" >来自：</td>
        <td width="269" height="6" bgcolor="#DEDEDE" ><%=state%> - <%=city%></td>
      </tr>
        <tr>
        <td width="96" height="1" bgcolor="#DEDEDE" >联系电话：</td>
        <td width="269" height="1" bgcolor="#DEDEDE" ><%=phone%></td>
      </tr>
      <tr>
        <td width="96" height="6" bgcolor="#DEDEDE" >身份证号：</td>
        <td width="269" height="6" bgcolor="#DEDEDE" ><%=card%></td>
      </tr>
        <tr>
        <td width="96" height="5" bgcolor="#DEDEDE" >QQ号码：</td>
        <td width="269" height="5" bgcolor="#DEDEDE" ><%=qq%></td>
      </tr>
      <tr>
        <td width="96" height="2" bgcolor="#DEDEDE" >个人网站：</td>
        <td width="269" height="2" bgcolor="#DEDEDE" ><%=web%></td>
      </tr>
      <tr>
        <td width="96" height="16" bgcolor="#DEDEDE" >密码：</td>
        <td width="269" height="16" bgcolor="#DEDEDE" ><%=password%></td>
      </tr>
      <form action=reg_add.asp method="post">
      <tr>
        <td colspan="2" align="center" width="372" height="1" bgcolor="#BCBCBC" >
        <input type=hidden name="name" value="<%=name%>">
        <input type=hidden name="email" value="<%=email%>">
        <input type=hidden name="sex" value="<%=sex%>">
        <input type=hidden name="city" value="<%=city%>">
        <input type=hidden name="state" value="<%=state%>">
        <input type=hidden name="qq" value="<%=qq%>">
        <input type=hidden name="phone" value="<%=phone%>">
        <input type=hidden name="card" value="<%=card%>">
        <input type=hidden name="web" value="<%=web%>">
        <input type=hidden name="password" value="<%=password%>">
        <input type=submit value="确认提交" style="color: #FFFFFF; border: 1px solid #DEDEDE; background-color: #ACACAC">&nbsp; 
        <input type="button" value="返回修改" onclick=javascript:history.go(-1) style="color: #FFFFFF; border: 1px solid #DEDEDE; background-color: #ACACAC"></td>
      </tr>
      </form>
    </table>
    </center>
<%
end if
end if
end if
end if
end if
end if
end if
end if
%><p align="center">
<br>
<a href="http://www.mybu.net/mybu.asp">关于麦布</a>　|　<a href="http://www.mybu.net/mybu.asp?mybu=agreement">服务条款</a>　|　<a href="http://www.mybu.net/soft.asp">程序销售</a>　|　<a href="http://www.mybu.net/mybu.asp?mybu=advertisement">广告服务</a>　|　<a href="http://www.mybu.net/reg.asp">客户服务</a>　|　<a href="http://www.mybu.net/guest.asp">意见反馈</a>　|　<a href="http://www.mybu.net/mybu.asp?mybu=touchus">联系我们</a><br>
<br>
Copyright by MyBu.Net All rights Reserved.</p><p align="center">　</p>