资源教程

Netbox教程-创建WEB服务器

作者:dudumao 日期:2008-08-04

字体大小: 小中大

Netbox教程-创建WEB服务器

　　NetBox 是一个使用脚本语言进行应用软件开发与发布的开发环境和运行平台，使用 NetBox，可以完全使用脚本语言创建出稳定高效的应用软件，并可平滑移植到从 Windows 98 到 Windows .NET Server 的全部操作系统上。它是除了apache和IIS和PWS之外的第四个可以运行ASP的应用服务器。

　　利用它可以搭建网络服务器，也可以将应用服务器和ASP（内含ASP解释器）全部封装成一个标准的Win32下可执行的.EXE文件，在服务器上运行这个可执行文件就可以了。编译后可以完全取代IIS，执行效率较IIS高，彻底解决了Web应用的安装、维护和知识产权保护难题。

　　一、创建WEB服务器：
　　
　　１.下载Netbox并安装，安装界面是英文的，初次启动程序选择语言为中文就可以了！

　　２.创建一个空的目录，比如 D:\web，在该目录中创建一个新文件，并命名为：main.box。用记事本方式打开，参考Netbox帮助文档，修改其内容如下：

复制内容到剪贴板

程序代码

Dim httpd
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
Sub OnServiceStart()
Set httpd = CreateObject("NetBox.HttpServer")
If httpd.Create("", 80) = 0 Then
Set host = httpd.AddHost("", "\wwwroot")
host.EnableScript = true
host.AddDefault "index.htm"
host.AddDefault "index.asp"
host.AddDefault "default.htm"
host.AddDefault "default.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

　　代码说明：

复制内容到剪贴板

程序代码

httpd.Create("", 80)

使用80端口开设服务器。如果更改为别的端口，后面必须加冒号。

复制内容到剪贴板

程序代码

Set host = httpd.AddHost("", "\wwwroot")

复制内容到剪贴板

程序代码

host.AddDefault "index.htm"

默认首页文件，可以自己更改，添加删除一行一个。

　　３.在D:\web下创建一个名为wwwroot 的文件夹，新建一个测试文件index.asp，其代码为：<%response.write "Hello!"%>。双击运行 main.box，系统托盘处出现一个红色的 .b 样的小图标。打开浏览器，地址栏输入：127.0.0.1，或 localhost ，页面如果出现Hello!字样，说明创建成功了！

　　二、编译WEB服务器：

　　４.编译的过程是简单的，打开Netbox主程序，选择文件夹，找到刚才建立的目录，点击浏览设定要生成的可执行文件，点击Build开始编译。最后，得到编译成功的那个执行文件，这个就是我们的最后目标。它就是封装好的程序，可以复制到其它电脑上直接运行。

　　５.因为这个例程是以服务方式创建的 Web 服务器，所以可以使用：myapp -install。将应用安装成为服务，这样系统无须手动运行便可以自动运行了。如果需要卸载服务，则可以执行下面的命令：yapp -remove 来删除服务。　　

　　三：个性化你的ＷＥＢ服务器：
　　

复制内容到剪贴板

程序代码

Sub OnServicePause()
    Shell.Service.Icon = "图片文件路径"
　'---------------------- 自定义服务器暂停时显示的小图标及提示语 ---------------------
    Shell.MsgBox "服务器暂停运行!"
End Sub

Sub OnServiceResume()
    OnServiceTimer
    httpd.Start
End Sub

Sub OnServiceTimer
    If Shell.Service.icon = "图片文件路径" Then
'---------------------- 自定义服务器启动时显示的小图标及提示语 ---------------------
        Shell.Service.icon = "图片文件路径"
    Else
        Shell.Service.icon = "图片文件路径"
    End If
End Sub

　　温馨提示：现在有些杀毒软件会提示这个东西是病毒什么的，就像好多网站的后台程序里的上传组件遇到的问题一样。　　

[本日志由 dudumao 于 2009-06-04 02:13 PM 编辑]