ICANN认证国际域名顶级注册机构
网站建设,域名注册,空间租用,软件销售,广告设计 域名注册,空间租用, 网站建设,东莞网页设计,域名注册,网站推广,网站开发,网页设计 网站推广,,百度推广,新浪推广,雅虎推广,网易推广 标志设计,画册设计,包装设计,VI策划,企业形象顾问 连邦软件加盟店,提供销遥行,管家婆,速达,用友ERP,诺顿等软件报价及销售 建站必读 腾达网络,上网帮助中心, 腾达为东莞等地,提供网站建设,网站推广,广告设计,软件销售等优质服务!
建站必读


 
 
当前位置:首页 -> 建站必读 -> ASP技术
使用ASP重启服务器
大家知道直接使用ASP是不能够重启服务器的,这时我们需要制作一个组件来实现功能,ASP通过这个组件调用系统API,然后按照不同的重启和关机方式进行操作!

     

     下面先说COM的制作,在VB中新建一工程,当然是AceiveX dll的!

     1)先修改工程属性,在工程属性窗口将工程名称改为system,在类模块窗口将模块名称改为contral,保存工程;

     2)然后添加一个模块,用来声明需要使用的API和常数!下面是模块中的内容!

     Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

     3)在类模块中输入下列代码:

     Public Function reboot(atype As Variant)

     t& = ExitWindowsEx(1, atype)

     End Function

     该函数需要传入一个参数,用来控制启动方式,这个参数是从ASP程序中传入的,等一下就可以看到具体的使用方法!

     

     编写完上面的代码,保存工程,将工程编译为system.dll。下面就写ASP程序!

     

     ASP中的代码非常简单:

     <%

     atype=request("atype")

     set sys=server.CreateObject ("system.contral")

     sys.reboot(atype)

     %>

     其中atype可以使用0、1、2、4,0、1和4均为关机,2用来重启。写完后执行ASP就可以了!

     

     本文章只起一个抛砖引玉的作用,使更多的VB程序员都来开发组件,程序中可能存在问题,希望高手给予指正!有问题请和我联系:webmaster@chinanetboy.com

     下载地址:http://www.chinanetboy.com/code/detail.asp?id=142

     

     
 
 
本站关键词:
|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设||东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设||东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设||东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设||东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设||东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设||东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|东莞雅虎推广|网页开发|域名注册|空间租用|东莞网站开发|东莞企业网站建设|
域名注册 | 虚拟主机 | 网站建设 | 网站推广 | 广告设计 | 帮助中心 | 软件中心 | 关于腾达
东莞市腾达信息工程有限公司      本站网络实名: 东莞网站建设
地址:东莞市新城市中心区第一国际B座610   邮编:523007
电话:0769-22026071 22026072 传真:0769-22026076 24小时服务热线:13712032014
© 2002~2005 腾达网络   版权所有