| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 895 人关注过本帖
标题:[求助]为什么我做的判断同一用户名就不能成功呢~
只看楼主 加入收藏
mamu123456
Rank: 1
等 级:新手上路
帖 子:97
专家分:0
注 册:2006-6-5
收藏
 问题点数:0 回复次数:13 
[求助]为什么我做的判断同一用户名就不能成功呢~

这是我做的代码,请帮我看看
<%

Connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;"
set conn=server.createobject("adodb.connection")

conn.open Connstr

sqlstr="select * from ma where a="&request("m")
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3
if rs.eof then
rs.addnew
select case len(request("g"))
case 15
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")

rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功,点击返回');window.location.href='kehu.asp'</script>"

case 18
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")
rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
else
request.write"用户名已经存在"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功,点击返回');window.location.href='kehu.asp'</script>"
case else
response.write "<script>window.alert('注册失败,请输入合法的身份证号码');window.location.href='zhuc1.asp'</script>"
end select


end if
%>

出错是

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/zhuc2.asp,行43

else
^
搜索更多相关主题的帖子: 用户名 判断 
2006-06-23 11:38
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1216
专家分:1376
注 册:2005-3-14
收藏
得分:0 
<%

Connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;"
set conn=server.createobject("adodb.connection")

conn.open Connstr

sqlstr="select * from ma where a="&request("m")
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3
if rs.eof then
rs.addnew
select case len(request("g"))
case 15
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")

rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功,点击返回');window.location.href='kehu.asp'</script>"

case 18
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")
rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
else
request.write"用户名已经存在"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功,点击返回');window.location.href='kehu.asp'</script>"
case else
response.write "<script>window.alert('注册失败,请输入合法的身份证号码');window.location.href='zhuc1.asp'</script>"
end select


end if
%>




你这结构很混乱的


http://toorup.3v.do
loading...
2006-06-23 12:03
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
同意楼上的说法

你自己检查一下这个程序的结构.

逻辑上的东东要搞清楚

http://www./
2006-06-23 12:56
mamu123456
Rank: 1
等 级:新手上路
帖 子:97
专家分:0
注 册:2006-6-5
收藏
得分:0 
select case len(request("g"))
case 15
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")

rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功,点击返回');window.location.href='kehu.asp'</script>"

case 18
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")
rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
这个是判断有效的身分证的,一个15位,还有个18位,如果不是15或者18位数字就不能注册成功

2006-06-23 13:32
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1216
专家分:1376
注 册:2005-3-14
收藏
得分:0 

你把CASE ELSE和END SELECT移到IF语句的ESLE里面看看,
结构乱了肯定会出错的


http://toorup.3v.do
loading...
2006-06-23 14:39
mamu123456
Rank: 1
等 级:新手上路
帖 子:97
专家分:0
注 册:2006-6-5
收藏
得分:0 

<%

Connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;"
set conn=server.createobject("adodb.connection")

conn.open Connstr
if session("a")=request("a") then
sqlstr="select * from ma"
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3

rs.addnew
select case len(request("g"))
case 15
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")

rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功,点击返回');window.location.href='kehu.asp'</script>"

case 18
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")
rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功,点击返回');window.location.href='kehu.asp'</script>"
case else
response.write "<script>window.alert('注册失败,请输入合法的身份证号码');window.location.href='zhuc1.asp'</script>"
end select
else
response.write"用户名已经存在"
end if
%>

我现在改成这样的了现在都变成了都是不能注册了,不一样和一样的都不可以注册了~

2006-06-23 14:39
mamu123456
Rank: 1
等 级:新手上路
帖 子:97
专家分:0
注 册:2006-6-5
收藏
得分:0 
那样就不能判断身份证的位数了,我试过。
2006-06-23 14:41
labid
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-20
收藏
得分:0 
用客户端脚本判断!只不过也许会有漏洞!
我只是提议~~!
2006-06-23 14:54
mamu123456
Rank: 1
等 级:新手上路
帖 子:97
专家分:0
注 册:2006-6-5
收藏
得分:0 

用javascript语言吗?上一个页面有判断的,听他们说很简单的,可是我就是没做的起来,郁闷啊,水平太菜了,还得多研究研究ASP语言。

2006-06-23 14:56
labid
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-20
收藏
得分:0 
用VBS算了,我是学这个的,我也很菜,我昨天整一个客户端验证,弄了一个通宵,才弄出来!
我给你发个代码,你使用一下,看可以不?大家互相帮助,相互学习嘛!我还没出去找工作呢?我想把自己锻炼得很强了,做个比较完善的小电子商务之后,再出去找工作!然后再转asp.net,在学校,我就学vb.net的,我还要向这里的大哥大姐们多多学习呢!

<script language=vbscript>
<!--
sub tijiao_onclick()
  if login.idnumber.value="" or Not isnumeric(login.idnumber.value) or len(login.idnumber.value)<>15 and len(login.idnumber.value) <>18 then
msgbox "请正确输入的你身份证号"
login.idnumber.select
exit sub
end if
login.submit
end sub
-->
</script>
<html>
<head>
<title>注册新会员</title>
<meta http-equiv="conten-language" content="THL">
<meta http-equiv="conten-type" content="text/html;charset=gb2312">
<style type="text/css">
<!--
.style5 {font-size:smaller}
.style6 {color:#ff0000}
-->
</style>
</head>

<body>
<form method="post" action="custadd.asp" name="login">
身份验证: <input type="text" name="idnumber" size="20" maxlength="18" class=style5>
<span class="style6">*</span><br>
<input name=tijiao type="button" class="style5" value="提交">
</form>
</body>
</html>
我把你需要的东西剪下来了,你看看可以用吗?
如果有错,IIS不提示的!不会正常工作,但是要显示!

2006-06-23 15:09
快速回复:[求助]为什么我做的判断同一用户名就不能成功呢~
数据加载中...
 
   



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

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