main.box

来自「图利文章管理系统。毕业设计郑州科技学院2006级计算机系计算机信息管理专业」· BOX 代码 · 共 34 行

Dim httpd

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

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

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

    If httpd.Create("", 8080) = 0 Then
        Set host = httpd.AddHost("", "\wwwroot")
		Set Folder = host.AddFolder("download", "\download")
        host.EnableScript = true
		host.AddDefault "default.asp"
        host.AddDefault "index.html"
		host.AddDefault "index.asp"
        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