NETBOX实用代码集合

  • 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>

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: