chkregist.asp

图书管管理系统

<!--#include file="Conn.asp"-->
<!--#include file="Function.asp"-->
<%  Dim name
	Dim pwd
	Dim pwd1
	Dim gender
	Dim email
	Dim qq
	Dim tel
	Dim department
	Dim deaddress
	Dim hoaddress
	Dim post
	Dim number
	Dim images
	
	name   = Trim(Request.Form("name"))
	pwd	   = Trim(Request.Form("pwd"))
	pwd1   = Trim(Request.Form("pwd1"))
	gender = Trim(Request.Form("gender"))
	email  = Trim(Request.Form("email"))
	qq	   = Trim(Request.Form("qq"))
	tel	   = Trim(Request.Form("tel"))
	department = Trim(Request.Form("department"))
	deaddress  = Trim(Request.Form("deaddress"))
	hoaddress	   = Trim(Request.Form("hoaddress"))
	post	   = Trim(Request.Form("post"))
	number	   = Trim(Request.Form("number"))
	images		=	Request.Form("imagespath")
	
	'上传图片
		If images<>"" Then
			upImages(images)			
		End If
	
	If name = "" Then
		Response.Write "<Script>alert('请输入注册用户名！');history.go(-1);</Script>"
 		Response.End
	ElseIf tel = "" Then
		Response.Write "<Script>alert('请输入您的电话！');history.go(-1);</Script>"
 		Response.End
	ElseIf number = "" Then
		Response.Write "<Script>alert('请输入您的身份证号码！');history.go(-1);</Script>"
 		Response.End
	ElseIf IsNumeric(number) = false Then
		Response.Write "<Script>alert('输入的身份证号码只能为数字！');history.go(-1);</Script>"
 		Response.End	
 	ElseIf pwd = "" Or pwd1="" Then
		Response.Write "<Script>alert('请输入密码或重复密码！');history.go(-1);</Script>"
 		Response.End
 	ElseIf pwd <> pwd1 Then
		Response.Write "<Script>alert('两次输入的密码不相同！');history.go(-1);</Script>"
 		Response.End
 	ElseIf Len(pwd) < 6 Or Len(pwd1) < 6 Then
		Response.Write "<Script>alert('密码项或重复密码项少于6位！');history.go(-1);</Script>"
 		Response.End
 	ElseIf qq <> "" And IsNumeric(qq) = false Then
		Response.Write "<Script>alert('输入的QQ号码只能为数字！');history.go(-1);</Script>"
 		Response.End
	Else
		Set Rs = Server.CreateObject("ADODB.Recordset")
		Sql = "Select * From userInfo Where name = '"&name&"'"
		Rs.Open Sql,conn,3,3
		If not Rs.EOF Then
			Response.Write "<Script>alert('该账号已被注册！');history.go(-1);</Script>"	
 			Response.End
		Else 
			Rs.AddNew
    		Rs("name")		 = name
    		Rs("pwd")		 = pwd
    		Rs("gender")	 = gender
			Rs("images")	=	GetFileName(images)
    		Rs("email")		 = email
    		Rs("qq")         = qq
			Rs("tel")         = tel
    		Rs("department")       = department
    		Rs("reg_time")   = Now()
			Rs("deaddress") = deaddress
			Rs("hoaddress") = hoaddress
			Rs("post") = post
			Rs("number") = number
    		Rs.Update
    		id = Rs("id")
    		Response.Redirect "Default.asp"
 		End If
 	End If	
	Rs.Close
	Set Rs=nothing
	Conn.close
   Set Conn=nothing	
%>