Codice PHP da trasformare in ASP

[ubbicom]

Sapreste aiutarmi a trasformare in ASP questo codice PHP:?

 <?php
 
// Timeout di massimo tempo di esecuzione = 100 minuti
set_time_limit(6000);
 
// Prevenire il 'caching' della risorsa
header("Cache-Control: no-store, no-cache, must-revalidate");
header("Cache-Control: post-check=0, pre-check=0", false);
header("Pragma: no-cache");
 
if (get_magic_quotes_gpc()) $_GET['file'] = stripslashes($_GET['file']);
 
$file = realpath($_GET['file']);
 
header("Content-Type: application/x-msdownload");
header("Content-Disposition: attachment; filename=" . basename($file));
header("Content-Length: " . filesize($file));
 
readfile($file);
 
exit;
 
?>

Ciao e grazie in anticipo.

[kalosjo]

<%
 
' Timeout di massimo tempo di esecuzione = 100 minuti
server.settimeout(6000);
 
' Prevenire il 'caching' della risorsa
response.addheader("Cache-Control: no-store, no-cache, must-revalidate");
response.addheader("Cache-Control: post-check=0, pre-check=0");
response.addheader("Pragma: no-cache");
 
' NON USATO IN ASP if (get_magic_quotes_gpc()) $_GET['file'] = stripslashes($_GET['file']);
 
file = server.mappath(request.querystring('file'));
 
response.addheader("Content-Type: application/x-msdownload");
response.addheader("Content-Disposition: attachment; filename=" . basename($file));

'NON NECESSARI
'response.addheader("Content-Length: " . filesize($file));
' 
'readfile($file);
 
response.end
 
?>

L'unica difficoltà è basename($file), poichè in asp non esiste una funzione che dia direttamente il nome del file, ma te la devi costruire tu...

[ubbicom]

Microsoft VBScript runtime (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto.: 'settimeout'

[kalosjo]

Scusa, non ricordo se è server.settimeout o response.settimeout.........

[ubbicom]

Originariamente inviato da kalosjo
Scusa, non ricordo se è server.settimeout o response.settimeout.........

... nell'uno e nemmeno l'altro...

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'settimeout'

[willybit]

forse

Server.ScriptTimeout=6000

[ubbicom]

Error Type:
Microsoft VBScript runtime (0x800A01C2)
Numero errato di argomenti o assegnazione di proprietà non valida.: 'addheader'

response.addheader("Cache-Control: no-store, no-cache, must-revalidate")

:master:

[kalosjo]

Le parentesi!!!!

response.addheader "Cache-Control", "no-store, no-cache, must-revalidate" 
response.addheader "Cache-Control", "post-check=0, pre-check=0"
response.addheader "Pragma", "no-cache"
file = server.mappath(request.querystring('file'));
response.addheader "Content-Type", "application/x-msdownload"
response.addheader "Content-Disposition", "attachment; filename=" . basename($file)

[Baol74]

ci sono ancora diversi errori.
Togli i punti e virgola
Metti & al posto dei punti.
Togli gli $

[ubbicom]

' Timeout di massimo tempo di esecuzione = 100 minuti
Server.ScriptTimeout=6000
 
' Prevenire il 'caching' della risorsa
response.addheader "Cache-Control", "no-store, no-cache, must-revalidate" 
response.addheader "Cache-Control", "post-check=0, pre-check=0"
response.addheader "Pragma", "no-cache"
file = server.mappath(request.querystring("file"))
response.addheader "Content-Type", "application/x-msdownload"
response.addheader "Content-Disposition", "attachment; filename=" & basename(&file) 
response.end

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error

Su questa riga:

 response.addheader "Content-Disposition", "attachment; filename=" & basename(&file)