mh5.0:ASP批量删除文件的错误

来源:百度文库 编辑:高考问答 时间:2024/05/10 19:33:19
<%
dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("../data.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>

<%
set reco=server.createobject("adodb.recordset")
sqlstr="select * from zx where id="&("id")&"" reco.open sql,conn,1,3
while not rs.eof
reco.delete
reco.movenext
wend
Response.end
set reco=nothing
set conn=nothing

%>
..........................
报错如下

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

缺少 'End'

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

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

语句未结束

/asp/goeto/admin/alldel.asp,行12

sqlstr="select * from zx where id="&("id")&"" reco.open sql,conn,1,3
----------------------------------------------^