set rs=server.createobject("adodb.recordset")
sql="select (select count(id) from love_main where username='"&username&"') as unum,(select count(id) from love_main where email='"&email&"') as enum,(select count(id) from love_main where tel='"&tel&"') as tnum,(select count(id) from love_main where zjhid ='"&zjhid&"') as znum"
rs.open sql,conn,1,1
if rs(0)>0 then response.Write "<script language='javascript'>alert('用户名已经被注册!');history.go(-1);</script>"
response.End
else if rs(1)>0 then response.Write "<script language='javascript'>alert('邮箱已经被注册!');history.go(-1);</script>"
response.End
else if rs(2)>0 then response.Write "<script language='javascript'>alert('电话已经被注册!');history.go(-1);</script>"
response.End
else if rs(3)>0 then response.Write "<script language='javascript'>alert('这个证件号已经被注册!');history.go(-1);</script>"
response.End
else
rs.close
set rs=nothing
'验证通过,开始入库
set rs=Server.CreateObject("ADODB.recordset")
Rs.Open "select * from love_main",conn,1,3
rs.addnew
rs("username")=username
rs("password")=password
rs("sex")=sex
rs("birthday")=birthday
rs("zjh")=zjh
rs("zjhid")=zjhid
rs("oicq")=oicq
rs("tel")=tel
rs("msn")=msn
rs("email")=email
rs("loveb")=reg_loveb
rs("regip")=ip
rs("regtime")=now()
rs("refresh_time")=now()
rs("flag")=reg_flag
rs("endtime")=now()
rs("endip")=ip
rs.update
rs.close
'初始love币记录
call loveb_add(username,reg_loveb,"新用户注册时系统分配")
closeconn
end if
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/hao/reg.asp, line 303
else if rs(1)>0 then response.Write "<script language='javascript'>alert('邮箱已经被注册!');history.go(-1);</script>"