欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP：6行代码实现无组件上传】，下面是详细的分享！
ASP：6行代码实现无组件上传
我花了一个晚上时间研究了一下ADODB.Stream，并且用了6行代码实现了无组件上传：
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
他就是你要文件拉！！！！
根据原理我们可以扩展以下代码：
upload.asp文件
＜%
Function GetFileName(ByVal strFile)
If strFile ＜＞ "" Then
GetFileName=mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName=""
End If
End function
strFileName=Request.Form("file1")
Set objStream=Server.CreateObject("ADODB.Stream")
objStream.Type=1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
%＞
upload.htm文件
＜form name="FORM" action="upload.asp" method="post"＞
＜input type="submit" name="submit" value="OK"＞
＜input type="file" name="file1" style="width:400" value=""＞
＜/form＞
以上所分享的是关于ASP：6行代码实现无组件上传，下面是编辑为你推荐的有价值的用户互动：
相关问题：ASP无组件上传代码，只求简单！
答：dim upload,file set upload=new UpFile_Class ''建立上传对象 upload.GetDate (2048*1024) '取得上传数据,限大小2M if upload.err > 0 then select case upload.err case 1 Response.Write "请先选择你要上传的文件 [ 重新上传 ]" case 2 Respo... >>详细
相关问题：ASP无组件上传源码解释
答： 无标题文档 0 Then formsize=request.totalbytes ' 取二进制流字节长度 formdata=request.binaryread(formsize) ' 读取二进制流内容 bncrlf=chrB(13)&chrB(10) datastart=instrb(formdata,bncrlf&bncrlf)+3 ' 取二进制流文件开始位置 (两个回车... >>详细
相关问题：asp无组件上传图片代码
答：首先 asp3.0无组件上传时不大可能的 必须用到的组建 你使用bin格式的字段存储图像 那好多图像时不成的 会不识别 我记得是bmp的 256色的 才成 至于你下边做的只能存图片的名称 至于你存图片的你根本没写出了 >>详细
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-