您的位置:首页 > 编程语言 > ASP

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

2016-08-18 16:44 239 查看
简单的形容就是把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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐