asp到netbox

楼主下载netbox并安装

新建一个文件夹，在文件夹里新建www文件夹和www.box

文本打开www.box,输入下列代码

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("", 80) = 0 Then
Set host = httpd.AddHost("", "\www")

host.Enablescript = true
host.AddDefault "index.htm"
host.AddDefault "index.html"
host.AddDefault "index.asp"
host.AddDefault "default.asp"
host.AddDefault "default.htm"
host.AddDefault "default.html"
httpd.Start
else
Shell.Q