| 1234567891011121314151617181920212223242526272829303132333435 | <%@LANGUAGE='VBSCRIPT' CODEPAGE='65001'%><%option explicitResponse.Expires = -1Response.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()    NextEnd Function%>
 |