ASP运行环境

一、创建 asp 运行环境 

  首先创建一个空的目录，在你喜欢的位置，假设是 d:websvr。将 netbox.exe 复制到这个目录，然后在目录中创

建一个文件：main.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("", "wwwroot")   

   host.EnableScript = true 

   host.AddDefault "default.asp" 

   host.AddDefault "default.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 

  上面的代码摘自《创建一个 WEB 服务器》。其中加粗的部分是缺省文件名，如果你的应用不同，可以自行添加修

改。   

  二、复制 asp 应用 

  在目录中再创建一个子目录：wwwroot，将你在 iis 中的文件全部复制到 wwwroot 中。此时，你的 netbox 运行

环境应该已经准备好了。   

  三、测试运行 

  为了运行你刚才新建的 netbox 应用，你必须确认你的 iis 或者其他占用 80 端口的程序已经停止，较大的可能

是你的 iis 在使用这个端口，所以最好停止你的 iis，或者将 iis 的使用端口更换为其他端口。  

  在确保 iis 已经停止后，你便可以执行你的 netbox 应用了。双击 netbox.exe 文件，很快，你将在窗口右下角

看见 netbox 的图标。此时，netbox 已经正常运行了。你需要做的是使用 ie 访问 http://localhost 测试你的 asp 

应用是否也已经正常运行。一般情况下此时 asp 也已经完全正常运行了。