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

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
^

<%

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
%>

你这结构很混乱的

同意楼上的说法

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

逻辑上的东东要搞清楚

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位数字就不能注册成功

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

<%

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
%>

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

那样就不能判断身份证的位数了，我试过。

用客户端脚本判断！只不过也许会有漏洞！
我只是提议～～！

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

用ＶＢＳ算了，我是学这个的，我也很菜，我昨天整一个客户端验证，弄了一个通宵，才弄出来！
我给你发个代码，你使用一下，看可以不？大家互相帮助，相互学习嘛！我还没出去找工作呢？我想把自己锻炼得很强了，做个比较完善的小电子商务之后，再出去找工作！然后再转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>
我把你需要的东西剪下来了，你看看可以用吗？
如果有错，ＩＩＳ不提示的！不会正常工作，但是要显示！