使用 NetBox 可以方便的將 asp 應(yīng)用編譯成為獨(dú)立運(yùn)行的執(zhí)行程序，完全擺脫 iis 的束縛，在幾乎所有的 Windows 版本上面直接運(yùn)行，完全不需要考慮平臺(tái)兼容性和對(duì) asp 運(yùn)行環(huán)境的要求。下面就是快速移植已有的 asp 應(yīng)用的步驟。

一、創(chuàng)建 asp 運(yùn)行環(huán)境

首先創(chuàng)建一個(gè)空的目錄，在你喜歡的位置，假設(shè)是 d:\websvr。在目錄中創(chuàng)建一個(gè)文件：main.box，編輯其內(nèi)容為：

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

上面的代碼摘自《創(chuàng)建一個(gè) WEB 服務(wù)器》。其中加粗的部分是缺省文件名，如果你的應(yīng)用不同，可以自行添加修改。

二、復(fù)制 asp 應(yīng)用

在目錄中再創(chuàng)建一個(gè)子目錄：wwwroot，將你在 iis 中的文件全部復(fù)制到 wwwroot 中。此時(shí)，你的 asp 運(yùn)行環(huán)境應(yīng)該已經(jīng)準(zhǔn)備好了。

三、測(cè)試運(yùn)行

為了運(yùn)行你剛才新建的 netbox 應(yīng)用，你必須確認(rèn)你的 iis 或者其他占用 80 端口的程序已經(jīng)停止，較大的可能是你的 iis 在使用這個(gè)端口，所以最好停止你的 iis，或者將 iis 的使用端口更換為其他端口。

在確保 iis 已經(jīng)停止后，你便可以執(zhí)行你的 netbox 應(yīng)用了。雙擊 main.box 文件，很快，你將在窗口右下角看見(jiàn) netbox 的圖標(biāo)。此時(shí)，netbox 已經(jīng)正常運(yùn)行了。你需要做的是使用 ie 訪問(wèn) http://localhost 測(cè)試你的 asp 應(yīng)用是否也已經(jīng)正常運(yùn)行。一般情況下此時(shí) asp 也已經(jīng)完全正常運(yùn)行了。

四、編譯

編譯的過(guò)程是簡(jiǎn)單的，執(zhí)行 nbdw.exe。

點(diǎn) Select Folder，找到剛才我們建立的目錄 d:\websvr，點(diǎn) Browser，設(shè)定要生成的執(zhí)行文件名，點(diǎn) Build...，開(kāi)始編譯。

成功嘍……

最后，我們得到了編譯成功的那個(gè)執(zhí)行文件，這個(gè)就是我們的最后目標(biāo)。

因?yàn)檫@個(gè)例程是以服務(wù)方式創(chuàng)建的 Web 服務(wù)器，所以你可以使用：

myapp -install

將應(yīng)用安裝成為服務(wù)，這樣，系統(tǒng)無(wú)須登錄便可以自動(dòng)運(yùn)行應(yīng)用了。如果需要卸載服務(wù)，則可以執(zhí)行下面的命令：

myapp -remove