分享
 
 
 

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

王朝asp·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

在进入我们需习的第一个组件之前,小虎首先得说明一下,由于小虎的水平有限,可能在下面的这些说明过程中存在不少错误,希望大家提出指证,在这里我希望能与大家分享一下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

Private Type SystemTime

wYear As Integer

wMonth As Integer

wDayOfWeek As Integer

wDay As Integer

wHour As Integer

wMinute As Integer

wSecond As Integer

wMilliseconds As Integer

End Type

Dim tmp

Private m_Hour As Integer

Private m_Minute As Integer

'声明timeset类的公有属性,比如当你用set obj=server.createobject("systimeset.timeset")创建了一个服务器对象时,需要对timeset进行赋值,也就是指定要设置的系统时间吧,那么就得声明下面这写timeset的公有属性,我这有只声明了HOUR和Minute,也就是只提供更改小时和分钟,如过你要改其它的几个,那么自己弄上去吧。

Public Property Get Hour() As Integer

Hour = m_Hour

End Property

Public Property Let Hour(tmp_Hour As Integer)

m_Hour = tmp_Hour

End Property

Public Property Get Minute() As Integer

Minute = m_Minute

End Property

Public Property Let Minute(tmp_Minute As Integer)

m_Minute = tmp_Minute

End Property

有了HOUR和Minute属性,那么你在ASP中创建了服务器对象obj时,就可以通过

obj.Hour=10

obj.Minute=10着样来对它赋值,意思就是你打算把时间设为10:10分。

好了,最后就是公有方法了,我们声命一个setup()的方法,只要一调用它,就马上更改时间。其它几个参数我固定使用常量,大家可以改一下,这个不用我说了吧?应改会有体会了,总之不能空着,不然调用WIN32API函数会失败返回0的,如过是1就成功了。我这里设为1999-10-1日,我们的50周年国庆。

Public Function setup() As Integer

SystemTime.wDay = 1

SystemTime.wDayOfWeek = 1

SystemTime.wMilliseconds = 0

SystemTime.wMonth = 10

SystemTime.wSecond = 0

SystemTime.wYear = 1999

SystemTime.wHour =Hour

SystemTime.wMinute =Minute

setup = SetSystemTime(SystemTime)

End Function

最后保存工程,并编译DLL,编译后这个组件会由VB6自动注册的,所以我们可以马上在ASP 中调用了。我们马上写一个简单的ASP程序。

*test.asp

<% @language="vbscript" %>

<%

response.Expires=0

set obj=server.createobject("systimeset.timeset")

obj.Hour=10

obj.Minute=10

result=obj.setup

if result=1 then

response.write "系统时间已成功修改"

else

response.write "系统时间修改失败"

endif

set obj=Nothing

%>

累死我了,一口气做这个组件和打了这么多字,具体的ASP组件注册等问题下次我会对大家解说。我把ASP组件源程序先打包,那么大家就不用敲了,直接拿去编译就行了,由于工程是vb6做的,所以需要VB6才能打开编译。如果大家觉得本站办的挺好的话,请为小虎的网站做个推荐和友情连接吧,希望通过交流学习,我们能共同进步。如转载小虎的文章,请注明出处,必竟小虎是花了不少时间来敲的。~0~

以上组件的运行环境为:Pwin98+Pws4

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有