First ASP component: Setting up a server date-time component

The door of the Web
　　　　　
Before entering the first component we need to learn, the Tiger first has to say that because the tiger's level is limited, it may be in the following instructions
A lot of mistakes, I hope you put forward the evidence, here I hope to share with you the learning experience of ASP, the tiger's site is the original spirit, a lot of
Things are DIY, so the process of writing will be infected with the tiger itself bad programming habits. and the entire teaching site is only a small tiger maintenance, so the technology
There must be a lot of problems, I hope you understand.
ASP components for our ASP programming provides a powerful extension, such as we need to start an application in the server, set the server time,
Access to the internal operating system information, etc., can not be done by ASP. Most of them need to use their own developed ASP components to achieve, the ASP itself provides us with
A few very useful components, ADO database access Components, file input and output components, advertising rotation components and so on. But there are a lot of times when we need some special
The function.
First of all, the tiger with their most familiar with VB to do this component, everyone first in their own calculation of the chicken on the D version of the VB Bar, version does not require, but the tiger is used
VB6 's. How about starting the first step?
(i) running VB6, the system pops up a "New project" dialog box. Select an ActiveX Dll
Then you can see "Project One" and a class "Class1" in the project manager, let us want to help them to change a nice name first,
If you use this homemade component in ASP, do you use
Set Obj=server.createobject ("Engineering I. Class1")
Such a nasty name? Go ahead and change it. We renamed the Project One: Systimeset, and Class1 changed to: Timeset. That's better.
, huh? OK, start adding Code for Class Timeset, think first, VB6 itself seems to have no ability to set the system time and date of the function bar (Tiger does not remember there is no
So what can I do? Don't worry, have you heard the WIN32API function? This is Microsoft's Windows system-level function. Provides a wealth of operating system features,
Don't change the date, change the time, is to let your window restart also can. The tiger opened the thick Win32API function encyclopedia, finally found the SetSystemTime
This function, Win32API originally designed for C + + programmers to use, in VB call it must first fame, fortunately Microsoft also think very thoughtful, VB40 above version,
All with the API text browser, we run it, it is in the Start menu of the VB program group, run out of the box, from the File menu, choose to load this article
Thing Select the declaration in the WIN32API.TXT,API type, and then find the SetSystemTime in that available item, double-click it, and a piece of code
Now select the item, then the selection, the type in the API type, find SYSTEMTIME This type, also double-click it, OK click Copy,