注册页面的问题

来源:百度知道 编辑:UC知道 时间:2024/06/18 01:36:00
<%
Set conn=server.createobject("adodb.connection")
conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/user.mdb")
conn.open
if err then
err.clear
conn.close
set conn = Nothing
response.write "数据库连接出错,请检查conn.asp中的连接字符串。"
response.end
end if
set rs=server.CreateObject("ADODB.Recordset")
zhangha=request.Form("zhanghao")
nicheng=request.Form("nicheng")
pwd=request.Form("pwd")
e_mail=request.Form("e_mail")
telephone=request.Form("telephone")
qq=request.Form("qq")
birthday=request.Form("birthday")
daan=request.Form("daan")
sex=request.Form("sex")
wenti=request.Form("wenti")
sqlstr="select * from [user] where zhanghao='"&zhangha&"'"
rs.open sqlstr,conn

仔细比较

if not rs.eof then

sql="insert into [user](zhanghao,nicheng,mima,sex,e_mail,telephone,QQ,birthday,question,answer)values('"&zhangha&"','"&nicheng&"','"&pwd&"','"&sex&"','"&e_mail&"','"&telephone&"','"&qq&"','"&birthday&"','"&wenti&"','"&daan&"')"
rs.open sql,conn
response.Write("帐号【"&zhangha&"】注册成功!请"&"<a href=index.html>"&"登录"&"</a>")
else
response.Write("帐号【"&zhangha&"】已经被注册! 请"&"<a href=login.html>"&"后退"&"</a>")
end if