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