Netbox高级进阶—关于端口配置

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