灰儿 发表于 2009-4-17 14:50:06

NETBOX 一款绿色版类IIS软件 支持ASP

NetBox-WebServer主程序 点击下载程序
  一款仿IIS程序。默认支持ASP。可单机调试一些简单的ASP程序。
  以下代码为默认设置。红色部分分别是端口,主目录和默认首页文件。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 host = httpd.AddHost("", "\azero.cn")
      host.EnableScript = true
      host.AddDefault "default.asp"
      host.AddDefault "default.htm"
      host.AddDefault "index.asp"
      host.AddDefault "index.htm"
      host.AddDefault "index.html"
      host.AddDefault "aoindex.htm"
      host.AddDefault "list_1.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
页: [1]
查看完整版本: NETBOX 一款绿色版类IIS软件 支持ASP