register.asp

欢迎您使用审批系统!该系统主要面向银行内部人员,但也为客户提供一些信息." 登陆,注册和管理员入口"项目专为银行内部人员设计."客户登陆,注册,贷款须知和预约"项目专为客户设计.客户可通过这些窗口浏览

<!--#include file="conn.inc"-->
<%
UserID=request("UserID")
UserName=request("UserName")
Password1=request("Password1")
Password2=request("Password2")
ShenfenID=request("ShenfenID")
Email=request("Email")
Location=request("Location")
Occupation=request("Occupation")
ShouRu=request("ShouRu")
BankCode=request("BankCode")
Moive_tel=request("Moive_tel")
Telephone=request("Telephone")
Postcode=request("Postcode")
Fax=request("Fax")
Company=request("Company")
if request("Sex")=11 then Sex="男"
if request("Sex")=01 then Sex="女"'姓别
'**  检测姓名输入情况 **
if len(UserID)<1 or len(UserID)>=12 then
response.redirect "error.asp?id=1" '姓名输入大于12个字符
end if
if password1<>password2 then
  response.redirect "error.asp?id=3"
end if

'** 检测用户名是否也被注册了 **
set rs_name=server.createobject("adodb.recordset")
sql_name="select * from user_info where UserID='"&UserID&"'"
rs_name.open sql_name,conn,1,3
if rs_name.recordcount<>0 then
	response.redirect "error.asp?id=2" '用户名已存在!!!
end if
rs_name.close
set rs_name=nothing

if Email="" then
	response.redirect "error.asp?id=4"  '邮件为空
end if

if instr(Email,"@")=0 or instr(Email,"@")=1 or instr(Email,"@")=len(Email) then
	response.redirect "error.asp?id=4" '邮件格式不正确!
end if

if Sex="" then
	response.redirect "error.asp?id=7" '必须输入姓别!!
end if


'存入用户注册信息
set rs=server.createobject("adodb.recordset")
rs.open "user_info",conn,2,3,2
rs.addnew    

rs("UserID").value=UserID
rs("UserName").value=UserName
rs("Password").value=Password1 
rs("ShenfenID").value=ShenfenID
rs("Sex").value=Sex
rs("Email").value=Email
rs("Company").value=Company
rs("Telephone").value=Telephone
rs("Moive_tel").value=Moive_tel
rs("ShouRu").value=ShouRu
rs("BankCode").value=BankCode

rs("Fax").value=Fax
rs("Location").value=Location
rs("Postcode").value=Postcode
rs("Occupation").value=Occupation
rs.update
rs.close
set rs=nothing
set rs1=server.createobject("adodb.recordset")
sqlstr="select * from user_info where UserID='"&UserID&"'"
rs1.open sqlstr,conn,1,3
id=rs1("id")
rs1.close
set rs1=nothing
response.redirect "secc.asp?id="&id
%>