标题:各位请教一下
取消只看楼主
cardman
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2005-9-2
 问题点数:0 回复次数:5 
各位请教一下

一点上传图片就出现,什么问题?各位大虾指教. Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver] 无法从指定的数据表中删除。

/processimg.asp,行20

搜索更多相关主题的帖子: 图片 Microsoft common 编译器 
2005-09-02 16:21
cardman
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2005-9-2
得分:0 
传不成功,然后就是这东西: Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver] 无法从指定的数据表中删除。

/processimg.asp,行20

2005-09-02 16:40
cardman
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2005-9-2
得分:0 
如果是这样,我该怎么改?
2005-09-05 08:14
cardman
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2005-9-2
得分:0 

#upload.asp <html> <head> <meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312" charset="gb2312"> <link rel="stylesheet" type="text/css" href="stylesheet/main.css"> </head> <body> <br> <center> 照片上传 </center> <br> <center> 您上传的照片 </center> <center> <a href="showimg.asp" target="_blank" title="放大观看"><img src="showimg.asp" height=150 border=1></a> </center> <center> <form name="mainForm" enctype="multipart/form-data" action="processimg.asp" method=post> <input type=file name=mefile style="font-size:9pt"><br><br> <input type=submit name=ok value="上传照片" style="font-size:9pt"> </form> </center>

</body> </html> ###processimg.asp <% response.buffer=true formsize=request.totalbytes formdata=request.binaryread(formsize) bncrlf=chrB(13) & chrB(10) divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) datastart=instrb(formdata,bncrlf & bncrlf)+4 dataend=instrb(datastart+1,formdata,divider)-datastart mydata=midb(formdata,datastart,dataend)

set connGraph=server.CreateObject("ADODB.connection") connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("data/images.mdb") & ";uid=;PWD=;" connGraph.Open

uid=trim(session("userid")) set rec=server.createobject("ADODB.recordset") rec.Open "SELECT * FROM [images] where uid='" & uid & "'",connGraph,1,3

if not rec.eof then connGraph.execute "delete from images where uid='" & uid & "'" end if rec.addnew rec("uid")=uid rec("img").appendchunk mydata rec.update rec.close set rec=nothing set connGraph=nothing response.redirect "imgupok.asp" %> ###imgupok.asp <html> <head> </head> <body> <p align="center">  <p align="center"> </p> <p align="center">照片上传成功,请<a href="javascript:history.go(-1)">返回</a>后刷新</p> </body> </html> ###showimg.asp <% set connGraph=server.CreateObject("ADODB.connection") connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("data/images.mdb") & ";uid=;PWD=;" connGraph.Open

set rec=server.createobject("ADODB.recordset") if trim(request("userid"))<>"" then strsql="select img from images where uid='" & trim(request("userid")) & "'" else strsql="select img from images where uid='" & trim(session("userid")) & "'" end if rec.open strsql,connGraph,1,1 if not rec.eof then Response.ContentType = "image/gif" Response.BinaryWrite rec("img").getChunk(7500000) rec.close set rec=nothing set connGraph=nothing else rec.close set rec=nothing set connGraph=nothing if trim(session("userid"))=trim(request("userid")) then response.redirect "images/noimg.bmp" else response.redirect "images/notupload.jpg" end if end if %> ###以上是所有代码,大家自己建个库试下,一传就出现: Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver] 无法从指定的数据表中删除。

/processimg.asp,行20

2005-09-05 10:11
cardman
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2005-9-2
得分:0 
原来是没开权限.
 我想在####showimg中显示多个图片该怎么改?
2005-09-05 17:40
cardman
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2005-9-2
得分:0 
1和3具体代表什么东东?
 打开?
 #showimg中还只显示得了一张图.
2005-09-07 08:46



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-26568-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.622515 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved