使用 NetBox 可以方便的將 asp 應用編譯成為獨立運行的執行程序,完全擺脫 iis 的束縛,在幾乎所有的 Windows 版本上面直接運行,完全不需要考慮平台兼容性和對 asp 運行環境的要求。下面就是快速移植已有的 asp 應用的步驟。
一、創建 asp 運行環境
首先創建一個空的目錄,在你喜歡的位置,假設是 d:websvr。在目錄中創建一個文件:main.box,編輯其內容為:
Dim httpd
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
'---------------------- Service Event ---------------------
Sub OnServiceStart()
Set httpd = CreateObject("NetBox.HttpServer")
If httpd.Create("", 80) = 0 Then
Set host = httpd.AddHost("", "wwwroot")
host.EnableScript = true
host.AddDefault "default.asp"
host.AddDefault "default.htm"
httpd.Start
else
Shell.Quit 0
end if
End Sub
Sub OnServiceStop()
httpd.Close
End Sub
Sub OnServicePause()
httpd.Stop
End Sub
Sub OnServiceResume()
httpd.Start
End Sub
上面的代碼摘自《創建一個 WEB 服務器》。其中加粗的部分是缺省文件名,如果你的應用不同,可以自行添加修改。
二、復制 asp 應用
在目錄中再創建一個子目錄:wwwroot,將你在 iis 中的文件全部復制到 wwwroot 中。此時,你的 asp 運行環境應該已經准備好了。
三、測試運行
為了運行你剛才新建的 netbox 應用,你必須確認你的 iis 或者其他占用 80 端口的程序已經停止,較大的可能是你的 iis 在使用這個端口,所以最好停止你的 iis,或者將 iis 的使用端口更換為其他端口。
在確保 iis 已經停止後,你便可以執行你的 netbox 應用了。雙擊 main.box 文件,很快,你將在窗口右下角看見 netbox 的圖標。此時,netbox 已經正常運行了。你需要做的是使用 ie 訪問 http://localhost 測試你的 asp 應用是否也已經正常運行。一般情況下此時 asp 也已經完全正常運行了。
四、編譯
編譯的過程是簡單的,執行 nbdw.exe。
點 Select Folder,找到剛才我們建立的目錄 d:websvr,點 Browser,設定要生成的執行文件名,點 Build...,開始編譯。
成功喽……
最後,我們得到了編譯成功的那個執行文件,這個就是我們的最後目標。
因為這個例程是以服務方式創建的 Web 服務器,所以你可以使用:
myapp -install
將應用安裝成為服務,這樣,系統無須登錄便可以自動運行應用了。如果需要卸載服務,則可以執行下面的命令:
myapp -remove