28,406
社区成员
发帖
与我相关
我的任务
分享在线等，查询出错--类型不匹配！
<%
错误提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Provider 错误 '80020005'
类型不匹配。
原代码
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
For Each objFile In objFolder.Files
imgname=objFile.Name
set rs=server.CreateObject("adodb.recordset")
sql="select * from Pics where ImgName='"&imgname&"'"
rs.open,sql,conn,1,1 （错误提示说这句有错）
if rs.eof=false then
response.Write("××××")
else
response.Write("××××")
end if
rs.close
set rs=nothing
Next
Set objFolder = Nothing
Set objFSO = Nothing
%>
哪位大哥帮我解决哈呀
错误提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Provider 错误 '80020005'
类型不匹配。
原代码
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
For Each objFile In objFolder.Files
imgname=objFile.Name
set rs=server.CreateObject("adodb.recordset")
sql="select * from Pics where ImgName='"&imgname&"'"
rs.open,sql,conn,1,1 （错误提示说这句有错）
if rs.eof=false then
response.Write("××××")
else
response.Write("××××")
end if
rs.close
set rs=nothing
Next
Set objFolder = Nothing
Set objFSO = Nothing
%>
哪位大哥帮我解决哈呀
...全文
请发表友善的回复…
发表回复
八哥 2005-09-15
- 打赏
- 举报
CONN没有声明,没有打开,
aduosite 2005-09-15
- 打赏
- 举报
数据库访问权限有问题
qfacy 2005-09-15
- 打赏
- 举报
引用打开数据库文件
rym1020 2005-09-15
- 打赏
- 举报
你们都说错了！！
rs.open,sql,conn,1,1 （错误提示说这句有错）
open后面多了个,
rs.open,sql,conn,1,1 （错误提示说这句有错）
open后面多了个,
德仔 2005-09-15
- 打赏
- 举报
是不是少了个conn.asp呀??类型不正确,你所输入的东东跟你表中的字段设好的数据类型是否一致呀??
德仔 2005-09-15
- 打赏
- 举报
rs.open,sql,conn,1,3
