当前位置: 首页 > 图文教程 > 网络编程 > ASP > 6行代码实现无组件上传（author:stimson）

ASP
ASP编程入门进阶（十二）：ASP技巧累加（一）
ASP编程入门进阶（十三）：Ad & Content Rotator
ASP编程入门进阶（十四）：Browser & Linking
ASP编程入门进阶（十五）：组件Counters
一些简单的ASP练习
ASP编程入门进阶（十六）：FSO组件之驱动器操作
ASP编程入门进阶（十七）：FSO组件之文件夹操作
ASP编程入门进阶（十八）：FSO组件之文件操作（上）
ASP编程入门进阶（十八）：FSO组件之文件操作（中）
ASP编程入门进阶（十八）：FSO组件之文件操作（下）
ASP编程入门进阶（十九）：ASP技巧累加（二）
ASP中有关双引号，单引号以及&号的解释
ASP编程入门进阶（二十）：ADO组件之显示数据记录
ASP编程入门进阶（二十）：ADO组件之插入数据记录
ASP编程入门进阶（二十）：ADO组件之分页程序
ASP编程入门进阶（二十）：ADO组件之修改数据记录
ASP编程入门进阶（二十）：ADO组件之删除数据记录
ASP初学者常犯的几个错误（ZT）
无组件上传图片之文件采用方案
ASP编程入门进阶（二十）：ADO组件之查询数据记录

No. « 47 48 49 50 »

技术文章搜索

关键字

ASP 中的 6行代码实现无组件上传（author:stimson）

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-12   浏览: 161 ::
收藏到网摘: n/a

原理代码：

strFileName = Request.QueryString("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.mappath("/upload/tech/20091012/20091012012012_e94550c93cd70fe748e6982b3439ad3b.gif"),2

使用方法：
把上面的代码写成upload.asp
在浏览器里面输入：
http://XXX/upload.asp?file1=c:\上传文件\123.gif
XXX为你的主机地址
执行完后你会看到你的目录下面多了一个/upload/tech/20091012/20091012012012_e94550c93cd70fe748e6982b3439ad3b.gif
他就是你要文件
根据原理我们可以扩展以下代码：
upload.htm文件

<form name="FORM" action="upload.asp" method="post">
<input type="file" name="file1" value="">
　　 <input type="submit" name="submit" value="OK">
</form>

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
%>

本地调试成功，C/S模式不通过！