一、创建 asp 运行环境
首先创建一个空的目录,在你喜欢的位置,假设是 d:\web。在目录中创建一个文件: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 "index.asp"
host.AddDefault "default.asp"
host.AddDefault "index.htm"
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,将BBSxp 6.0和零点站点管理系统V3.1中的文件
分别解压到 wwwroot 中。此时,你的 asp 运行环境应该已经准备好了。
三、测试运行
为了运行你刚才新建的 netbox 应用,你必须确认你的 iis 或者其他占用 80 端口的程
序已经停止,较大的可能是你的 iis 在使用这个端口,所以最好停止你的 iis,或者将
iis 的使用端口更换为其他端口。
在确保 iis 已经停止后,你便可以执行你的 netbox 应用了。双击 main.box 文件,很
快,你将在窗口右下角看见 netbox 的图标。此时,netbox 已经正常运行了。你需要做
的是使用 ie 访问 http://127.0.0.1 测试你的 asp 应用是否也已经正常运行。一般情
况下此时 asp 也已经完全正常运行了。
四、编译
编译的过程是简单的,执行 nbdw.exe。
点 Select Folder,找到刚才我们建立的目录 d:\websvr,点 Browser,设定要生成的
执行文件名,点 Build...,开始编译。
成功喽……
最后,我们得到了编译成功的那个执行文件,这个就是我们的最后目标。
因为这个例程是以服务方式创建的 Web 服务器,所以你可以使用:
myapp -install
将应用安装成为服务,这样,系统无须登录便可以自动运行应用了。如果需要卸载服务
,则可以执行下面的命令:
myapp -remove |