多文件上传组件

作者:网络 来源:佚名 更新时间:2008-02-05 16:08:46 点击:
(因为我还没完成我的组件,不保证文章中的代码的正确性.)
上传多文件
(sander duivestein)
介绍
这是我写的一个上传文件的activex的组件.这个组件是使用winsocket 控件调用ftp提交文件.它仅仅工作在ie3.02或更高的版本,但有些客户端使用netscape,因此不得不找另外的解决方案.但我搜索 internet 和若干新闻组时,发现不止我一个有这样的要求.
在1999.3.11, 看到啦doug dean的一篇15seconds的文章(关于用vb asp 组件上传文件)给我啦一个很好的提示.

doug dean的组件简单并且易用.但他说,然而,多元件的上传问题没解决?因而仍然有一些工作要完成.

在我开始做自己的组件以前,我想知道其他类似控件提供什么样的功能.因此我看啦另外3个著名的组件:
the upload component of software artisans, the upload component of aspupload,
and the microsoft posting acceptor.

通过比较这些组件我觉的我的组件应该满足下列要求:

提交文件的html表单对asp 组件应该是一黑盒子.也就是说组件能接受各种表单元件并能得到表单元件的名字和值.
它应能提供一个上传路径,并且限制大小.
组件应该能处理多个的文件.
组件应该有一错误处理程序.
组件应该性能很好.
组件应该能在nc中象ie一样工作.
保存文件进入数据库.
仅允许某组用能上载文件.
这些对我来说是有相当的挑战.
解决问题
首先我要创建一html文件,它包含两个元件:一简单的文本框,一文件框.这里给出下列代码:
1:upload.htm

<html>
<head><title>upload</title></head>
<body>
<form name="frmupload" method="post" enctype="multipart/form-data" action="upload.asp"> <table>
<tr><td>author</td><td><input type="text" name="txtauthor"></td></tr>
<tr><td>file</td><td><input type="file" name="txtfilename"></td></tr>
<tr><td colspan="2" align="right"><input type="submit" value="upload"></td></tr>
</table>
</form>
</body>
</html>

使用enctype="multipart/form-data" 使表单能够提交一文件.我们也需要一文件接收文件.
2:upload.asp
<%@ language=vbscript %>

<%
option explicit
response.buffer = true
on error resume next

if request.servervariables("request_method") = "post" then

    dim objupload
    dim lngmaxfilebytes
    dim struploadpath
    dim varresult

    lngmaxfilebytes = 10000
    struploadpath = "c:\inetpub\wwwroot\upload\"
    
    set objupload = server.createobject("pjuploadfile.clsupload")
    if err.number <> 0 then
        response.write "the component wasn't registered"
    else
        varresult = objupload.doupload (lngmaxfilebytes, struploadpath)
        set objupload = nothing
dim i
        for i = 0 to ubound(varresult,1)
            response.write varresult(i,0) & " : " & varresult(i,1) & "<br>"
        next

    end if

end if
%>

在这里设置下面两个变量:
lngmaxfilebytes -  文件最大字节数, 和  struploadpath -文件上传位置.我也增加了错误处理程序检查是否装入组件在网服务器上适当注册.这是我做的处理唯一的一个错误.如果任何另外的错误发生,可以再加入处理它.最后,再声明varreturn.这变量用来接受组件的返回值.这返回值应该包含所有的表单元件名字和他们的值.你能看见for next loop中的程序,这返回值必须是一数组.

这是比较容易的部分.现在我们必须创造一activex 组件,用来处理提交的表单.
打开vb6,选择一activex 项目 (参阅步骤1:)

步骤1:
创造一activex dll 项目

首先,先添加一个引用,在菜单条上选定添加引用项,选中
active server pages object library.(参阅步骤2).

步骤2:
工程引用

通过这个库我们能使用asp的request的请求对象.为保证能使用,要用如下代码:

option explicit

private myscriptingcontext as scriptingcontext
private myrequest as request
private myresponse as request

public sub onstartpage(passedscriptingcontext as scriptingcontext)
    set myscriptingcontext = passedscriptingcontext
    set myrequest = myscriptingcontext.request
    set myresponse = mysriptingcontext.response
end sub

为什么我们需要asp库?通过request对象我们能得到由upload.htm传来的http数据流.在那里为什么有一个 "但是"?当我们尝试读 表单字段名字和相对的值,例如,request.form("txttitle"), 但我们就不能读出余下的发送给我们的原始数据.因此我们使用request.totalbytes 和request.binaryread 读取发送的数据.

下面是我从doug dean得到的代码:


    '~~~~~ variables ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    dim varbytecount
    dim binarray() as byte

    '~~~~~ byte count of raw form data ~~~~~~~~~~~~
&nb