<% Server.ScriptTimeOut=5000 %> <% Dim f_Name,f_SaveName,f_Path,f_Size,f_Ext,f_Err,f_Save,f_Time dim FileUpload , FormName FormName = "Filedata" '文件域名称 'FormName = "/001.jpg" '文件域名称 set FileUpload = New UpLoadClass FileUpload.Charset="utf-8" FileUpload.Open() f_Err = FileUpload.Form(FormName & "_Err") IF f_Err = "0" Then f_Name = FileUpload.Form(FormName & "_Name") '原文件名 f_SaveName = FileUpload.Form(FormName) '保存文件名 f_Path = FileUpload.SavePath '保存路径 f_Size = FileUpload.Form(FormName & "_Size") '文件大小 f_Ext = FileUpload.Form(FormName & "_Ext") '文件类型 f_Time = Now() '保存时间 echo "{""name"":""" & f_Name & """,""savename"":""" & f_SaveName & """,""path"":""" & f_Path & """,""size"":" & f_Size & ",""ext"":""" & f_Ext & """,""time"":""" & f_Time & """,""err"":" & f_Err & "}" if waterMark=1 then dim target target= "/upload/"&f_SaveName end if Else echo "{""err"":" & f_Err & "}" End IF set FileUpload = nothing %>