图片上传到sql数据库出错了！~

[qing7911]

FormSize = Request.TotalBytes '得到数据
FormData = Request.BinaryRead( FormSize )
Request 对象 错误 'ASP 0104 : 80004005'
不允许操作

上一页代码：
<form name="form1" ENCTYPE="multipart/form-data" ACTION="upimage.asp" METHOD="POST">
<input NAME="picture" TYPE="FILE">
<input type="submit" name="Submit" value="提交">
</form>

[笨笨兔兔兔兔兔]

你是不是binary之后又request了?

[zhanghongwen]

set iRe=Server.CreateObject("ADODB.Recordset")
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & server.mappath("../gs.asp")
iSql="select * from digital where id="& session("id") &""

iRe.Open iSql,iConcStr,1,3
iLen=Request.TotalBytes
sBin=Request.BinaryRead(iLen)
iCrlf1 = ChrB(13) & ChrB(10)
iCrlf2 = iCrlf1 & iCrlf1
iLen = InStrB(1, sBin, iCrlf1) - 1
iSpc = LeftB(sBin, iLen)
sBin = MidB(sBin, iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
While iPos1 > 0
iStr = f_Bin2Str(LeftB(sBin, iPos1))
iPos1 = iPos1 + 5
iPos2 = InStrB(iPos1, sBin, iSpc)

iPos3 = InStr(iStr, "; filename=""") + 12
If iPos3 > 12 Then
iStr = Mid(iStr, iPos3)
iPos3 = InStr(iStr, Chr(13) & Chr(10) & "Content-Type: ") - 2
iFn = Left(iStr, iPos3)
If iFn <> "" Then

iRe("fname") = mid(iFn,instrrev(iFn,"\")+1)
iRe("img_type") = Mid(iStr, iPos3 + 18)
iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
iRe.Update
End If
End If

sBin = MidB(sBin, iPos2 + iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
Wend
response.Redirect("digital_data_1.asp")
response.end

iRe.close
set iRe=Nothing

[qing7911]

还是不行，有那位大虾有完整一点的代码让我下载呀？[e-mail]