J'écris un système de navigation en ASP classique (sous Windows CE). J'ai besoin d'un moyen d'inclure dynamiquement des fichiers de navigation basés sur le script appelant. J'ai trouvé le code suivant qui inclut nav.inc qui se trouve dans le dossier du script appelant pour permettre aux différents dossiers d'avoir des fonctions de navigation différentes.Alternative à Server.CreateObject
Cela fonctionne très bien sur mon machine de test Windows mais PAS quand je déploie sur Windows CE. Le code et l'erreur sont indiqués ci-dessous. Si quelqu'un peut fournir un travail ou des commentaires, ce serait génial. Merci
code:
<%
'Get path name
Dim i
fullname = Request.ServerVariables("SCRIPT_NAME")
my_array=split(fullname,"/")
fname=my_array(ubound(my_array))
fname = ""
For i = 0 to ubound(my_array) - 1
fname = fname & my_array(i) & "/"
Next
fname = fname & "nav.inc"
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(Server.MapPath(fname)))=true Then
Server.Execute(fname)
End If
%>
Erreur:
Microsoft VBScript runtime error: '800a01b6'
Description: Object doesn't support this property or method: 'Server.CreateObject'
Si je modifie le code pour dire que Set fs=CreateObject("Scripting.FileSystemObject")
je reçois l'erreur suivante:
Microsoft VBScript runtime error: '800a01ad'
Description: ActiveX component can't create object: 'Scripting.FileSystemObject'
Mise à jour Je juste essayé d'exécuter Server.Execute directement et thi s échoue aussi. Il semble que je n'ai aucun accès à l'objet Serveur. Y a-t-il du travail pour cela aussi?