近期网页学到ASP了,上课时候老师就讲一些留言本的实例,那种留言本如果用PHP做起来就像是小菜,可是用一窃不通的ASP来做就是有一点小麻烦,一开始连最基本的 if else 语句都不知道,后来才知道在ASP里面是 IF () THEN ... ELSE ... END IF 的格式,还有机房里每天要和病毒做一个小时的斗争,痛苦啊...
那病毒不知道是服务器上的,还是某人每天订时攻击,居然连我都搞不定,各种杀毒软件,主动防御软件和本机的设置策略等等都不行,都无法阻止病毒跑到我机子上来,只能是来了以后再杀掉,偶汗~~
机房里面的 IIS 总是会碰到一些问题,一打开默认网站不知为何总死机,就想起N年前碰到的一个小软件,是叫 netbox 来着可以模拟 ASP 环境还可以取代 IIS,不过从网上下载下来个完整版的,以前看过官网说 netbox 是一个集成开发环境,于是决定研究一下这小东西,原来它就是一个支持ASP的类似于桌面小工具的集成ASP网页开发桌面应用程序的东西,不知道我理解的有没有错,看了一下手册,它的注册文件格式为 .box ,文件主要使用 vbscript 编写,内部集成了各种封装函数,与是按照手册里面写了一个 box 文件用来制作出一个 ASP 的模拟环境,呵呵,很简单,我改出来的 box 代码就是下面这样
ASP/Visual Basic代码
- Dim httpd
-
-
- Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
-
-
-
- Sub OnServiceStart()
- Set httpd = CreateObject("NetBox.HttpServer")
-
- If httpd.Create("", 800) = 0 Then
- Set host = httpd.AddHost("", "\") '当前目录为根目录
-
- host.EnableScript = true
- host.AddDefault "index.asp" '页面默认文件,下同
- host.AddDefault "index.htm"
- host.AddDefault "index.html"
-
- 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
保存到测试的目录,打开就可以开始调试你自己的ASP程序了,运行后在托盘区会有一个 .b 的小图标,这小东西真不错,对Access数据库支持的也很好,至少在调试比IIS要好多了,NetBox 的安装程序包只有 1.8M 我估计对ASP的支持还是依赖于 Windows 的自身的组件了所以才这么小,不然的话要是有这样一个 PHP 的桌面程序集成开发环境该多好呵,可是 PHP 组件包也不止 1.8M 啊,以前看别人开发过PHP的桌面应用程序,WEB2.0 开始的今天,看来未来是很飞沫丝的啊。