<!-- #include file="Upload.asp" -->
<%
Server.ScriptTimeout = 900

dim Conn,RS
Set RS = Server.CreateObject("ADODB.Recordset")
Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.open "Data Source=" & Server.MapPath("upload.mdb") 

Set upload= New DoteyUpload
Dim binary, uploadID

Upload.Upload()


If upload.ErrMsg = "" then

	Response.Write ("<BR><BR>上傳：<BR>")
	For Each formName In upload.Files ''列出所有上傳了的文件
		Set file = upload.Files(formName)  ''生成一個文件對象
		binary = file.GetBinary()
		RS.Open "Upload", Conn, 1, 2
		RS.AddNew
		RS("ContentType") = file.FileType
		RS("Content") = binary
		RS("FileName") = file.FileName
		RS("FileSize") = file.FileSize

		RS.Update
		uploadID = RS("UploadID")
		RS.Close

		response.write "<a href='uploadfile.asp?uploadid=" & uploadID & "' target='_blank'>" & File.FileName & "</a>" & "保存成功!<br>"
		response.write "<br /><BR>"
		Set file=nothing
	Next
Else
	Response.Write("上傳過程中出現(xiàn)錯誤:<br>" & Upload.ErrMsg)
End If

Set upload=nothing
Conn.Close
%>