NetBox

Pader2008年10月11日 发表于 软件应用 asp iis netbox

近期网页学到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代码
  1. Dim httpd   
  2.   
  3.   
  4. Shell.Service.RunService "NBWeb""NetBox Web Server""NetBox Http Server Sample"  
  5.   
  6. '---------------------- Service Event ---------------------   
  7.   
  8. Sub OnServiceStart()   
  9.     Set httpd = CreateObject("NetBox.HttpServer")   
  10.   
  11.     If httpd.Create("", 800) = 0 Then '800端口   
  12.         Set host = httpd.AddHost("""\") '当前目录为根目录  
  13.  
  14.         host.EnableScript = true  
  15.         host.AddDefault "index.asp" '页面默认文件,下同  
  16.         host.AddDefault "index.htm"  
  17.         host.AddDefault "index.html"   
  18.   
  19.         httpd.Start   
  20.     else   
  21.         Shell.Quit 0   
  22.     end if   
  23. End Sub  
  24.   
  25.   
  26. Sub OnServiceStop()   
  27.     httpd.Close   
  28. End Sub  
  29.   
  30. Sub OnServicePause()   
  31.     httpd.Stop  
  32. End Sub  
  33.   
  34. Sub OnServiceResume()   
  35.     httpd.Start   
  36. End Sub  

保存到测试的目录,打开就可以开始调试你自己的ASP程序了,运行后在托盘区会有一个 .b 的小图标,这小东西真不错,对Access数据库支持的也很好,至少在调试比IIS要好多了,NetBox 的安装程序包只有 1.8M 我估计对ASP的支持还是依赖于 Windows 的自身的组件了所以才这么小,不然的话要是有这样一个 PHP 的桌面程序集成开发环境该多好呵,可是 PHP 组件包也不止 1.8M 啊,以前看别人开发过PHP的桌面应用程序,WEB2.0 开始的今天,看来未来是很飞沫丝的啊。

评论 共有 0 条评论

暂无评论,快发表你的评论吧。