reg.asp

梦想世界虚拟社区

<%
name1 = request ("name1")
mail1 = request ("mail1")
pass = request ("pass")
pass1 = request ("pass1")
sex = request ("sex")
old = request ("old")
touxiang = request ("touxiang")
qq1 = request ("qq")
page = request ("page")
zone = request ("zone")
know = request ("know")
ave = request ("ave")
money = 500
jibie = "一星准将"
if name1 = "" or pass = "" or pass1 = "" or old = "" or mail1 = "" or zone = "" then
 session ("tishi") = "带星号项目不能为空"
 response.redirect "setup2.asp"
 response.end
 end if
if pass <> pass1 then
 session ("tishi") = "两次输入密码不一至"
 response.redirect "setup2.asp"
 response.end
 end if
 
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base\dumm.mdb")
Cnn.Open StrCnn
rs.open "select * from 资料 where 昵称 = '" & request ("name1") & "'",cnn
If not Rs.Eof Then
session ("tishi") = "该名已被占用，请换其他名字"
response.redirect "setup2.asp"
response.end
end if
rs.close

Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base\dumm.mdb")
Cnn.Open StrCnn
sz = "'" & name1 &_
         "', '"& pass &_
         "', '"& mail1 &_
		 "', '"& sex &_
		 "', '"& old &_
		 "', '"& touxiang &_
		 "', '"& qq1 &_
		 "', '"& page &_
		 "', '"& zone &_
		 "', '"& know &_
		 "', '"& ave &_
		 "', '"& money &_
		 "', '"& jibie &_
         "', '"& now() & "'"
		 rs.open "insert into 资料(昵称,密码,mail,性别,年龄,头像,qq,个人主页,地区,学历,途径,金钱,级别,注册时间) values("&sz&")",cnn
		 cnn.close
		 session ("name1") = name1
		session ("pass") = pass
		response.redirect "setup3.asp"
%>