快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

使用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程序员都来开发组件,程序中可能存在问题,希望高手给予指正!
返回类别: 教程
上一教程: 在SQL2000查询中使用XDR的例子
下一教程: 实例讲解ASP抓取网上房产的信息

您可以阅读与"使用ASP重启服务器"相关的教程:
· 如何使用ASP建立虚拟的FTP服务器
· 个人经验:使用ASP尽量减少服务器端的工作量
· 使用ASP和WORD进行服务器端拼写检查
· 使用索引服务器 - 创建ASP页面
· 使用索引服务器- 使用索引服务器的对象
    微笑服务 优质保证 索取样品