繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 6行代码实现无组件上传（author:stimson）
- ASP
- ASP编程入门进阶（廿一）：DAO SQL之建立数据库表
- ASP应用之模板采用
- ASP上传图片功能的又一实现（OLE对象）
- asp中FSO复制文件代码
- asp复制文件夹代码
- 实例演练ASP+XML编程比较全的了
- 利用ASP从远程服务器上接收XML数据的方法
- PJ-Blog教程┊增强博客用户体验～让发表内容的同时拷贝到剪贴板以防丢失
- TSYS一个新闻多种特性时如何进行前台更新?
- TSYS资源特性的效率提高方法
- 重置TSYS系统中的所有"生成的文件"成"未生成文件"
- TSYS中生成静态页时溢出: ''CInt''
- asp实现防止站外提交内容的两个方法
- ASP中生成文本文件的两种方式
- ASP是否可以定时触发事件
- ASP解压缩（在线解压缩类）
- 使用ASP删除指定IIS站点
- 使用ASP控制指定站点解析脚本语言函数
- HTML标签及ASP函数速查表
- 如何使用Administrators组用户运行ASP程序
ASP 中的 6行代码实现无组件上传（author:stimson）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 262 ::
收藏到网摘: 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模式不通过！
评论 (0) All
