aspupload为何上传大于10M的文件到数据库出错

lxf_0233 2005-09-03 06:30:58

<Script language="vb" runat="server">
Sub Page_Load(Source As Object,E As EventArgs)

Dim objUpload As NetUpload.IUploadManager
Dim objFile As NetUpload.IUploadedFile
Response.Expires = -1
objUpload = New NetUpload.UploadManager
objUpload.SetMaxSize(102400,True)
objUpload.ProgressID = Request.QueryString("PID")
objUpload.Save(Missing.Value)
objFile = objUpload.Files.Item("File1")

if IsDBNull(objFile) = False Then

Dim objDbcn As SQLConnection
Dim objSda As SQLDataAdapter
Dim objDst As New DataSet
Dim strCnts As String
strCnts = "Server=w2server\sql2000;Database=OAWeb;User ID=sa;Password=LXFcdl0233"
objDbcn = New SQLConnection(strCnts)
objDbcn.Open
objSda = new SQLDataAdapter("Select * From uploadfile",objDbcn)
objSda.Fill(objDst,"uploadfile")

Dim objTable As DataTable
Dim objRow As DataRow
objTable = objDst.Tables("uploadfile")
objRow = objTable.NewRow()
objTable.Rows.Add(objRow)
objRow.BeginEdit()
objRow("filename") = objFile.FileName
objRow("filesize") = objFile.Size
objRow("filestorage") = objFile.Binary
objRow("memo") = Request.Form("Memo")
objRow("uploadtime") = Now
objRow.EndEdit()

Dim objScb As New SQLCommandBuilder(objSda)
objSda.Update(objDst,"uploadfile")
End If

End Sub
</Script>

...全文