请问SiteGalaxyUpload.Form这个上传组件在那时里有下载,谢谢......

[Kidwind]

因为我的服务器支持,但我想在本地调式

[cyaudit]

偶找到了！SiteGalaxyUpload 3.0(1080 K)
http://www.kunsan.ac.kr/bbs/os/SiteGalaxyUpload-3.rar
http://banet.chungju.ac.kr/_12bbsUpload/ftp/SiteGalaxyUpload.rar
用法：
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)
例子：
<%@ Language=VBScript %>
<%
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 > 21000 then
Response.Write "Image size is limited to 20KB"
Response.End
end if

if uploadform("submitdisk") <> "" then
' save to disk
set fs = server.CreateObject("Scripting.FileSystemObject")
fn = "c:\InetPub\accounts\accountname\uploads\" & fs.GetFileName(uploadform("imagefile").FilePath)
set fs = Nothing
'Response.Write fn
uploadform("imagefile").SaveAs(fn)

' send it back
Response.Expires = 0
Response.Buffer = True
Response.Clear
Response.ContentType = "image/" & uploadform("imagefile").MimeSubtype

set uploadform = Nothing

set fso = server.CreateObject("SiteGalaxyUpload.FileSystemObject")
set file = fso.OpenBinaryFile(fn, 1, false)

Response.BinaryWrite file.ReadAll
Response.End
else
' save as blob

' This sample uses SQL Server 'image' table with the following fields:
' img_id : identity
' img_data : image
' img_type : char(10)
' img_name : varchar(255)
'
set rs = Server.CreateObject("ADODB.Recordset")
' rs.CursorLocation = 2 ' use server
rs.Open "image", _
"<Insert your connection string here>", _
3, 3, 2
rs.AddNew
uploadform("imagefile").SaveAsBlob(rs.Fields("img_data"))
rs.Fields("img_type") = uploadform.Item("imagefile").MimeSubtype
rs.Fields("img_name") = uploadform.Item("imagefile").FilePath
rs.Update
rs.MoveNext
rs.MovePrevious

img_id = rs.Fields("img_id")
' Response.Write "ImageID = " & img_id
rs.Close

' send it back
rs.Open "SELECT * FROM image WHERE img_id = " & img_id, _
"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Images;Data Source=PC2980", _
0, 1, 1
if rs.EOF and rs.BOF then
Response.Write "Image not found"
Response.End
end if

Response.Expires = 0
Response.Buffer = True
Response.Clear
Response.ContentType = "image/" & uploadform("imagefile").MimeSubtype

set uploadform = Nothing

Response.BinaryWrite rs.Fields("img_data")
rs.Close
set rs = Nothing
Response.End
end if
%>

[水哥驿站]

gz

[xiaoyu]

thank you

[yousoft2013]

http://download.china.com/softTerminal_2.jsp?s_id=6131&c_id=367