客户端自己创建,于是用 asp.net 写了个多附件上传的方案。 如有疑问请联系 QQ26542056,Mail:cjlwxy@163 现将源码公布 aspx 页面代码: <%@ Page Language="vb" AutoEventWireup="false" Codebehind="Upload.aspx.vb" Inherits="Test.Upload"%> NET 7.0"> name="vs_targetSchema" content="schemas.microsoft/intellisense/ie5"> function addFiles(oContainer) { var sLineHTML="
"; oContainer.insertAdjacentHTML('beforeEnd',sLineHTML ); } function delFileInput(oInputButton) { var divToDel=oInputButton.parentNode; divToDel.parentNode.removeChild(divToDel); } aspx.vb 代码: Imports System.IO Public Class Upload Inherits System.Web.UI.Page Protected WithEvents lblError As System.Web.UI.WebControls.Label Protected WithEvents btnUpLoad As System.Web.UI.WebControls.Button #Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。 InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As Private Sub System.EventArgs) Handles MyBase.Init 'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 '不要使用代码编辑器修改它。 InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal '在此处放置初始化页的用户代码 End Sub Private Sub btnUpLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpLoad.Click Dim sFilesName As String Dim oPostedFile As HttpPostedFile Dim n As Integer Dim i As Integer n = Request.Files.Count() For i = 0 To n - 1 oPostedFile = Request.Files.Item(i) sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load sFilesName = UpLoadMoreFile(oPostedFile, "TestDic") Select Case sFilesName Case "" Case "InValid" lblError.Text = lblError.Text + "文件: " &; oPostedFile.FileName &; " 不合法! " Case "Failure" lblError.Text = lblError.Text + "文件: " &; oPostedFile.FileName &; " 上传失败! " Case Else lblError.Text = lblError.Text + "文件: " &; oPostedFile.FileName &; " 上传成功! " End Select Next i End Sub '++++++++++++++++++++++++++++++++++++++++++++++++ +++++++ '名称:UpLoadMoreFile '说明:上传文件 '参数:poFile : 上传文件输入域名,如:txtPicture ' ' ' ' ' ' +++++++ Function UpLoadMoreFile(ByVal poFile As System.Web.HttpPostedFile, ByVal psPath As String) As String Dim sPath As String Dim sFileName As String Dim **t As String '扩展名 '首先判断文件输