Jeder kennt das Problem. Man hat eine tolle ASP-Applikation es funktioniert alles so wie man es sich vorstellt. Jetzt ist es daran diese Software zu verteilen, zum Beispiel auf CD ROM.
Das erste, was man benötigt ist ein Webfolder. Hier zeige ich Ihnen einmal wie man z.B. mit InstallShield einen Webfolder ohne grossen Aufwand erzeugen kann.
Erstellen Sie einen neuen Dialog indem sie ein Textfeld positionieren. Nachdem Sie das Textfeld positionert haben fragt Sie das Programm nach der Property. Sie können hier einen beliebigen Namen vergeben, aber geben Sie auf Gross- und Kleinschreibung (case-sensitive) acht! Hier vergebe ich einen Namen >VIRDIR< für den virtuellen Ordner.
Danach erstellen Sie unter Aktionen/Sequenzen eine Benutzerdefinierte Aktion. Diese soll dann ein vb-Script ausführen, welches uns unseren Webfolder erstellt.
Die Art der Aktion stellen Sie auf >Ausführen von VBScript-Code< und den Speicherort
legen Sie auf >Direkt in benuterdefinierter Aktion gespeichert< fest. Sie können auch
externe Scripte ansprechen, müssen aber darauf achten dass die vbs-Datei schon
physikalisch auf der Festplatte vorhanden ist.
Das In-Sequence Script sollte dann folgendermassen aussehen:
on error resume next sVirDir = Session.Property("VIRDIR")
sPhyDir = Session.Property("INSTALLDIR") set websvc = GetObject("IIS://localhost/W3svc/1") set vRoot = websvc.GetObject("IIsWebVirtualDir", "Root") set ClassDefinition = GetObject(vRoot.Schema) set vDir = vRoot.Create("IIsWebVirtualDir",sVirDir) vDir.AccessRead = true
vDir.AccessWrite = true
vDir.AccessScript = true
VDir.EnableDirBrowsing = True
vDir.DefaultDoc = "default.asp"
vDir.EnableDefaultDoc = True
vDir.Path = sPhyDir
vDir.AppCreate True vDir.SetInfo |
Verwenden Sie unbedingt >on error resume next< um etwaige unvorhersehbare Fehler
zu umgehen und ihre Anwendung dennoch installieren zu können.
Session.Property("VIRDIR") enthält den Wert der Textbox VIRDIR (!!!case-sensitive)
Session.Property("INSTALLDIR") enthält den Installationspfad mit einem nachstehenden
Backslash (z.B.: C:\InetPub\WWWRoot\testanwendung\)