拍拍尘土

简单实用方法
set UploadForm = Server.CreateObjec("SiteGalaxyUpload.Form")
uploadform.Item("imagefile") '获取图像文件
uploadform.Item("imagefile").MimeType
uploadform("imagefile").FilePath

myname = UploadForm("myname") '获取form的名字



==========================================================================

文件上传组件： AspSmartUpload 3.1 sitegalaxyupload 1.2
a) 功能：上传文件
b) 使用例程
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)


==========================范例解释=======================================



set uploadform = Server.CreateObject("SiteGalaxyUpload.Form")
if uploadform.ContentDisposition <> "form-data" then
Response.Write "Bad request format"
Response.End
end if

'<form name="form1" method="post" action="" enctype="multipart/form-data">
对应此类型的如果不是form-data，就报错

if uploadform.Item("imagefile").MimeType <> "image" then
Response.Write "Image expected"
Response.End
end if
'如果不是.jpg .gif ....只要不是图像类的就报错，可不要选，但不安全

if uploadform.Item("imagefile").Size > 10240 then
Response.Write "Image size is limited to 10KB"
Response.End
end if
'检查文件是不是过大10240表示1M

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)
存盘server.mappath("/"'表示虚拟主机的根目录)& "\"
---------------------------------------
以下是具体FileField语法：

FileField[.property|method](variable)

属性：
FilePath 默认值, 只读. Specifies the filename the
                    client is sending in the body of the request.
MimeType 只读. Specifies the MIME type of the file (e.g "image").
MimeSubtype 只读. Specifies the MIME subtype of the file
                    (e.g. "gif").
Size 只读. Specifies the size in bytes of the file's data.


方法:
SaveAs(filename) 保存文件到指定的filename中
SaveAsBlob(object) 保存文件数据到ADO的一个字段或一个Object的参数，这个方
                    法要使用AppendChunk方法来更新数据


建立此组件Object语句：
set FormObject = Server.CreateObject("SiteGalaxyUpload.Form")set
FileField = FormObject("imagefile")




用法举例：
先建立一个上传的文件表单，有下面三个，
ImageDesc - text field
ImageCat - select field
ImageFile - file field

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "images", Application("ConnectionString"), 3, 3, 2
rs.AddNew
rs("img_desc") = UploadForm("ImageDesc")
rs("img_cat") = UploadForm("ImageCat")

UploadForm.SaveAsBlob rs("img_data")

rs.Update
rs.Close
set rs = nothing


特别提示一点，如果你是安装的那还好，如果你是一个注册的SiteGalaxyUpload.dll那你就不好了

/uploads/SiteGalaxyUpload3.zip