使用NetBox实现ASP网页封装为EXE教程

简单的形容就是把ASP文件打包 成一个EXE文件，并且不需要在调试的机器上安装IIS即可正常调试。如果按照说明书来操作的话，观看比较繁琐，本人为方便大家使用，现制作一个简单的使用教程。 

 

封装过程

1、首先安装NetBox,安装时全部是英文界面，默认安装。
2、安装完毕后运行桌面上的NetBox Deployment Wizard快捷方式
3、打开时有个提示框，是选择软件语言类型的，在此处选择为简体中文，点确定即可。软件界面：
4、准备步骤：
    4.1、安装IIS； 
    4.2、在D盘根目录下建立111文件夹（其实在哪个盘符下建立都可以，我是个人喜好。呵呵，您也可以根据自己的喜好变换位置。）； 
    4.3、将C盘Inetpub文件夹下的wwwroot文件夹（包含里面9个原始文件）一同拷贝至D盘111文件夹下； 
    4.4、把需要封装的ASP文件拷贝至D盘111文件夹下的wwwroot文件夹内（是拷贝至wwwroot文件夹内哦）； 
    4.5、在D盘111文件夹内新建一个文本文档，将以下内容拷贝进去： 
（代码开始，这一行不用拷贝）
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"
Shell.Execute """C:/Program Files/Internet Explorer/IEXPLORE.EXE""http://127.0.0.1/"
         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
（代码结束，这一行不用拷贝）
将以上代码拷贝后把新建文本文档.txt更名为：main.box


代码说明：
host.AddDefault "default.asp"  //首页文件如果为index.asp即更换为index.asp
host.AddDefault "default.htm"  //首页文件如果为index.asp即更换为index.asp


Shell.Execute """C:/Program Files/Internet Explorer/IEXPLORE.EXE"" http://127.0.0.1/"  //这一行是我后加上去的。主要意思是自动使用IE浏览器打开127.0.0.1页面。如果您不想自动打开，您也可以去掉。


If httpd.Create("", 80) = 0 Then   //80是指80端口 不推荐更改。
         Set host = httpd.AddHost( "","/wwwroot")  //wwwroot是指111文件夹下wwwroot文件夹名称


5、开始封装：
5.1、打开桌面上的NetBox Deployment Wizard快捷方式；
5.2、单击选择文件夹选中D盘下的111文件夹；
5.3、单击浏览选择输出文件保存名称及路径，之后直接点击Build即可自动生成EXE文件；   
5.4、生成后即可运行，安装过IIS的朋友如果使用的是80端口的话要记得在运行程序之前要现停止IIS服务器才可以运行生成的EXE程序。

 http://files.cnblogs.com/files/mingjing/nbsetup.rar