主题:  如何把文件写到数据库

nikers

职务:普通成员
等级:1
金币:0.0
发贴:68
#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)


望各位赐教



kai3000

职务:普通成员
等级:1
金币:0.0
发贴:154
#22002/1/16 15:33:52
如果它那里支持fso
可以用fso无组建上传的呀。我自己的论坛就是用这个,可以去下阿,包含了无组建上传的程序