网络盒子，快速搭建asp网站

happy886rr

网络盒子 又叫netbox，很老一个软件，已去壳汉化。数秒内快速搭建asp网站服务器，虽说过时，但可以自定地box脚本。
比如配置一个简单的服务器

1. 
   
2. Dim httpd
   
3. Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
   
4. '---------------------- Service Event ---------------------
   
5. 
   
6. Sub OnServiceStart()
   
7. Set httpd = CreateObject("NetBox.HttpServer")
   
8. If httpd.Create("", 80) = 0 Then
   
9. Set host = httpd.AddHost("", "\www")
   
10. host.EnableScript = true
    
11. host.AddDefault "index.asp"
    
12. host.AddDefault "default.asp"
    
13. host.AddDefault "index.htm"
    
14. host.AddDefault "default.htm"
    
15. httpd.Start
    
16. else
    
17. Shell.Quit 0
    
18. end if
    
19. End Sub
    
20. 
    
21. Sub OnServiceStop()
    
22.     httpd.Close
    
23. End Sub
    
24. 
    
25. Sub OnServicePause()
    
26. httpd.Stop
    
27. End Sub
    
28. 
    
29. Sub OnServiceResume()
    
30. httpd.Start
    
31. End Sub
    

复制代码

codegay

很老了。
原作者在GITHUB上开源了。

happy886rr

回复 2# codegay
多谢提示，去爬它的源码去。

codegay

回复 3# happy886rr


    作者 响马 微博上可以关注他。