 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
目前有很多无组件上传类，我大概看了一下，大多写的相称复杂，有的居然还只能传文本最要害的是没有10行代码以下的 ：）我花了一个晚上时间研究了一下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> 返回类别: 教程 上一教程: 把HTML表单提交的数据转化成XML文件 下一教程: 用弹出确认框来确认删除内容 您可以阅读与"ASP实例:6行代码实现无组件上传"相关的教程: · 6行代码实现无组件上传 · 无组件文件上传代码实例 · ASP无组件文件上传的实例 · 一个的无组件上传的ASP代码 · 用纯ASP代码实现图片上传并存入数据库中 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
