Board logo

标题: [网络工具] 网络盒子,快速搭建asp网站 [打印本页]

作者: happy886rr    时间: 2016-6-7 19:55     标题: 网络盒子,快速搭建asp网站

网络盒子 又叫netbox,很老一个软件,已去壳汉化。数秒内快速搭建asp网站服务器,虽说过时,但可以自定地box脚本。
比如配置一个简单的服务器
  1. Dim httpd
  2. Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
  3. '---------------------- Service Event ---------------------
  4. Sub OnServiceStart()
  5. Set httpd = CreateObject("NetBox.HttpServer")
  6. If httpd.Create("", 80) = 0 Then
  7. Set host = httpd.AddHost("", "\www")
  8. host.EnableScript = true
  9. host.AddDefault "index.asp"
  10. host.AddDefault "default.asp"
  11. host.AddDefault "index.htm"
  12. host.AddDefault "default.htm"
  13. httpd.Start
  14. else
  15. Shell.Quit 0
  16. end if
  17. End Sub
  18. Sub OnServiceStop()
  19.     httpd.Close
  20. End Sub
  21. Sub OnServicePause()
  22. httpd.Stop
  23. End Sub
  24. Sub OnServiceResume()
  25. httpd.Start
  26. End Sub
复制代码

作者: codegay    时间: 2016-6-7 20:17

很老了。
原作者在GITHUB上开源了。
作者: happy886rr    时间: 2016-6-7 20:43

回复 2# codegay
多谢提示,去爬它的源码去。
作者: codegay    时间: 2016-6-7 20:45

回复 3# happy886rr


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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2