注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

K8拉登哥哥's Blog

K8搞基大队[K8team] 信息安全 网络安全 0day漏洞 渗透测试 黑客

 
 
 

日志

 
 

NETBOX实用代码集合  

2013-06-10 10:41:12|  分类: ASP/PHP |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
远程关闭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>
  评论这张
 
阅读(707)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016