最简化ASP代码实现无组件上传 -------------------------------------------------------------------------------- 作者： 来源： 更新日期：2005-04-16 浏览次数：122

目前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本最关键的是没有10行代码以下的 :)用了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> Cancel 方法 使用方法如下 Object.Cancel 说明：取消执行挂起的异步 Execute 或 Open 方法的调用。 Close 方法 使用方法如下 Object.Close ：关闭对像 CopyTo 方法 使用方法如下 Object.CopyTo(destStream,[CharNumber]) 说明：将对像的数据复制，destStream指向要复制的对像，CharNumber为可选参数，指要复制的字节数，不选为全部复制。 Flush 方法 使用方法如下 Object.Flush 说明： LoadFromFile 方法 使用方法如下 Object.LoadFromFile(FileName) 说明:将FileName指定的文件装入对像中,参数FileName为指定的用户名。 Open 方法 使用方法如下 Object.Open(Source,[Mode],[Options],[UserName],[Password]) 说明：打开对像， 参数说明：Sourece 对像源，可不指定 Mode 指定打开模式，可不指定，可选参数如下： adModeRead =1 adModeReadWrite =3 adModeRecursive =4194304 adModeShareDenyNone =16 adModeShareDenyRead =4 adModeShareDenyWrite =8 adModeShareExclusive =12 adModeUnknown =0 adModeWrite =2 Options 指定打开的选项，可不指定，可选参数如下： adOpenStreamAsync =1 adOpenStreamFromRecord =4 adOpenStreamUnspecified=-1 UserName 指定用户名，可不指定。 Password 指定用户名的密码 Read 方法 使用方法如下： Object.Read(Numbytes) 说明：读取指定长度的二进制内容。 参数说明：Numbytes指定的要读取的找度，不指定则读取全部。

ReadText 方法 使用方法如下： Object.ReadText(NumChars) 说明：读取指定长度的文本 参数说明：NumChars指定的要读取的找度，不指定则读取全部。

SaveToFile 方法 使用方法如下： Object.SaveToFile(FileName,[Options]) 说明：将对像的内容写到FileName指定的文件中 参数说明：FileName指定的文件 Options 存取的选项，可不指定，可选参数如下： adSaveCreateNotExist =1 adSaveCreateOverWrite =2

SetEOS 方法 使用方法如下： Object.setEOS() 说明： SkipLine 方法 使用方法如下： Object.SkipLine() 说明： Write 方法 使用方法如下： Object.Write(Buffer) 说明：将指定的数据装入对像中。 参数说明：Buffer 为指定的要写入的内容。 WriteText 方法 使用方法如下： Object.Write(Data,[Options]) 说明：将指定的文本数据装入对像中。 参数说明：Data 为指定的要写入的内容。 Options 写入的选项，可不指定，可选参数如下： adWriteChar =0 adWriteLine =1

有下列属性： Charset EOS 返回对像内数据是否为空。

LineSeparator 指定换行格式，可选参数有 adCR =13 adCRLF =-1 adLF =10 Mode 指定或返加模式。 Position 指定或返加对像内数据的当前指针。 Size 返回对像内数据的大小。 State 返加对像状态是否打开。 Type 指定或返回的数据类型，可选参数为： adTypeBinary =1 adTypeText =2 别的论坛找来的楼主可以参考一下。