使用 NetBox 可以方便的将 asp 应用编译成为独立运行的执行程序完全摆脱 iis 的束缚在几乎所有的 Windows 版本上面直接运行完全不需要考虑平台兼容性和对 asp 运行环境的要求下面就是快速移植已有的 asp 应用的步骤
一创建 asp 运行环境
首先创建一个空的目录在你喜欢的位置假设是 d:websvr在目录中创建一个文件mainbox编辑其内容为
Dim httpd
ShellServiceRunService "NBWeb" "NetBox Web Server" "NetBox Http Server Sample"
Service Event
Sub OnServiceStart()
Set httpd = CreateObject("NetBoxHttpServer")
If ("" ) = Then
Set host = ("" "wwwroot")
hostEnableScript = true
hostAddDefault "defaultasp"
hostAddDefault "defaulthtm"
else
ShellQuit
end if
End Sub
Sub OnServiceStop()
End Sub
Sub OnServicePause()
End Sub
Sub OnServiceResume()
End Sub
上面的代码摘自《创建一个 WEB 服务器》其中加粗的部分是缺省文件名如果你的应用不同可以自行添加修改
二复制 asp 应用
在目录中再创建一个子目录wwwroot将你在 iis 中的文件全部复制到 wwwroot 中此时你的 asp 运行环境应该已经准备好了
三测试运行
为了运行你刚才新建的 netbox 应用你必须确认你的 iis 或者其他占用 端口的程序已经停止较大的可能是你的 iis 在使用这个端口所以最好停止你的 iis或者将 iis 的使用端口更换为其他端口
在确保 iis 已经停止后你便可以执行你的 netbox 应用了双击 mainbox 文件很快你将在窗口右下角看见 netbox 的图标此时netbox 已经正常运行了你需要做的是使用 ie 访问 http://localhost 测试你的 asp 应用是否也已经正常运行一般情况下此时 asp 也已经完全正常运行了
四编译
编译的过程是简单的执行 nbdwexe
点 Select Folder找到刚才我们建立的目录 d:websvr点 Browser设定要生成的执行文件名点 Build开始编译
成功喽……
最后我们得到了编译成功的那个执行文件这个就是我们的最后目标
因为这个例程是以服务方式创建的 Web 服务器所以你可以使用
myapp install
将应用安装成为服务这样系统无须登录便可以自动运行应用了如果需要卸载服务则可以执行下面的命令
myapp remove
