- A+
远程关闭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://127.0.0.1:" & httpd.Port
'显示HTML窗口,直到退出
htWin.ShowDialog
'***************结束 main.box*****************
'***************开始 wwwroot\default.asp*****************
<HTML><BODY><BUTTON onclick="external.close()">关闭</BUTTON></BODY></HTML>
'***************结束 wwwroot\default.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://127.0.0.1"
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
<html>
<body>
<form action="001.asp" method="post" enctype="multipart/form-data" name="form1">
<input type="file" name="file">
<input type="submit" name="Submit" value="Submit">
</form>
</body>
</html>
001.asp
<html>
<body>
<%If Request.Form.Count > 0 Then%>
File:<%=Request.Form("file").filename%><br>
Size:<%=Request.Form("file").size%><br>
<%
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%>
</body>
</html>
- 我的微信
- 这是我的微信扫一扫
-
- 我的微信公众号
- 我的微信公众号扫一扫
-
