原理代码： strFileName = Request.QueryString("file1")Set objStream = Server.CreateObject("ADODB.Stream")objStream.Type = 1 ' adTypeBinaryobjStream.OpenobjStream.LoadFromFile strFileNameobjStream.SaveToFile Server.mappath("123_onweb.gif"),2使用方法：把上面的代码写成upload.asp在浏览器里面输入：http://XXX/upload.asp?file1=c:上传文件123.gif XXX为你的主机地址执行完后你会看到你的目录下面多了一个123_onweb.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 <> "" ThenGetFileName = mid(strFile,InStrRev(strFile, "")+1)ElseGetFileName = ""End IfEnd functionstrFileName = Request.Form("file1")Set objStream = Server.CreateObject("ADODB.Stream")objStream.Type = 1 ' adTypeBinaryobjStream.OpenobjStream.LoadFromFile strFileNameobjStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2objStream.Close%>本地调试成功，C/S模式不通过！

　　推荐阅读

　　ASP编程入门进阶（十三）：Ad & Content Rotator

ASP的强大不仅仅局限于接受和显示的交互，更多的是运用ActiveX 组件进行更强大的Web应用。那究竟ActiveX组件为何物？它又是如何运作的呢？其实ActiveX Server Components(ActiveX 服务器组件)是一个存在于 WEB 服务>>>详细阅读

本文标题：6行代码实现无组件上传（author:stimson）

地址：http://www.17bianji.com/kaifa2/ASP/32847.html

 1/2    1