求高手给个稍微精简的上传代码
本人菜鸟 刚刚接触asp 请众位高手多多提携 问题点数：0、回复次数：6Top
1 楼zlhran（楚云飞）回复于 2005-05-08 09:05:38 得分 0
meirenhuei
Top
2 楼baikaishui_0825（baikaishui）回复于 2005-05-08 09:08:58 得分 0
搜索无组件上传就有很多Top
3 楼cime63（流浪的孩子）回复于 2005-05-08 09:18:36 得分 0
风声
无惧
化境
用起来都可以的Top
4 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2005-05-08 09:26:10 得分 0
<script language="vbscript" runat="server">
Dim objStream,vbCrlf
vbCrlf = chrB(13) & chrB(10)
formsize=Request.TotalBytes '获取传上来的二进制数据的大小
' response.write formsize
'formdata=Request.BinaryRead(formsize) '获取传上来的二进制数据
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type=1
objStream.Mode=3
objStream.Open
objStream.Write Request.BinaryRead(formsize)
'response.write formdata
objStream.Position = 1
RequestData =objStream.Read
objStream.savetofile server.MapPath("test.jpg"),1
'response.write RequestData
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
pos= InStrB(1,RequestData,vbCrlf & vbCrlf)+3
sStart = MidB(RequestData,1, InStrB(1,RequestData,vbCrlf)-1)
theend=InStrB(pos,RequestData,sStart)
'response.write pos & "</br>"
'response.write RequestData
objStream.Position =pos
objStream.copyto dr,theend-pos
dr.savetofile server.MapPath("test.gif"),1
dr.close
objStream.Close
Set objStream = Nothing
set dr=nothing
</script>Top
5 楼lovebeyondforever（我不信）回复于 2005-05-08 09:30:30 得分 0
收藏!Top
6 楼sunshift（http://www.56390.com/）回复于 2005-05-08 09:38:48 得分 0
strFileName = Request.QueryString("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server."123_onweb.gif",2
使用方法：
把上面的代码写成upload.asp
在浏览器里面输入：
http://XXX/upload.asp?file1=c:\上传文件\123.gif
XXX为你的主机地址
执行完后你会看到你的目录下面多了一个123_onweb.gif
他就是你要文件拉！！！！
Top
