#12002/1/16 10:32:45
我们的服务器提供商给我上传组件的文件如下,我该如何把文件写到数据库或是目录呢,例如JPG GIF EXE等
Set uploadform = Server.CreateObject("SiteGalaxyUpload.Form")
if uploadform.ContentDisposition <> "form-data" then
Response.Write "Bad request format"
Response.End
end if
if uploadform.Item("imagefile").MimeType <> "image" then
Response.Write "Image expected"
Response.End
end if
if uploadform.Item("imagefile").Size > 10240 then
Response.Write "Image size is limited to 10KB"
Response.End
end if
if uploadform("submitdisk") <> "" then
' save to disk
set fs = server.CreateObject("Scripting.FileSystemObject")
fn = server.mappath("/")& "\" & fs.GetFileName(uploadform("imagefile").FilePath)
set fs = Nothing
uploadform("imagefile").SaveAs(fn)
望各位赐教