main.box

来自「一个小型ASP做的工资管理系统,这也是别人做的,我觉得他很地干静.」· BOX 代码 · 共 38 行

Dim httpd


Shell.Service.RunService "XYWeb", "逍遥迷你ASP服务器", "NetBox Http Server Sample"

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

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

    If httpd.Create("", 8054) = 0 Then
        Set host = httpd.AddHost("", "")

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


        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