ASP+SQL图片存入数据库中????

[lsgaz]

在网上找到了一些代码,就是所谓的,图片上传用单独的页面,UPIMAGE.ASP但结果报,leftb调用错误程序不能运行．各位老大到底该怎么搞才能把图片存入数据库中的相应ＩＭＡＧＥ字段中啊．
FormSize = Request.TotalBytes '得到数据
FormData = Request.BinaryRead( FormSize )
function ImageUp(formsize,formdata) '这个函数的功能是截取其中的图像部分。
bncrlf=chrb(13)&chrb(10) '做成函数后。以后你可以自己随意使用了。
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end function
Image=ImageUp (FormSize,Formdata) '这里就是图像部分了。
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from JD_Employee order by id desc"
rs.Open sql,conn,1,3
'因为表单二在表单一提交的过程中下提交了。
rs("eply_photo").appendchunk Image '所以这里是添加。
rs.Update

[尚和空四]

<%
Set Fields = GetUpload()

For Each Field In Fields.Items
if Field.name = "title" then title = BinaryToString(Field.value)
if Field.name = "content" then content = BinaryToString(Field.value)
if Field.name = "from" then from = BinaryToString(Field.value)

if Field.name = "file1" then
filename = field.FileName
fileContentType = field.ContentType
filevalue = field.value
end if
next

sql = "select * from fileTest"
rs.Open sql,conn,1,3
rs.addnew

if filename <> "" then
rs("filename") = filename
rs("fileType") = fileContentType
rs("fileContent").appendchunk filevalue
end if
rs.Update
rs.close
set rs = nothing
%>

[尚和空四]

<%
response.Expires=0
response.Buffer=true
response.Clear
dim picId
picId = int(request("c_login_id"))
response.Write(picId)
strsql="select c_photo_pic from t_photo where c_login_id = 5 " '& picId
rs.open strsql,conn,3,1
'response.BinaryWrite(rs("c_photo_pic"))
'response.End()
if rs.recordcount <> 0 then
response.ContentType="image/*"
response.BinaryWrite(rs("c_photo_pic"))
end if
%>
展示

[iexapl]

znjgress(剑客) 正解

[lsgaz]

还是不太明白,我说的是图片本身,二进制.不是文件路径,用INPUT TYPE="FILE"找到图片,表单提交后,只是一个路径,怎么搞呢.说明的是只有一个表单,最好不要分别上传的那种,在一个页面就能完成.谢谢.

[huguang]

在一个页面比较麻烦！因为以二进制保存到数据库的时候，一次只能处理一个！