aspupload为何上传大于10M的文件到数据库出错
<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>