[技术文章] 用netbox建站方法

推荐一款工具,叫网络盒子的(netbox)

一、到它官方网去下载( http://www.netbox.cn )

(这边加点题外话,这款软件是我当时看黑客x档案时认识的,当时版本还比较低,功能已经不错.在过后一段时间里,我把它介绍给朋友用时,朋友装的是金山杀毒,把这个软件的一些文件报告为病毒,可能就是因为它当时被利用来做黑客工具了的缘故,关于这个netbox官方也有声明,现在的版本应该不会了,但是以防万一,如果你下回去你的杀毒软件说是病毒,不要来骂我,骂你的杀毒软件去吧!要狠一点!敢误报!)

二、下载回来后安装.

三、基本配置
安装后,在你要测试的网站(或者网页)的文件夹的同目录下,建一个文件.扩展名为.box,
内容可以参考下面的(你可以把下面的代码全部复制到记事本,然后另存为,这边再露个小技巧,就是你存文件的时候,文件名前后加双引号带扩展名,就可以直接存为那个扩展名的文件了,比如存的时候文件名为 "个人主页1.box" -----该引号为存文件的时候加的,不是我表述的需要而加的,感觉有点ls,反正你会改扩展名也行,总之在文件夹同目录下存一个这样的文件,文件内容如下面.):

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("", "\www1")

host.enablescript = true
host.adddefault "index.htm"
host.adddefault "index.html"
host.adddefault "index.asp"
host.adddefault "default.asp"
host.adddefault "default.htm"
host.adddefault "default.html"
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

简单说一下上面的代码，上面中有一句是set host = httpd.addhost("", "\www1")，它就是你的网站的文件夹，你还可以另外建一个，针对不同的网页或者网站目录，这样要测试也好，直接运行对应的不同的box文件，就行了。其它的可以看懂e文的应该不用解释了吧？然后浏览器中输入 http://127.0.0.1/或者http://localhost/就可以访问了.如果你的网站的首页或者网页名字不是上面的几种,可以在网址后面加输入你的网页名字.
这样，你可以简单的运行一下box文件，只要你有对外ip，或者可以映射到你的电脑，就可以直接对外发布网站或者网页了，有在局域网的朋友还可以直接在局域网发布你的网页，比如有局域共享不好使的，可以下个文件下载的站点源码，然后搞个内部网,.......想做其它什么，自己慢慢想去吧）还有问题可以跟贴。

------------------------------------------------------------------------------------------------------------------------------------
掌握了上面netbox基本的使用方法，下面说一说netbox比较高级一点的用处了。

四、将asp打包成exe文件

没有想到吧，netbox可以将asp格式的整站打包成一个exe文件，这样打包好后的exe格式的文件，可以在其它机子上直接运行而不必安装netbox也不必再配置.box文件。而另外一方面，在和别人分享你的网页成果时，又不会泄漏你的源代码，是不是很爽？（其实这个netbox已经有成功的案例，做好的商业网站直接卖给别的公司）
下面就教大家如何将asp整站打包成exe文件。
准备工作，随便建一个文件夹，在该文件夹下面放置.box配置文件，同一目录下放置你的整个网站的文件夹。
接下来打开netbox deployment wizard(装好netbox后会在开始菜单里面有，或者桌面快捷方式）请看附图，本图例中，我在h:\wwwroot\1dai\下面建立了pages文件夹，用于放置我们做好的网页文件，在和pages同文件目录下面，放置该网页（网站）的配置文件”个人主页.box“，在启动中选择“个人主页.box”，输出文件随便取一个名字。（本例中取1dai.exe）
好了，接下来再按"build"就可以在你所选的生成目录下生成了一个exe文件了。（本图例中是h:\wwwroot\1dai.exe）双击运行该可执行程序，直接在浏览器中输入http://localhost/看看，是不是可以直接浏览你自己的网页了？

欢迎光临：逐梦论坛

管理员

Rank: 9 Rank: 9 Rank: 9

2^#

shillan发表于 2007-12-8 22:57 | 只看该作者

这个东西着实让我高兴了几天，有了它，对于asp本地调试来说，完全可以取代iis，方便、灵活、快捷。也许你对这个东西有些了解，本文主要根据帮助文档的内容介绍下netbox2.8使用说明并提供该版本下载。

什么是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、再在目录下建一个1.asp，内容如下：

<%="搜索吧"%>

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

5、在浏览器地址输入：
http://localhost:83/1.asp

   以上就是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，然后在所有的本机地址的 80 端口创建一个服务器，如果创建成功，则启动服务器，等待用户在控制台上输入回车后停止并关闭服务器。

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

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

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，然后复制一些网页进去。我们再来看看效果如何。执行程序并再次访问“http://localhost/”，结果居然还是“403 forbidden”。再访问 wwwroot 目录中已有的文件，哈哈，出现正确内容了。所以，实际上主机已经建立出来，但是未给主机提供缺省文件名。

第三步：添加缺省文件
为了让主机知道当用户访问目录时向用户返回的文件，需要使用 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

我们再访问“http://localhost/”的时候，会发现不再显示禁止访问，而是开始出现了缺省页面的内容。如果给定的缺省文件不存在，则返回“404 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呢？因为我使用80的时候有冲突，导致netbox2.8打开后没反应，所以你也这样建议你也换个端口。

netbox2.8打包下载

欢迎光临：逐梦论坛

TOP

返回列表

[技术文章] 用netbox建站方法

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]