register1.asp

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

<!--#include file="conn.inc"-->
<%
UserID=request("UserID")'客户ID
CompanyName=request("CompanyName")'
ZhuCeHao=request("ZhuCeHao")'
ZhuCeZiJin=request("ZhuCeZiJin")
BankCode=request("BankCode")'
BankName=request("BankName")
UserName=request("UserName")'
Password1=request("Password1")
Password2=request("Password2")
Email=request("Email")'
Location=request("Location")'
Telephone=request("Telephone")
Postcode=request("Postcode")
Fax=request("Fax")
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_info1 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_info1",conn,2,3,2
rs.addnew

rs("UserID").value=UserID
rs("CompanyName").value=CompanyName
rs("UserName").value=UserName
rs("Password").value=Password1 
rs("ZhuCeHao").value=ZhuCeHao
rs("ZhuCeZiJin").value=ZhuCeZiJin
rs("BankCode").value=BankCode
rs("BankName").value=BankName
rs("Sex").value=Sex
rs("Email").value=Email
rs("Telephone").value=Telephone
rs("Fax").value=Fax
rs("Location").value=Location
rs("Postcode").value=Postcode
rs.update
rs.close
set rs=nothing
set rs1=server.createobject("adodb.recordset")
sqlstr="select * from user_info1 where UserID='"&UserID&"'"
rs1.open sqlstr,conn,1,3
id=rs1("id")
rs1.close
set rs1=nothing
response.redirect "secc1.asp?id="&id
%>