不用组件上载文件代码具体例子

下面的第一个例子为只是将客户端的文件上传到服务端的例子

第二个例子为将文件内容保存入数据库中。

文件fupload.ASP

<%

dim ResultHTML

'Some value greater than default of 60s (According to upload size.)

'The maximum speed is about 100kB/s for IIS4, P200 and local upload, 4kB/s for modem users.

Server.ScriptTimeout = 400

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST" for get the fields

'　BeginTimer 'Starts timer.

　'*************************************************　 Main Upload - start

　　Dim Fields

'　　on error resume next

　　'Set upload limit to 10M

　　UploadSizeLimit = 10000000

　　'Gets uploaded fields

　　Set Fields = GetUpload()

　　'There are all of form fields in the Fields object. Example :

　　'Fields("File1").ContentType - content type of File1 field

　　'Fields("File1").Value - Binary value of File1 field

　　ResultHTML = ""

　　If Err = 0 Then 'Upload was OK

　　　'Write statistics about upload

　　　dim Field

　　　For Each Field In Fields.Items

　　　　ResultHTML = ResultHTML & "

Field : " & LogF(Field.name) & ", Length : " & LogFn(Field.Length) & ", Content-Type : " & LogF(Field.ContentType) & ", SourceFileName :?b>" & LogF(Field.FileName) & ""

　　　Next

　　　'Saves the fields to the disk, writes result to the client and writes log.

　　　'See utils.inc. You can change the function to save the files to another location.

　　　ResultHTML = ResultHTML & "
" & SaveUpload(Fields, Server.MapPath("."), LogFolder)

　　Else 'Error in upload. Write the error

　　　ResultHTML = ResultHTML & "

Error : " & Err.Description

　　End If

　　On Error GoTo 0

　　Fields = Empty 'Clear the variable

　'*************************************************　 Main Upload - end

'　EndTimer 'Writes info about consumed time.

End If 'Request method must be "POST"

%>

<%'upload.inc, contains GetUpload function, Required for upload - only the one file%>

<%'utils.inc, contains SaveUpload function%>

<%'format.inc, contains head and Foot function, optional.%>

<%=Head("Sample multiple binary files upload via ASP", "Demonstrates using of the ByteArray class for working with binary data from Request.BinaryRead.")%>

　

　　

　　

　　

　　

　　

　　

　

File???input type="file" name="File1"> 　　　　File???input type="file" name="File2"> 　　　 　　　 　　　　add a file
Checkbox
Password
Comments
Description	Some long text of any size - without 80k limit of ASP Request.Form("...").

<%=Foot%>

文件fdbutl.ASP将文件内容保存如数据库中

<%'upload.inc, contains GetUpload function, Required for upload - only the one file%>

<%'format.inc, contains head and Foot function, optional.%>

<%=Head("Sample database upload via ASP", "Demonstrates using of the ByteArray class for working with binary data from Request.BinaryRead.")%>

　

　　

　　

　　

　　

　

File to upload
Title
Description	Type description of the file.

<%=Foot%>