netbox(网络盒子的main内代码超级优化)-创造个人主页之不用iis做服务器续

以下为netbox下 main.box超级优化后的代码

大家复制以下代码,自已修改,或者下载本文章带的完整附件,然后进得更改.

-------------------------------------------------------------------------------------------

Dim httpd,host(10),i                         '有没看到我这边写着10,因为我下边网站列表里最后是10

                                                        '也就是说我在下边再添一个网站,那下边就多条11的,上边也要改成11
Shell.Service.RunService "allyes", "同端口同时运行多站点的", "同端口同时运行多站点"
'---------------------- Service Event ---------------------
Sub OnServiceStart()
Set httpd = CreateObject("NetBox.HttpServer")

If httpd.Create("", 80) = 0 Then                                                   '这是端口,这里默认为80
Set host(0) = httpd.AddHost("192.168.0.1", "\001\")                    '这些是网站,现在总共列有11条,就是说,
Set host(1) = httpd.AddHost("192.168.0.2", "\002\")                    '我当前运行了11个站点,输入域名就访问
Set host(2) = httpd.AddHost("192.168.0.3", "\003\")                    '该处设置的目录里.
Set host(3) = httpd.AddHost("192.168.0.4", "\004\")                    '为了方便,我写的是ip,大家自已改为域名
Set host(4) = httpd.AddHost("192.168.0.5", "\005\")                    '每个域名都不一样,一个就代表一个站
Set host(5) = httpd.AddHost("192.168.0.6", "\006\")                    '001..002..003 这些是 网站所在目录
Set host(6) = httpd.AddHost("192.168.0.7", "\007\")                    'set host(0)....set host(10) 这里大家认真
Set host(7) = httpd.AddHost("192.168.0.8", "\008\")                    '看下就会明白,有几个站点就写到几了
Set host(8) = httpd.AddHost("192.168.0.9", "\009\")                    '注:从0开始算一个
Set host(9) = httpd.AddHost("192.168.0.10", "\010\")
Set host(10) = httpd.AddHost("192.168.0.11", "\011\")
For i=0 to Ubound(host)
host(i).EnableScript = true                                                         '以下是网页访问顺序,请自行设置修改
host(i).AddDefault "default.asp"
host(i).AddDefault "default.htm"
host(i).AddDefault "default.html"
host(i).AddDefault "index.asp"
host(i).AddDefault "index.htm"
host(i).AddDefault "index.html"
Next
httpd.Start
Else
Shell.Quit 0
End If
End Sub
Sub OnServiceStop()
           httpd.Close
End Sub
Sub OnServicePause()
           httpd.Stop
End Sub
Sub OnServiceResume()
           httpd.Start
End Sub