第一个ASP组件:设置服务器日期时间组件

网络之门
　　　　　
　　在进入我们需习的第一个组件之前，小虎首先得说明一下，由于小虎的水平有限，可能在下面的这些说明过程中存在
不少错误，希望大家提出指证，在这里我希望能与大家分享一下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这个类型，同样把它双击，好了按一下复制，把