在进入我们需习的第一个组件之前，小虎首先得说明一下，由于小虎的水平有限，可能在下面的这些说明过程中存在不少错误，希望大家提出指证，在这里我希望能与大家分享一下ASP的学习经验，小虎的这个网站推耸的是原创精神，很多东西都是DIY，因此程序编写过程中也会染上小虎本身不良的编程习惯。而且整个教学网站也只有小虎一个维护，因此技术上肯定存在不少问题，望大家谅解。

　　ASP组件为我们的ASP编程提供了强大的扩展功能，比如我们需要在服务器中启动一个应用程序，设置服务器的时间，访问操作系统内部信息等等，光靠ASP是干不了的。很大部分都需要借助自己开发的ASP组件才能实现，ASP本身为我们提供了几个非常有用的组件，ADO数据库访问组件，文件输入输出组件，广告轮换组件等等。但有很多时侯我们需要的一些特殊的功能。

　　首先，小虎用自己最熟悉的VB来做这个组件，大伙先在自己的计算鸡上装上个D版的VB吧，版本没要求，但小虎是用VB6的。开始第一步怎么样呢？

（一）运行VB6，系统弹出了一个“新建工程”的对话框。选择ActiveX Dll
　　　接着可以在工程管理器上看见“工程一”和所属的一个类“ Class1”，让我们想先帮他们改上一个好听的名字吧，
要不你在ASP中使用这个自制组件时，难道用
　　　set obj=server.createobject("工程一.class1")
　　　这么难听的名字吗？快去把它改改吧。我们把工程一改名为：systimeset，而class1改为：timeset。这样好多了吧？好了，开始为类timeset添加代码了，先想一想，vb6本身好象没有能设定系统时间和日期的函数吧（小虎不记得有没有了）那么怎么办呢？别着急，大家听过WIN32API函数吗？这是微软的windows系统级函数。提供有丰富的操作系统功能，别说改日期，改时间，就是让你的window重起动也可以。小虎打开了厚厚的WIN32API函数大全，终于找到了SetSystemTime这个函数，win32API原本是设计为C++程序员使用的，在VB里调用它得先声名，好在微软还想得挺周到，VB40以上的版本，都带有API文本浏览器，我们运行它，它就在开始菜单的VB程序组里，运行后弹出了个框框，从文件菜单中选择加载文本文件。选择WIN32API.TXT，API类型中选择声明，然后在那个可用项中找到SetSystemTime这个东西，双击它，一段代码就出现在选定项里，接着还要选东西，在API类型中选择类型，找到SystemTime这个类型，同样把它双击，好了按一下复制，把刚才选择的东西都贴到粘贴板中。关了这个API浏览器，我们的东西算是够用了。
　　　现在编写VB代码，双击timeset类，在类里加入下面的代码。
Option Explicit
Private SystemTime As SystemTime
'这些就是从粘贴板里来的，我们看看systemtime这个类型，也就是差不多C++中的结构体，光看看他那八项就知道是一些年，月，日，小时，分种。。。等的八大项，现在只要为这八大项赋上值再调用SetSystemTime这个WIN32API函数，瞧瞧你的服务器吧，日期时间都给改掉了，如果你用win98来做服务器，试把它调到26号看看，有没有CIH，^0^，由于这是个例子，因此大部分值我都采用固定的值，而不是从ASP中传过来的值，从ASP中传过来只有HOUR，和MINUTE，小时和分钟，如果你们有兴趣加上其它几个的话，那么就修改一下程序吧。
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SystemTime) As Long
Priv

[1] [2] [3] 下一页

在google里搜索更多第一个ASP组件:设置服务器日期时间组件

	Web www.51ec.org