想实现图片与文字同时上传,但是还有一点小问题
数据表test的结构是:
id|img
id为文本,img问ole对象
upload.asp:
(接收由另一个页面传过来的数据)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="include/function.inc"-->
<%
conn=createconnection("database/test.mdb")
set t=server.CreateObject("adodb.recordset")
sql="select * from test"
t.open sql,conn,1,3
function gainformdata(n)
dim formsize,formdata,divider,datastart,dataend
redim mydata(n-1)
formsize = Request.TotalBytes
formdata = Request.BinaryRead(formsize)
for i=1 to n
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-2
mydata(i-1) = midB(formdata,datastart,dataend)
formdata=rightB(formdata,clng(formsize-instrB(datastart+1,formdata,divider))+1)
formsize=lenB(formdata)
next
gainformdata=mydata
end function
'只需要告诉循环的次数n,返回是mydata数组
%>
<%
data=gainformdata(2)
%>
<%
t.addnew
t(0)=binarytostring(data(0)
t(1).appendchunk=data(1)
t.update
%>
报错为:
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'binarytostring'
/kxs/testupload.asp,行34
我觉得data(0)就是二进制数据嘛(我用response.binarywrite(data(0))是可以正确显示的嘛),怎么会不匹配呢?想不通……
请大家不论赐教