Else's blog

Dim httpd


Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"

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

Sub OnServiceStart()
    Set httpd = NetBox.CreateObject("NetBox.HttpServer")

    If httpd.Create("", 80) = 0 Then
        Set host1 = httpd.AddHost("wpsni.cn", "启跃电机")        

        host1.EnableScript = true
        host1.AddDefault "default.htm"
        host1.AddDefault "default.asp"
        host1.AddDefault "index.htm"
        host1.AddDefault "index.asp"

        Set host2 = httpd.AddHost("11.cn","CukuCms")
        host2.EnableScript = true
        host2.AddDefault "default.htm"
        host2.AddDefault "default.asp"
        host2.AddDefault "index.htm"
        host2.AddDefault "index.asp"    
  
        Set host2 = httpd.AddHost("22.cn","22web")
        host2.EnableScript = true
        host2.AddDefault "default.htm"
        host2.AddDefault "default.asp"
        host2.AddDefault "index.htm"
        host2.AddDefault "index.asp"  

        Set host3 = httpd.AddHost("33.cn","启网工作室")
        host3.EnableScript = true
        host3.AddDefault "default.htm"
        host3.AddDefault "default.asp"
        host3.AddDefault "index.htm"
        host3.AddDefault "index.asp"        

        Set host4 = httpd.AddHost("f7.cn","个人站点")
        host4.EnableScript = true
        host4.AddDefault "default.htm"
        host4.AddDefault "default.asp"
        host4.AddDefault "index.htm"
        host4.AddDefault "index.asp"

        Set host5 = httpd.AddHost("55.cn","55web")
        host5.EnableScript = true
        host5.AddDefault "default.htm"
        host5.AddDefault "default.asp"
        host5.AddDefault "index.htm"
        host5.AddDefault "index.asp"


        Set host6 = httpd.AddHost("66.cn","华夏三皇")
        host6.EnableScript = true
        host6.AddDefault "default.htm"
        host6.AddDefault "default.asp"
        host6.AddDefault "index.htm"
        host6.AddDefault "index.asp"

        Set host7 = httpd.AddHost("77.cn","77web")
        host7.EnableScript = true
        host7.AddDefault "default.htm"
        host7.AddDefault "default.asp"
        host7.AddDefault "index.htm"
        host7.AddDefault "index.asp"


        Set host8 = httpd.AddHost("db.nd","诚信担保")
        host8.EnableScript = true
        host8.AddDefault "default.htm"
        host8.AddDefault "default.asp"
        host8.AddDefault "index.htm"
        host8.AddDefault "index.asp"
        
        Set host9 = httpd.AddHost("99.cn","长丰贸易")
        host9.EnableScript = true
        host9.AddDefault "default.htm"
        host9.AddDefault "default.asp"
        host9.AddDefault "index.htm"
        host9.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("wpsni.nd","后台修改")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("22.nd","ndweb2")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("33.nd","ndweb3")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("77.nd","修改网站")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("55.nd","ndweb5")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("66.nd","春飞电机")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("88.nd","ndweb8")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"


        Set ndhost1 = httpd.AddHost("99.nd","ndweb9")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("11.nd","新诚信担保")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("12.nd","ndweb12")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"
        httpd.Start

        Set ndhost1 = httpd.AddHost("13.nd","13nd1")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("13.nd","13nd")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("15.nd","15nd")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("16.nd","16nd")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("jjw.nd","佳佳旺食品")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("18.nd","18nd")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("19.nd","19nd")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("20.nd","海上仙都")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("21.nd","21nd")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"



        Set ndhost1 = httpd.AddHost("23.nd","23nd")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("css.nd","cssdiv")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("sanyu.nd","三友电机")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"


        Set ndhost1 = httpd.AddHost("res.nd","个人简历")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"


        Set ndhost1 = httpd.AddHost("ty.nd","天宜电器")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

        Set ndhost1 = httpd.AddHost("clqy.nd","超力电机")
        ndhost1.EnableScript = true
        ndhost1.AddDefault "default.htm"
        ndhost1.AddDefault "default.asp"
        ndhost1.AddDefault "index.htm"
        ndhost1.AddDefault "index.asp"

    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