远程关闭close.asp
----------------------------------
<%
dim shell
set shell = CreateObject("Shell")
shell.halt 0
%>
----------------------------------

************************==================***************************
在窗口关闭的同时,结束NetBOX的“IIS”服务

----------------------------------
能,在最后
httpd.Stop
httpd.Close
不过你要编译后才能这样运行(至少在我的2.8.4128.0版是这样)
----------------------------------

************************==================***************************
把ASP程序变成桌面应用程序?

----------------------------------
自从lionlab的文章发表《编译 asp 应用程序成为 exe 文件》以后,很多人问希望能使用ASP来写桌面的应用程序。
其实这在NetBox里有现成的解决方案:
程序:
'***************开始 main.box*****************
'启动可以运行ASP的环境

'创建WEB Sever对象
Set httpd = CreateObject("NetBox.HttpServer")
httpd.Create "127.0.0.1", 0

'加入一个主机
Set host = httpd.AddHost("", "wwwroot")

'打开脚本运行权限
host.EnableScript = true

'加入IIS兼容的默认文件
host.AddDefault "default.asp"
host.AddDefault "default.htm"

'启动WEB Server
httpd.Start
' 成功启动可以运行ASP的环境

'创建HTML窗口
Set htWin= CreateObject("NetBox.HtmlWindow")

'提供ASP页面的地址
htWin.Open "http://www.manrui.cn:" & httpd.Port

'显示HTML窗口,直到退出
htWin.ShowDialog
'***************结束 main.box*****************

'***************开始 wwwrootdefault.asp*****************

'***************结束 wwwrootdefault.asp*****************

结束语:其实ASP只是NetBox中很小的一个模块,还有很多功能可以为大家所用。
关键是思路要开阔,不要让IIS把自己的思路给限制死了,要有信心突破IIS给你画的圈。
----------------------------------

************************==================***************************
自动关闭程序
----------------------------------
Dim httpd, ht

Set httpd = NetBox.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"
host.AddDefault "index.htm"
host.AddDefault "index.asp"
httpd.Start
Set ht = CreateObject("NetBox.HtmlWindow")
ht.open "http://www.manrui.cn"
ht.Maximized = true
ht.icon = "1.gif"
ht.showDialog
else
Shell.Quit 0
end if
----------------------------------

************************==================***************************
给大家一段确实可用的上传代码

----------------------------------
程序自带的上传范例实际上并不能实现上传功能,看到很多新人在问这个问题,特贴出一段我正在用的代码供大家参考。
该代码可以在ASP中调用,将上传来的文件保存在files目录下。
<%
Set file = CreateObject("NetBox.File") '建立上传对象
filename="files/"&Request.Form("file1").filename
file.create Server.mappath(filename)
file.write Request.Form("file1")
file.close
set file=nothing
%>
----------------------------------

************************==================***************************
NETBOX可用上传代码

----------------------------------
000.asp



001.asp

<%If Request.Form.Count > 0 Then%>
File:<%=Request.Form("file").filename%>

Size:<%=Request.Form("file").size%>

<%
up_filename=split(Request.Form("file").filename,"")
Set file2 = CreateObject("NetBox.File")
file2.create "wwwroot"&up_filename(ubound(up_filename))
file2.write Request.Form("file")
file2.close
%>

<%End If%>