Je dois faire un mini site internet en ASP, je l’ai déjà codé en PHP.
J’essaye de traduire un script PHP en ASP :
<?php
function lecture($url) {
$fichier = fopen($_SERVER['DOCUMENT_ROOT'].$url, 'r');
$lire = false;
while ($ligne = fgets($fichier)) {
if (preg_match('#<\/body#i', $ligne))
$lire = false;
if ($lire)
echo $ligne;
if (preg_match('#<body#i', $ligne))
$lire = true;
}
fclose($fichier);
}
?>
<%
Function lecture(url)
Set objFso = CreateObject("Scripting.FileSystemObject")
Set fichier = objFso.OpenTextFile(".." & url)
Set regex1 = New RegExp
regex1.IgnoreCase = True
regex1.Pattern = "<\/body"
Set regex2 = New RegExp
regex2.IgnoreCase = True
regex2.Pattern = "<body"
dim lire
dim tmp
lire = False
While not fichier.atEndOfStream
tmp = fichier.readLine
If regex1.Test(tmp) then
lire = False
End If
If lire then
Response.write tmp
End If
If regex2.Test(tmp) then
lire = True
End If
Wend
End Function
%>
Mon problème c’est que le code ASP n’affiche rien :’( lorsqu’il est appelé :
J’essaye de remplacer src= par src= + une variable
J’ai fais ça : tmp = tmp.Replace(“src=” & url, “src=”)
Une jolie erreur pour récompenser mon travail :
Microsoft VBScript runtime error ‘800a01a8’
Object required: ‘tmp’
F:\INETPUB\DISTRICT09\ENVOLEE\ECOLE…/include/lecture.asp, line 35