读取赋值问题
<% Option Explicit %><%
Dim X_id
X_id=request.QueryString("id")
Dim db,rs,sql,a,objFSO
Set db=Server.CreateObject("ADODB.Connection")
db.Open "background"
set rs=server.CreateObject("adodb.recordset")
sql="Select * From lh where id="&Cint(X_id)
db.Execute(Sql)
a=rs("imgsrc1")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileexists(Server.MapPath(a)) then
objFSO.deletefile Server.MapPath(a),true
end if
db.execute("delete from lh where id="&Cint(X_id))
response.Redirect("../picup/pic-up2.asp")
%>
运行结果是 红色字体就是第十一行 我数据库可有这字段
请问哪儿错了