6行代码实现ASP无组件上传
2011-10-13 18:06
495 查看
前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本,最关键的是没有10行代码以下的:),我花了一个晚上时间研究了一下ADODB.Stream,并且用了6行代码实现了无组件上传:
upload.ASP 文件代码
<%
strFileName = Request.QueryString("fn")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary 二进制方式
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath("zsLOGO.gif"),2
%>
使用方法
在浏览器里面输入:
http://xxx/upload.asp?fn=c:\上传文件\123.gif
其中xxx为你的网站域名地址,比如:www.jzxue.com
执行完后你会看到你的目录下面多了一个zslogo.gif,就是你刚才上传的文件拉!
根据ASP无组件上传原理,我们把上面的代码扩展为以下代码:
upload.asp 文件代码
<%
Function GetFileName(ByVal fn)
If fn<>"" Then GetFileName=mid(fn,InStrRev(fn,"\")+1) Else GetFileName=""
Endfunction
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="upform" action="upload.asp" method="post" enctype="multipart/form-data">
<input type="file" name="file1" style="width:400px;" value="" />
<input type="submit" name="submit" value="上传文件" />
</form>
upload.ASP 文件代码
<%
strFileName = Request.QueryString("fn")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary 二进制方式
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath("zsLOGO.gif"),2
%>
使用方法
在浏览器里面输入:
http://xxx/upload.asp?fn=c:\上传文件\123.gif
其中xxx为你的网站域名地址,比如:www.jzxue.com
执行完后你会看到你的目录下面多了一个zslogo.gif,就是你刚才上传的文件拉!
根据ASP无组件上传原理,我们把上面的代码扩展为以下代码:
upload.asp 文件代码
<%
Function GetFileName(ByVal fn)
If fn<>"" Then GetFileName=mid(fn,InStrRev(fn,"\")+1) Else GetFileName=""
Endfunction
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="upform" action="upload.asp" method="post" enctype="multipart/form-data">
<input type="file" name="file1" style="width:400px;" value="" />
<input type="submit" name="submit" value="上传文件" />
</form>
相关文章推荐
- ASP实例:6行代码实现无组件上传
- 6行代码实现ASP无组件上传
- 强烈反驳'6行代码实现无组件上传'
- 6行代码实现无组件上传(author:stimson)
- 6行代码实现无组件上传
- 五行代码实现ASP无组件上传
- ASP实现无组件文件上传的代码
- 6行代码实现无组件上传(author:stimson)
- 五行代码实现ASP无组件上传
- 五行代码实现ASP无组件上传
- 实现ASP.NET多文件上传程序代码
- asp.net多图片上传实现程序代码
- 6行代码实现无组建上传(转)
- asp.net多图片上传实现程序代码
- ASP.NET(C#)实现一次性动态上传多张图片的代码(多个文件)
- asp.net MVC实现无组件上传图片实例介绍
- asp.net实现ftp上传代码(解决大文件上传问题)
- asp.net实现ftp上传代码(解决大文件上传问题)
- asp.net(C#)防sql注入组件的实现代码
- 用纯ASP代码实现图片上传