reg_add.asp

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

<link href="style.css" rel="stylesheet" type="text/css">
<!--#include file="conn.asp"-->
<br><br><br><br><br><br>
<% 
Function ChkString(str)	 
	 	 
		str = replace(str, "<", "&lt;", 1, -1, 1)
		str = replace(str, ">", "&gt;", 1, -1, 1)
	 
	 ChkString = str
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")))
QQ = trim(ChkString(Request.form("qq")))
phone = trim(ChkString(Request.form("phone")))
card = trim(ChkString(Request.form("card")))
web = trim(ChkString(Request.form("web")))
Password = trim(ChkString(Request.form("password")))

set rscheck = my_conn.Execute ("Select M_Email from MB_Member where M_Email='" & email & "' or M_Name='" & name & "'")
		
if rscheck.eof then
been_here_before="No"
end if

RScheck.close
set rs = server.CreateObject("adodb.recordset")	
if been_here_before="No" then 
sql ="select * from MB_Member"

RS.open Sql,my_conn,1,3
RS.AddNew
RS("M_Name")=name
RS("M_Email")=email
RS("M_Sex")=sex
RS("M_City")=city
RS("M_State")=state
RS("M_QQ")=qq
RS("M_phone")=phone
RS("M_card")=card
RS("M_Web")=web
RS("M_Pass")= password
RS("M_Date")= now()

RS.update
%>
<div align="center">
  <center>
  <table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#ACACAC" width="249" id="AutoNumber1" cellpadding="3" height="126">
    <tr>
      <td width="241" height="16" bgcolor="#BCBCBC">
      <p align="center"><font color="#FFFFFF">注册成功</font></td>
    </tr>
    <tr>
      <td width="241" height="74" bgcolor="#DEDEDE">
      <p align="left" style="line-height: 150%; margin-left:50">通行证是：<%=name%>&nbsp; <br>
      密&nbsp; 码是：<%=password%></td>
    </tr>
    <tr>
      <td width="241" height="16" align="center" bgcolor="#BCBCBC"><input type="button" value="登录系统" onClick="parent.self.location = 'default.asp';" style="color: #FFFFFF; border: 1px solid #DEDEDE; background-color: #ACACAC"></td>
    </tr>
  </table>
  </center>
</div>
<%else
response.redirect"cue.asp?cue=012"
end if
my_conn.close
set my_conn = nothing
set rs = nothing
%><p align="center"><a target="_blank" href="http://www.mybu.net/soft.asp">
<font color="#FF0000">欢迎到麦布源码超市购买专业版[ www.mybu.net ]，麦布会员管理 Ver 1.0 专业版售价 200 
元/套！</font></a>&nbsp; </p>