Buona sera a tutti!!
Avrei un problemino... da esporvi...
ho una pagina, default.asp, con un semplice form e dovrei passare una variabile "dir" nella pagina carica.asp (qua sotto ) ma quando richiamo quest'ultima pagina il sistema si "impalla" dove sbaglio?
Codice PHP:
<%@ 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
%>
<%
' ****************************************************
' Change the value of the variable below to the pathname
' of a directory with write permissions, for example "C:\Inetpub\wwwroot"
' ****************************************************
Dim uploadsDirVar
dim dir
'uploadsDirVar = "C:\Inetpub\wwwroot\PUBLIC\img\oooo\"
dir = request.Form("dir")
uploadsDirVar = dir
response.Write(uploadsDirVar)
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': 'carica.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>[b]Upload Files - movedQueue Sample[/b]</legend>
<div id="fileUpload">
You have a problem with your javascript</div>
[url="javascript:$('#fileUpload').fileUploadStart()"]Start Upload[/url] | [url="javascript:$('#fileUpload').fileUploadClearQueue()"]Clear Queue[/url]
</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 = "[B]Folder " & uploadsDirVar & " does not exist.[/B]
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 = "[B]Folder " & uploadsDirVar & " does not have write permissions.[/B]
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 = "[B]Folder " & uploadsDirVar & " does not have delete permissions[/B], although it does have write permissions.
Change the permissions for IUSR_[I]computername[/I] on this folder."
exit function
end if
Err.Clear
Set streamTest = Server.CreateObject("ADODB.Stream")
If Err.Number<>0 then
TestEnvironment = "[B]The ADODB object [I]Stream[/I] is not available in your server.[/B]
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 = "[B]Files uploaded:[/B] "
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
