Dim sFileName As String = Server.MapPath(".") & "\upload\" & Me.Label3.Text
'Dim sFileName As String = Server.MapPath(".") & "\物资需求计划表.xls"
'先导入数据集
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + sFileName + ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
Dim strSQLCommand As String = "SELECT * FROM [物资计划表$]"
Dim DS As System.Data.DataSet
DS = New System.Data.DataSet
Dim myCommand As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(strSQLCommand, strConn)
myCommand.Fill(DS)
Dim ss As Integer = DS.Tables(0).Columns.Count
Dim rr As Integer = DS.Tables(0).Rows.Count
Dim ColumnsNames(ss) As String
Dim Columns(rr, ss) As String
Dim i, j As Integer
For i = 4 To 500
For j = 1 To 13
'获取列的集合的名称
'ColumnsNames(i) = DS.Tables(0).Columns(i).ColumnName.ToString()
If Not IsDBNull(DS.Tables(0).Rows(i)(j)) Then
Columns(i, j) = DS.Tables(0).Rows(i)(j)
Else
Columns(i, j) = "null"
End If
'Response.Write("columns('" & i & "','" & j & "')=" & Columns(i, j))
'Response.Write("<br>")
Next
Next
DS.Clear()
DS = Nothing
myCommand = Nothing
'Response.Write(ss & rr)
'Dim sql As String
'sql = "delete from lstable"
'UpdateDataBase(sql)
For i = 4 To 500
If Not Columns(i, 1).Equals("null") Then
If Columns(i, 11).Length < 8 Then
Columns(i, 11) = Format(CDate(DateTime.Now.ToShortDateString), DateFormat)
Else
Dim _files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
'//Message to the user
Dim _message As New System.Text.StringBuilder("Files Uploaded:<br>")
Dim _iFile As System.Int32
Dim ron As Integer
Dim ro As New Random
ron = 0
Try
For _iFile = 0 To _files.Count - 1
'// Check to make sure the uploaded file is a jpg or gif
Dim _postedFile As System.Web.HttpPostedFile = _files(_iFile)
Dim _fileName, _fileExtension As System.String
_fileName = System.IO.Path.GetFileName( _
_postedFile.FileName)
ron = ro.Next(1000)
Me.Label3.Text = ron & _fileName
_fileExtension = System.IO.Path.GetExtension( _
_fileName)
If (_fileExtension <> "") Then
_postedFile.SaveAs( _
System.Web.HttpContext.Current.Request.MapPath( _
"upload/") + Me.Label3.Text)
_message.Append(Me.Label3.Text + "<BR>")
Else
_message.Append(Me.Label3.Text & " <font color=""red"">请选择要上传的文件!!!</font> <BR>")
End If
Next
Label1.Text = _message.ToString()
Catch Ex As System.Exception
Label1.Text = Ex.Message
End Try
上传代码
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Diagnostics;
using System.Web;
using System.Web.Services;
using System.IO;
namespace xml.sz.luohuedu.net.aspxWebCS
{
/// <summary>
/// Upload 的摘要说明。
/// </summary>
[WebService(Namespace="http://xml.sz.luohuedu.net/",
Description="在Web Services里利用.NET框架进上载文件。")]
public class Upload : System.Web.Services.WebService
{
public Upload()
{
//CODEGEN:该调用是 ASP.NET Web 服务设计器所必需的
InitializeComponent();
}
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
using System.Web.Services;
using System.IO;
其中:maxRequestLength:指示 ASP.NET 支持的HTTP方式上载的最大字节数。该限制可用于防止因用户将大量文件传递到该服务器而导致的拒绝服务攻击。指定的大小以 KB 为单位。默认值为 4096 KB (4 MB)。executionTimeout:指示在被 ASP.NET 自动关闭前,允许执行请求的最大秒数。在当文件超出指定的大小时,如果浏览器中会产生 DNS 错误或者出现服务不可得到的情况,也请修改以上的配置,把配置数加大。
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Diagnostics;
using System.Web;
using System.Web.UI;
using System.Web.Services;
using System.IO;
namespace xml.sz.luohuedu.net.aspxWebCS
{
/// <summary>
/// GetBinaryFile 的摘要说明。
/// Web Services名称:GetBinaryFile
/// 功能:返回服务器上的一个文件对象的二进制字节数组。
/// </summary>
[WebService(Namespace="http://xml.sz.luohuedu.net/",
Description="在Web Services里利用.NET框架进行传递二进制文件。")]
public class GetBinaryFile : System.Web.Services.WebService
{
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
using System.Web.Services;
namespace aspxWebCS
{
/// <summary>
/// GetBinaryFileShow 的摘要说明。
/// </summary>
public class GetBinaryFileShow : System.Web.UI.Page
{