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

  1 Dim httpd1,httpd2 

  2 

  3 Shell.Service.RunService "NBWeb", "多个虚拟目录", "多个访问端口" 

  4 

  5 '---------------------- Service Event --------------------- 

  6 

  7 Sub OnServiceStart() 

  8 

  9 Set httpd1 = NetBox.CreateObject("NetBox.HttpServer")  

 10 

 11 Set httpd2 = NetBox.CreateObject("NetBox.HttpServer") 

 12 

 13 If httpd1.Create("127.0.0.1", 80) = 0 Then 

 14 

 15 Set host1 = httpd1.AddHost("", "\wwwroot") 

 16 

 17 host1.EnableScript = true '允许执行脚本程序(即ASP文件,否则只能访问HTM文件)  

 18 

 19 host1.EnableBrowse = true '开启目录浏览 

 20 

 21 host1.EnableDebug = false '关闭运行的代码出现运行错误时自动激活系统中的调试环境 

 22 

 23 host1.EnableWrite =false '设为可读写的状态 

 24 

 25 host1.AddDefault "default.asp" 

 26 

 27 host1.AddDefault "default.htm" 

 28 

 29 host1.AddDefault "default.html" 

 30 

 31 host1.AddDefault "index.asp" 

 32 

 33 host1.AddDefault "index.htm" 

 34 

 35 host1.AddDefault "index.html" 

 36 

 37 'httpd.Start 

 38 

 39 else

 40 

 41 Shell.MsgBox "服务器启动失败，80端口可能被占用!请停止当前WEB服务器或用记事本打开serv.box文件修改端口.","错误提示" 

 42 

 43 Shell.Quit 0 

 44 

 45 end if 

 46 

 47 'Set httpd = NetBox.CreateObject("NetBox.HttpServer") 

 48 

 49 If httpd2.Create("192.168.0.235", 81) = 0 Then 

 50 

 51 Set host2 = httpd2.AddHost("", "aspserver")

 52 

 53 host2.EnableScript = true '允许执行脚本程序(即ASP文件,否则只能访问HTM文件)  

 54 

 55 host2.EnableBrowse = true '开启目录浏览 

 56 

 57 host2.EnableDebug = false '关闭运行的代码出现运行错误时自动激活系统中的调试环境 

 58 

 59 host2.EnableWrite =false '设为可读写的状态  

 60 

 61 host2.AddDefault "default.asp" 

 62 

 63 host2.AddDefault "default.htm" 

 64 

 65 host2.AddDefault "default.html" 

 66 

 67 host2.AddDefault "index.asp" 

 68 

 69 host2.AddDefault "index.htm" 

 70 

 71 host2.AddDefault "index.html" 

 72 

 73 httpd1.Start 

 74 

 75 httpd2.start 

 76 

 77 else 

 78 

 79 Shell.MsgBox "服务器启动失败，81端口可能被占用!请停止当前WEB服务器或用记事本打开serv.box文件修改端口.","错误提示" 

 80 

 81 Shell.Quit 0 

 82 

 83 end if 

 84 

 85 End Sub 

 86 

 87 Sub OnServiceStop() 

 88 

 89 httpd1.Close 

 90 

 91 httpd2.Close 

 92 

 93 End Sub 

 94 

 95 Sub OnServicePause() 

 96 

 97 httpd1.Stop 

 98 

 99 httpd2.Stop 

100 

101 End Sub 

102 

103 Sub OnServiceResume() 

104 

105 httpd1.Start 

106