Ciao a tutti
per passare il percorso dove caricare i file ho usato una "session" ma quando eseguo l'upload mi restituisce error....
dove sbaglio?
http://www.zenclub.it/MyUpload/pass1.asp
codice:<%@ Language=VBScript %> <% 'option explicit Response.Expires = -1 Server.ScriptTimeout = 600 ' All communication must be in UTF-8, including the response back from the request Session.CodePage = 65001 dim percorso Dim uploadsDirVar ' uploadsDirVar = Server.MapPath("/public/img") con questo funziona uploadsDirVar = Session("percorso") response.Write(uploadsDirVar) %> <% ' **************************************************** ' Change the value of the variable below to the pathname ' of a directory with write permissions, for example "C:\Inetpub\wwwroot" ' **************************************************** ' Dim uploadsDirVar ' uploadsDirVar = "C:\Inetpub\wwwroot\PUBLIC\img\oooo" ' Note: this file uploadTester.asp is just an example to demonstrate ' the capabilities of the freeASPUpload.asp class. There are no plans ' to add any new features to uploadTester.asp itself. Feel free to add ' your own code. If you are building a content management system, you ' may also want to consider this script: http://www.webfilebrowser.com/ function OutputForm() %> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> <title>Uploadify Move the Queue Sample</title> <link rel="stylesheet" href="uploadify/uploadify.css" type="text/css" /> <script type="text/javascript" src="js/jquery-1.3.2.min.js"></script> <script type="text/javascript" src="js/jquery.uploadify.js"></script> <script type="text/javascript"> $(document).ready(function() { $("#fileUpload").fileUpload({ 'uploader': 'uploadify/uploader.swf', 'cancelImg': 'uploadify/cancel.png', 'script': 'uploadTester3.asp', 'folder': 'uploads', 'multi': true, 'displayData': 'percentage', /* onInit: function (){ $(this).css('display','none'); if ($.browser.msie) { $(this).after('<div id="' + $(this).attr("id") + 'Uploader"></div>'); document.getElementById($(this).attr("id") + 'Uploader').outerHTML = flashElement; } else { $(this).after(flashElement); } $("#customspot").after('<div id="' + $(this).attr('id') + 'Queue" class="fileUploadQueue"></div>'); return false; } */ }); }); </script> </head> <body> <div style="float: left"> <fieldset style="border: 1px solid #CDCDCD; padding: 8px; padding-bottom: 0px; margin: 8px 0; width: 450px"> <legend>Upload Files - movedQueue Sample</legend> <div id="fileUpload"> You have a problem with your javascript</div> Start Upload | Clear Queue </p> </fieldset> </div> <div style="float: left; margin-left: 20px"> <div id="customspot"> </div> </div> <% end function function TestEnvironment() Dim fso, fileName, testFile, streamTest TestEnvironment = "" Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FolderExists(uploadsDirVar) then TestEnvironment = "Folder " & uploadsDirVar & " does not exist. The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if fileName = uploadsDirVar & "\test.txt" on error resume next Set testFile = fso.CreateTextFile(fileName, true) If Err.Number<>0 then TestEnvironment = "Folder " & uploadsDirVar & " does not have write permissions. The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if Err.Clear testFile.Close fso.DeleteFile(fileName) If Err.Number<>0 then TestEnvironment = "Folder " & uploadsDirVar & " does not have delete permissions, although it does have write permissions. Change the permissions for IUSR_computername on this folder." exit function end if Err.Clear Set streamTest = Server.CreateObject("ADODB.Stream") If Err.Number<>0 then TestEnvironment = "The ADODB object Stream is not available in your server. Check the Requirements page for information about upgrading your ADODB libraries." exit function end if Set streamTest = Nothing end function function SaveFiles Dim Upload, fileName, fileSize, ks, i, fileKey Set Upload = New FreeASPUpload Upload.Save(uploadsDirVar) ' If something fails inside the script, but the exception is handled If Err.Number<>0 then Exit function SaveFiles = "" ks = Upload.UploadedFiles.keys if (UBound(ks) <> -1) then SaveFiles = "Files uploaded: " for each fileKey in Upload.UploadedFiles.keys SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) " next else SaveFiles = "No file selected for upload or the file name specified in the upload form does not correspond to a valid file in the system." end if SaveFiles = SaveFiles & " Enter a number = " & Upload.Form("enter_a_number") & " " SaveFiles = SaveFiles & "Checkbox values = " & Upload.Form("checkbox_values") & " " SaveFiles = SaveFiles & "List values = " & Upload.Form("list_values") & " " SaveFiles = SaveFiles & "Text area = " & Upload.Form("t_area") & " " end function %> <HTML> <HEAD> <TITLE>Test Free ASP Upload 2.0</TITLE> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <style> BODY {background-color: white;font-family:arial; font-size:12} </style> <script> function onSubmitForm() { var formDOMObj = document.frmSend; if (formDOMObj.attach1.value == "" && formDOMObj.attach2.value == "" && formDOMObj.attach3.value == "" && formDOMObj.attach4.value == "" ) alert("Please press the Browse button and pick a file.") else return true; return false; } </script> </HEAD> <BODY> <div style="border-bottom: #A91905 2px solid;font-size:16">Upload files to your server</div> <% Dim diagnostics if Request.ServerVariables("REQUEST_METHOD") <> "POST" then diagnostics = TestEnvironment() if diagnostics<>"" then response.write "<div style=""margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">" response.write diagnostics response.write " After you correct this problem, reload the page." response.write "</div>" else response.write "<div style=""margin-left:150"">" OutputForm() response.write "</div>" end if else response.write "<div style=""margin-left:150"">" OutputForm() response.write SaveFiles() response.write " </div>" end if %> </BODY> </HTML>
Rispondi quotando
