userregpost.asp

设计考虑校园电子商务模式

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%>
<!--#include file="ddtaobao.asp"-->
<!--#include file="Inc/MsgBox.asp"-->
<!--#include file="Inc/MD5.asp"-->


<%

IF Trim(request("Submit"))<>empty Then
  Dim Strsq1,Rs
  Set Rs=Server.CreateObject("Adodb.Recordset")
  Strsq1="SELECT user_name From [dd_user] where user_name='"& request.Form("user_name") &"'"
  Rs.open strsq1,conn,1,1
  IF not rs.eof and not rs.bof Then
    rs.close
	set rs=nothing
	conn.close
	set conn=nothing
    Call MsgBox("客服MM提醒您：您输入的帐号已被注册了","Back","None")
    response.End()
  ElseIF request.Form("password1")<>request.Form("password2") Then
    rs.close
	set rs=nothing
	conn.close
	set conn=nothing
    Call MsgBox("你两次输入的密码不一致","Back","None")
    Response.End()
  ElseIF Not isNumeric(request.Form("user_qq")) Then
    rs.close
	set rs=nothing
	conn.close
	set conn=nothing
    Call MsgBox("客服MM提醒您：QQ号应为数字","Back","None")
    Response.End()
  Else
    rs.Close
    rs.open "select * from [dd_user]",conn,1,3
	rs.addnew
rs("user_name")=HTMLEncode(request.form("user_name"))
rs("user_sex")=HTMLEncode(request.form("user_sex"))
rs("user_password")=MD5(HTMLEncode(Request.Form("PassWord1")),16)
rs("user_email")=HTMLEncode(request.form("user_email"))
rs("user_qq")=HTMLEncode(request.form("user_qq"))
rs("userface")=HTMLEncode(request.Form("userface"))
rs("user_question")=HTMLEncode(request.form("user_question"))
rs("user_answer")=HTMLEncode(request.form("user_answer"))
rs("user_home")=HTMLEncode(request.form("user_home"))
rs("font")=2
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Call MsgBox("注册成功，请登陆","GoUrl","user_login.asp")
    Response.End()
  End IF
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing   
End IF
%>