关于上传图片的代码

[hucool]

各位大侠,我想写一个上传图片的小程序,请问该如何写?谢谢!

请高手支招!

[dirib]

参考无组件上传类吧

[白夜花寒]

google里搜索lyfupload

[hucool]

看来在asp中没有PHP中的copy函数好用啊!

[ahcs]

关注

[hucool]

不管怎么上传,只要可以把图片传上去就可以了,并且显示出来!

[白夜花寒]

叫你下载一个lyfupload你不会啊，里面是成套的代码，你自己照着抄就可以了，你还想怎么着？？

[caobin518]

给你一段，相信你看得懂：
<!--#include file="connin-conum.asp"-->
<%
server.scripttimeout=9999
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)
if formsize>1024*1024 then
call error("图片太大")
response.end
end if
%
<%

sid=Trim(Request.QueryString("sid"))
Bid=trim(request.QueryString("Bid"))
Sid=chkstr(Sid)
Bid=chkstr(Bid)
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [smobile] where sid="&sid
rs.Open sql,conn,3,3
rs("simg").appendchunk mydata
rs.update
set rs=nothing
set conn=nothing
response.redirect "REcoshow-a.asp?Bname="&bname&"&Bid="&bid&""
%>