六行代码实现无组件上传

 <!--#include file="upload_class.asp"-->
<%
 Dim Upload,filename  [color=Red]'第1行[/color]
 set Upload=new AnUpLoad   [color=Red]'第2行[/color]
 Upload.GetData()     [color=Red]'第3行[/color]
 filename=Upload.save("file1").AsThis(server.mappath("."),0)  [color=Red]'第4行[/color]
 [color=SeaGreen]'filename=Upload.saveAs("file1",server.mappath("."),0)[/color]
 response.write filename   [color=Red] '第5行[/color]
 set Upload=nothing     [color=Red]'第6行[/color]
%>

第1行: 没的说,定义变量;

第2行: 要用到上传类,创建类实例

第3行: 调用类方法GetData,来处理用户上传的文件

第4行: 保存文件方法Upload.Save("file1").AsThis(server.mappath("."),0),可以这样理解:保存(save)表单file1的文件到服务器,按照(AsThis)这样的方法(路径为当前文件夹,文件命名方式为0)
        下面还有一行注释掉的代码,和本行代码功能完全一样,Upload.saveAs("file1",server.mappath("."),0),和上面理解一样,不过更容易理解和使用

第5行: 输出函数返回的文件名

第6行: 注销类实例

http://www.ii-home.cn/detial.asp?id=143