求ASP+sql 图片上传代码

[cwj1983]

求一段文本和图片同步上传的代码，

[caoqingqing]

http://topic.csdn.net/t/20020324/23/597170.html

http://topic.csdn.net/t/20020324/23/597165.html

[stoneloveice]

给个邮箱,给你发过去.

[hyq8848]

数据库插入
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)
提取数据
rs.Open "select pic from tbl_user where xzqh='"&xzqh&"' and dwbm='"&dwbm&"' and name='"&name&"'", ,3,1
if isnull(rs("pic"))=false then
Response.ContentType = "image/gif"
response.BinaryWrite rs("pic").getChunk(7500000)
else
response.Redirect("../images/wuren.jpg")
end if
rs.close
显示
<img src="*.asp">
rs.Open "select * from tbl_user where name='"&name&"' and xzqh='"&xzqh&"' and dwbm='"&dwbm&"'", ,3,3

rs("pic").appendchunk mydata
rs.update
rs.close
cn.close

[kafly]

不给分？
楼上这个只能显示图片，图片文件名丢了啊

response.Expires = 0
response.Buffer = True
response.Clear
Response.AddHeader "Content-Disposition","attachment;filename=" & filename
response.contentType = Session("Type")
response.BinaryWrite Session("Bytes")

这样比较全一点，改改吧

[cwj1983]

有全面一点的吗？

[kafly]

到底想要什么？
加QQ说 945881