Dim httpd1,httpd2
Shell.Service.RunService "NBWeb", "多个虚拟目录", "多个访问端口"
'---------------------- Service Event ---------------------
Sub OnServiceStart()
Set httpd1 = NetBox.CreateObject("NetBox.HttpServer")
Set httpd2 = NetBox.CreateObject("NetBox.HttpServer")
If httpd1.Create("127.0.0.1", 80) = 0 Then
Set host1 = httpd1.AddHost("", "/wwwroot")
host1.EnableScript = true '允许执行脚本程序(即ASP文件,否则只能访问HTM文件)
host1.EnableBrowse = true '开启目录浏览
host1.EnableDebug = false '关闭运行的代码出现运行错误时自动激活系统中的调试环境
host1.EnableWrite =false '设为可读写的状态
host1.AddDefault "default.asp"
host1.AddDefault "default.htm"
host1.AddDefault "default.html"
host1.AddDefault "index.asp"
host1.AddDefault "index.htm"
host1.AddDefault "index.html"
'httpd.Start
else
Shell.MsgBox "服务器启动失败,80端口可能被占用!请停止当前WEB服务器或用记事本打开serv.box文件修改端口.","错误提示"
Shell.Quit 0
end if
'Set httpd = NetBox.CreateObject("NetBox.HttpServer")
If httpd2.Create("192.168.0.235", 81) = 0 Then
Set host2 = httpd2.AddHost("", "aspserver")
host2.EnableScript = true '允许执行脚本程序(即ASP文件,否则只能访问HTM文件)
host2.EnableBrowse = true '开启目录浏览
host2.EnableDebug = false '关闭运行的代码出现运行错误时自动激活系统中的调试环境
host2.EnableWrite =false '设为可读写的状态
host2.AddDefault "default.asp"
host2.AddDefault "default.htm"
host2.AddDefault "default.html"
host2.AddDefault "index.asp"
host2.AddDefault "index.htm"
host2.AddDefault "index.html"
httpd1.Start
httpd2.start
else
Shell.MsgBox "服务器启动失败,81端口可能被占用!请停止当前WEB服务器或用记事本打开serv.box文件修改端口.","错误提示"
Shell.Quit 0
end if
End Sub
Sub OnServiceStop()
httpd1.Close
httpd2.Close
End Sub
Sub OnServicePause()
httpd1.Stop
httpd2.Stop
End Sub
Sub OnServiceResume()
httpd1.Start
httpd2.Start
End Sub
Netbox高级进阶—关于端口配置
最新推荐文章于 2024-07-08 13:14:40 发布