www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\vip\savereg.asp

    <!--#include file="conn.asp" -->
<!--#include file="md5.asp" -->
<%
dim name,pass,rpass
name = request("name")
pass = request("pass")
rpass = request("rpass")

if pass = "" or name = "" then 
	response.Write "<script>alert('用户名或密码不能为空！'); location.href='reg.asp';</script>"
	response.end
end if
if pass <> rpass then
	response.Write "<script>alert('两次密码输入不一致！'); location.href='reg.asp';</script>"
	response.end
end if	
if len(name) > 8 then
	response.Write "<script>alert('用户名不能超过8个字符！'); location.href='reg.asp';</script>"
	response.end
end if	
sql = "select * from [user] where [name] = '"&name&"'"
set rs = conn.execute(sql)
if not rs.eof then
	response.Write "<script>alert('用户名 "&name&" 已经有人注册过，请更改用户名！'); location.href='reg.asp';</script>"
	response.end
end if	
set rs = server.CreateObject("adodb.recordset")
set ip = request.ServerVariables("REMOTE_ADDR")
rs.open "[user]",conn,2,2
rs.addnew 
rs("name")=name
rs("pass")=MD5(pass,16)
rs("ip")=ip
rs("ips")=""
rs.update
rs.close
conn.close
session("user")=name
response.Redirect("index.asp")
%>