大家好: 请高手们指教这段连接ac数据库并判断用户序列号的程序的语法错误,我才学请多指教,
谢谢!就是红色那段有问题!guest.mdb是我建立的数据库,cerNuber 数据库的表! 代码如下:
<% Dim con,sql,nber,rs nber=Request.ClientCertificate("SerialNumber") set con=Server.CreateObject("adodb.Connection") 'dbpath=server.MapPath("data/guest.mdb") con.open "driver={microsoft access driver (*.mdb)};dbq=server.MapPath("data/guest.mdb") provider=microsoft.jet.oledb.4.0;data source=server.MapPath("data/guest.mdb")" sql="select nber from cerNuber where nber='"&nber&"'" set rs=con.execute(sql)
if rs.eof then
response.write "<div align='center' style='font-size:11pt'><b>对不起,请提供有效的数字证书进行登录!点<a href='#' onclick='javascript:history.back(-1)'>这里</a>返回</b></div>" Response.End else nber=rs("nber") end if rs.close set rs=nothing con.close set con=nothing %>
机器上报错为: Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft VBScript 编译器错误 错误 '800a0401'
语句未结束
/myweb/abc.asp,行6
con.open "driver={microsoft access driver (*.mdb)};dbq=server.MapPath("data/guest.mdb") -----------------------------------------------------------------------^