这是我做的代码,请帮我看看
<%
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 编译器错误
缺少 'End'
/zhuc2.asp,行43
else ^