提示出现错误，大家看看把～目录是 jympjx/uppic.asp ,我的数据库表是 qccg ， 图片子段是 qc_pic ， id编号是qcal_id，
我的上传处理程序是 uppic.asp ,这个运行正常!
代码: <!--#include file="conn.asp"-->
<%
dim rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
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)'上面总共是取得图片的二进制数据
%>
<%
sql="select * from qccg order by qcal_id desc"
set rs=server.createobject("adodb.recordset")
rs.Open sql,conn,3,2
rs.addnew
rs("qc_pic").appendchunk mydata '增加到数据库中
rs.update
set rs=nothing
set conn=nothing
%>
问题就出在这个显示程序 display.asp 上,无法正常显示,提示错误!
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
ODBC 驱动程序不支持所需的属性。
/jympjx/display.asp，行6
display.asp 代码如下
<!--#include file="conn.asp"-->
<%
id=request("qcal_id")
set rs=server.createobject("adodb.recordset")
sql="select * from qccg where qcal_id=" &id
rs.open sql,conn,1,1
Response.ContentType = "text/html" '显示图片的格式也可以用
Response.BinaryWrite rs("qc_pic") '显示图片
rs.close
set rs=nothing
set connGraph=nothing
%>
请高手帮忙检查下 display.asp 到底那里错了啊,郁闷~~~~~~~~~~~~~~~
