| 1234567891011121314151617181920212223242526272829303132333435 | 
							- <%@LANGUAGE='VBSCRIPT' CODEPAGE='65001'%>
 
- <%
 
- option explicit
 
- Response.Expires = -1
 
- Response.Charset= "UTF-8"
 
- Server.ScriptTimeout = 600
 
- %>
 
- <!-- #include file="fileUploadClass.asp" -->
 
- <!-- #include file="config.asp" -->
 
- <!-- #include file="json.asp" -->
 
- <%
 
- SaveFiles()
 
- Function SaveFiles
 
-     Dim Upload, json, i
 
-     Set Upload = New fileUploadClass
 
-     Upload.Save(UPLOAD_PATH)
 
- 	If Err.Number <> 0 Then Exit Function
 
-     If Right(UPLOAD_URL, 1) <> "/" Then UPLOAD_URL = UPLOAD_URL & "/"
 
- 	Set json = New jsonParser
 
- 	Response.ContentType = "application/json"
 
- 	For Each i in Upload.UploadedFiles.keys
 
- 		With json.data
 
- 			.Add "fileUrl", UPLOAD_URL & Upload.UploadedFiles(i).FileName
 
- 			.Add "fileName", Upload.UploadedFiles(i).FileName
 
- 			.Add "fileSize", Upload.UploadedFiles(i).Length
 
- 		End With
 
- 		Response.Write json.JSONoutput()
 
-     Next
 
- End Function
 
- %>
 
 
  |