标题:谁能告诉我..
只看楼主
suyongtao
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:33
帖 子:8674
专家分:127
注 册:2004-11-6
得分:0 
顶上去吧..

面朝大海,春暖花开!
2006-12-05 13:53
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
得分:0 
没有语法错误~!

你把类似 as unum的dd去掉看看
2006-12-05 15:11
无有青年
Rank: 1
等 级:新手上路
帖 子:70
专家分:0
注 册:2006-12-5
得分:0 
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>"
2006-12-05 16:17
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
得分:0 
if rs(0)>0 then
response.Write "<script language='javascript'>alert('用户名已经被注册!');history.go(-1);</script>"
response.End
elseif rs(1)>0 then
response.Write "<script language='javascript'>alert('邮箱已经被注册!');history.go(-1);</script>"
response.End
elseif rs(2)>0 then
response.Write "<script language='javascript'>alert('电话已经被注册!');history.go(-1);</script>"
response.End
elseif rs(3)>0 then
response.Write "<script language='javascript'>alert('这个证件号已经被注册!');history.go(-1);</script>"
response.End
end if
rs.close
set rs=nothing
2006-12-05 16:21
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
得分:0 
if rs(0)>0 then
response.Write "<script language='javascript'>alert('用户名已经被注册!');history.go(-1);</script>"
response.End
elseif rs(1)>0 then
response.Write "<script language='javascript'>alert('邮箱已经被注册!');history.go(-1);</script>"
response.End
elseif rs(2)>0 then
response.Write "<script language='javascript'>alert('电话已经被注册!');history.go(-1);</script>"
response.End
elseif rs(3)>0 then
response.Write "<script language='javascript'>alert('这个证件号已经被注册!');history.go(-1);</script>"
response.End
else
rs.close
set rs=nothing
2006-12-05 16:28
无有青年
Rank: 1
等 级:新手上路
帖 子:70
专家分:0
注 册:2006-12-5
得分:0 
if rs(0)>0 then response.Write "<script language='javascript'>alert('该用户名已经被注册!');history.go(-1);</script>"
elseif rs(1)>0 then response.Write "<script language='javascript'>alert('邮箱已经被注册!');history.go(-1);</script>"
elseif rs(2)>0 then response.Write "<script language='javascript'>alert('电话已经被注册!');history.go(-1);</script>"
elseif rs(3)>0 then response.Write "<script language='javascript'>alert('这个证件号已经被注册!');history.go(-1);</script>"
else
rs.close
set rs=nothing
2006-12-05 16:31



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-107347-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.084526 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved