1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
|
Dim fsoPage, strPath, fsoFolder
' *** @comments : Création d'un objet fichier
Set fsoPage = Server.CreateObject("Scripting.FileSystemObject")
strPath = Server.MapPath(".")
strDossierFichierArg = Replace(Request.QueryString("page"), ".", "\")
i = instr(strDossierFichierArg,"?")
j = len(strDossierFichierArg)
strArg = right(strDossierFichierArg,j-i+1)
if i > 0 then
'si il y a des arguments dans l'url
strDossierFichier = left(strDossierFichierArg,i-1)
'path du fichier
strExist = strPath&"\"&strDossierFichier&".asp"
'path de la page à éxecuter
strExecute = strDossierFichier&".asp"
else
'si il n'y a pas d'argument
strDossierFichier = Replace(Request.QueryString("page"), ".", "\")
'path du fichier
strExist = strPath&"\"&strDossierFichier&".asp"
'path de la page à éxecuter
strExecute = strDossierFichier&".asp"
end if
' *** @comments : Test si on a un element
If Request.QueryString("page") <> Empty And fsoPage.FileExists(strExist) Then
Server.Execute(strExecute)
Else
Server.Execute("Framework/Messages/404-1.asp")
End If |