服务器配置之netbox版

安装netbox

新建box文件(计事本)

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

 

最后保存！
说明：
（1）：如果你成功安装了网络盒子，那么他的后缀是可以被识别的，图标 为红色 .b 的样子
（2）：我把上面代码的主要内容讲一下：
httpd.Create("", 80)是指使用80端口开设服务器，如果不喜欢，可以更改为别的！
那么访问地址后面必须加 :端口号 才能正常访问
Set host = httpd.AddHost("", "\www") 中的www就是你放网站程序的目录。也就是一定要与第二步将建立的目录名称相同！
host.AddDefault "index.htm" --\
host.AddDefault "index.asp" | 这些就是指设置默认首页文件，
host.AddDefault "default.htm" | 你可以自己更改，添加删除一行一个
host.AddDefault "default.asp" --/