p1="Provider=Microsoft.Jet.OLEDB.4.0; "
p2="Data Source="&Server.MapPath("data/mobile.mdb")
set conn=Server.CreateObject("ADODB.Connection")
conn.open p1 & p2
set rs1=Server.CreateObject("ADODB.RecordSet")
sql1="select * from user "
'response.write sql1
'response.end
rs1.open user,conn,2,2
if not rs1.eof then
msgbox("对不起,你用的用户名已经有人注册了,请重新注册一个!")
response.Redirect("register.asp")
else
set rs1=nothing
rs2.open user,conn,2,2
rs2.addnew
rs2("user_id")=user_id
rs2("user_password")=user_password
rs2("user_question")=user_question
rs2("user_answer")=user_answer
rs2("user_name")=user_name
rs2("user_card")=user_card
rs2("user_email")=user_email
rs2("user_tele")=user_tele
rs2("user_mobile")=user_mobile
rs2("user_addr")=user_addr
rs2.update
end if