关于无组件上传！！在线等！十万火急~~~

[yzone]

最近一直在研究无组件上传图片，全是COPY别人代码，整了半天自己做的还是不能实现上传功能，而且别人的代码又复杂，每个人的都不一样，我想请大家帮帮我，能给我一个简单的无组件上传的程序吗？学不会这个东西，我吃睡难安啊，您一定得帮帮我，您可以联系我的QQ：119105123，给我一个简单易懂的上传图片的程序，在下谢谢了！

[mqmelon]

这样呀，很好，当初我也和你一样。
我的QQ：8661682,希望我的代码能帮你。

[擒兽]

建议楼主搜索 无惧上传类 找到 无惧 的官方站后进去看Help，这个比任何东西都干净和简单。

[lshk520]

我有现成的。加20915752

[caobin518]

我把代码贴给你算了：
<%
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&""
%>

[caobin518]

相信你看得懂，看不懂就加我吧：158953820.
明天上午9点后会一直在线的

[yzone]

非常感谢大家的帮助和建议，我马上给分！