zhuceasp.asp

来自「本网上拍卖系统选用ASP + SQL Server进行开发, 是一个基于Brow」· ASP 代码 · 共 71 行

<%

   
     


SqlDatabaseName = "paimai"            			      '数据库名
SqlUsername = "sa"                                    '用户名
SqlPassword = " "                                      '用户密码
Dim Conn,ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
Conn.Open ConnStr
%>	
		<%
   if request("action")="add" then	'隐藏提交 action 的值如果为 add 
   
        if trim(request("usersn"))="" then  response.Write("<script>alert('用户名不能为空！');history.back();</script>") 
         if trim(request("username"))="" then  response.Write("<script>alert('姓名不能为空！');history.back();</script>") 
        if trim(request("userpwd"))="" then  response.Write("<script>alert('密码不能为空！');history.back();</script>")
        if trim(request("userrpwd"))="" then  response.Write("<script>alert('确认密码不能为空！');history.back();</script>")
        if trim(request("userpwd"))<>trim(request("userrpwd")) then  response.Write("<script>alert('两次密码不一致！');history.back();</script>")
        if trim(request("usersex"))="" then  response.Write("<script>alert('性别不能为空！');history.back();</script>")
        if trim(request("useraddr"))="" then  response.Write("<script>alert('地址不能为空！');history.back();</script>")
        if trim(request("useremail"))="" then  response.Write("<script>alert('E-mail不能为空！');history.back();</script>")
        if trim(request("userzip"))="" then  response.Write("<script>alert('邮编不能为空！');history.back();</script>")
        if trim(request("usercred"))="" then  response.Write("<script>alert('身份证号码不能为空！');history.back();</script>")
        if trim(request("usertel"))="" then  response.Write("<script>alert('电话不能为空！');history.back();</script>")
                 
        
   
      
   
	sql="select * from [user] where usersn='"&trim(request("usersn"))&"';"	'首先按提交的用户名查询数据库
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,3,3
	if not rs.eof then	'如果记录集没有到结尾的话（没有到结尾其实就是说有相应的数据）
		response.Write("<script>alert('该用户名已经被注册！');history.back();</script>")	'提示更换其他用户名进行注册
		response.End()	'因为我们确保用户名是唯一的
	end if
	
	rs.close
	set rs=nothing
 
     
	sql="select * from [user]"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,3,3	'以写入方式打开
	rs.addnew	'添加新的记录
	rs("usersn")=trim(request("usersn"))
	rs("username")=trim(request("username"))
	rs("userpwd")=trim(request("userpwd"))
	rs("userrpwd")=trim(request("userrpwd"))
	rs("usersex")=trim(request("usersex"))
	rs("useraddr")=trim(request("useraddr"))
	rs("useremail")=trim(request("useremail"))
	rs("userzip")=trim(request("userzip"))
	rs("usercred")=trim(request("usercred"))
	rs("usertel")=trim(request("usertel"))
	rs("usermobile")=trim(request("usermobile"))
	rs("userqq")=trim(request("userqq"))
	rs.update
	rs.close
	set rs=nothing
	response.Write("<script>alert('注册成功！');window.location.href='index.asp';</script>")
end if


%>