netbox使用和修改

(双击main.box一直没反应.郁闷了好乿后来才知道原来我的问题是80端口被占亿关了迅雷问题立马解决亿呵呵..还有一种解决办法就是换个端口号..)

什么是netbox＿
NetBox 是一个使用脚本语言进行应用软件开发与发布的开发环境和运行平台，使甿NetBox，可以完全使用脚本语言(比如 VBScript，Javascript) 创建出稳定高效的应用软件〿

NetBox 提供完全与操作系统无关的高性能皿HttpServer 对象，且完整支持 asp 服务器脚本技术，可以方便地将成熟皿asp 应用通过 NetBox 部署到各种操作环境，由于不再局限于操作系统的限制，甚至可以圿Windows XP 上达到超凿Windows 2000 Advance Server 的性能支持〿

netbox2.8使用说明＿
下载了之后，请按以下步骤，简单的实现用netbox查看你的asp程序〿
1、安装，就像平时软件那样安装就可以了〿
2、新建一个目录（目录名随便），目录下建一个文件，名字为main.box ，这个时候正常的话图标会变成＿




这个文件的内容如下：

Dim httpd
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
Sub OnServiceStart()
Set httpd = createObject("NetBox.HttpServer")
If httpd.create("",83) = 0 Then
Set host = httpd.AddHost("", "")
host.EnableScript = true
host.AddDefault "1.asp"
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

3、再在目录下建一丿asp，内容如下：

<%="搜索吿

4、双击main.box，这个时候在任务栏你可以看到＿



5、在浏览器地址输入＿


以上就是netbox2.8创建一个web服务器的过程，这样有很多好处，你可以创建多个web服务器，使用的时候只需要先打开main.box，然后再像平常那样使用。它也让没装IIS而要调试ASP程序成为可能，比如你在网吧的时候，所以我说它是个好东西。对于我来说是十分实用的，很多ASP程序我都要通过iis手动调为“默认网站”才可以正常运行，而有了它，就省去我很多麻烦！至于它是否有其他问题，我只是稍微测试了下，没有具体测试，不好说！

对于以上的第二个步骤，为什么程序是那样写的，这里我引用帮助文档的内容，你就明白了，对于用来调试的你，根本就不用去了解它为什么这样，关键是它可以这样。引用内容：
NetBox 的一大功能就是内置支持了 HttpServer 咿asp。下面就按步骤建立一个以服务方式运行皿WEB 服务器〿

第一步：创建 WEB 服务噿
由于 NetBox 提供亿HttpServer 对象，所以建立一个新皿HttpServer 并且启动、停止、退出，自然便是甿HttpServer 对象来实现，main.box 的代码也就比较简单了＿

Set Console = Shell.Console
Set httpd = createObject("NetBox.HttpServer")
If httpd.create("", 80) = 0 Then
httpd.Start
Console.ReadLine
httpd.Stop
httpd.Close
End If
Set httpd = Nothing

在上面的代码中，先创建一个新皿HttpServer，然后在所有的本机地址皿 端口创建一个服务器，如果创建成功，则启动服务器，等待用户在控制台上输入回车后停止并关闭服务器〿

运行这个程序，如果当前系统中未安装其仿Web 服务器，则此程序会显示控制台并等待回车，否则将直接退出。呵，我们的第一个程序都是很拙劣的。没有关系，我们一步一步来〿

如果成功运行了程序，便可以用浏览器访问了，由于服务器装在本机，所以打开浏览器，在地址栏输入“”，哈，结果出来了，不过很不好看＿

418 Host Not Found

不管想访问什么，都只会是这个结果。这样的结果显然不能满足要求，所以我们需要改进我们的 Web 服务器〿

第二步：添加虚拟主机
前面我们建立的服务器之所以总是返回禁止访问，原因是没有为服务器建立主机信息。所以我们修改代码，使用 AddHost 方法增加主机信息的部分：
Set Console = Shell.Console
Set httpd = createObject("NetBox.HttpServer")
If httpd.create("", 80) = 0 Then
httpd.AddHost "", "\wwwroot"
httpd.Start
Console.ReadLine
httpd.Stop
httpd.Close
End If
Set httpd = Nothing

圿NetBox 执行目录建立一个子目录 wwwroot，然后复制一些网页进去。我们再来看看效果如何。执行程序并再次访问“”，结果居然还是‿ Forbidden”。再访问 wwwroot 目录中已有的文件，哈哈，出现正禣39;内容了。所以，实际上主机已经建立出来，但是未给主机提供缺省文件名〿

第三步：添加缺省文件
为了让主机知道当用户访问目录时向用户返回的文件，需要使甿AddDefault 方法为主机添加缺省文件名，修改代码如下：
Set Console = Shell.Console
Set httpd = createObject("NetBox.HttpServer")
If httpd.create("", 80) = 0 Then
Set host = httpd.AddHost("", "\wwwroot")
host.AddDefault "default.htm"
httpd.Start
Console.ReadLine
httpd.Stop
httpd.Close
End If
Set httpd = Nothing

我们再访问“”的时候，会发现不再显示禁止访问，而是开始出现了缺省页面的内容。如果给定的缺省文件不存在，则返回‿ File Not Found”〿

第四步：支持服务器脚朿
上面的步骤建立出来的 Web 服务器，是一个纯静态文件的服务器，是无法执行服务器脚本程序的，为了让我们的 Web 服务器能够理解服务器端脚本程序，需要修政EnableScript 属性，同时为了让服务器能够使用脚本程序做为缺省文件，还需要再添加一个缺省文件，下面是新修改的代码：
Set Console = Shell.Console
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
Console.ReadLine
httpd.Stop
httpd.Close
End If
Set httpd = Nothing

接下来，我们就可以在 wwwroot 目录里建立我们的 asp 脚本程序了，建立 test.asp＿

<%Response.Write "Hello"%>

NetBox 也支持服务器 box 程序，在 wwwroot 目录中建竿test.box＿

Response.Write "Hello"

第五步：以服务方式运衿
到目前为止，已经有一个相对完整的 Web 服务器程序了，下面我们需要将这个服务器改写为系统服务程序，可以将其安装成为一个系统服务，更加便于运行维护。改写成为服务程序需要使甿Service 对象〿

下面便是一个完整的 Web 服务程序的代码，关于 Service 对象的更多信息请参阅手册相关内容〿

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 服务程序，需覿HttpServer，HttpServerHost，Service 三个对象的支持，HttpServer 负责建立服务器并控制服务器的运行状态，HttpServerHost 负责建立主机信息＿Service 则负责完成与服务程序相关的操作〿

使用过程中需要注意的是：

If httpd.create("",83) = 0 Then

这里为什么是83呢？因为我使甿的时候有冲突，导致netbox2.8打开后没反应，所以你也这样建议你也换个端口〿