缺点:要在浏览器打开页面,不能关闭。 三,ASP使用VB写的定时组件 ASP中没有setTimeout这类的定时语句,我们需要利用ASP组件来解决,同样,可以采用VB6来编制,具体操作方法参考 上一编组件的做法,为了挂起线程,我们需要运用WIN32API函数Sleep,同样新建一个Active Dll工程,起名字为Timer, 类名为sleep。 sleep这个WIN32API函数可以用VB6自带的API文本浏览器中找到它的声明方法 现在类sleep的程序如下,这个组件程序很简单的,我不多解说了。 复制代码 代码如下: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private m_set As Long Public Property Get setup() As Long setup = m_set End Property Public Property Let setup(strset As Long) m_set = strset End Property Public Function Sleeptime() Sleep (setup) End Function
把它编译一下,就生成timer.dll这个组件dll,如果您不会写VB程序,那么您也可以在下载的文件包里找到timer.dll 这个文件。把它copy到windows目录下,在MS-DOS方式中输入 c:windows
egsvr32 timer.dll 完成组件注册,同样可以使用这个定时组件。 现在解说刚才按个列子的ASP调用文件。看看这个组件如何使用 *定时器的应用 复制代码 代码如下: <html> <title>定时器的应用(From:Http://www.jb51.net)</title> <head> </head> <body> <% ‘这个是脚本执行时间,默认为90秒,需要改长一点,不然在90秒后程序会被中断"3600为一小时 Server.ScriptTimeOut=3600 set obj=server.createobject("timer.sleep") "参数1000为线程挂起一秒钟,可以随意设定 obj.setup=1000 do while true
obj.sleeptime "执行定时操作, If Not Response.IsClientConnected Then set obj=nothing session.abandon End If loop %> </body> </html>
优点:在这里只是随便用VB写了一个测试的dll,但是用VB肯定可以在dll里面写一个定时执行的操作。 缺点:感觉VB写的这个dll可能会优点占资源。 四,结合电脑的任务计划的定时操作,我个人认为是目前最好的方法。 这个个人感觉是目前实现定时操作的最好方法。 就是先在服务器上写好要定时操作的页面,如Test.asp 然后写一个vbs文件,如下: 复制代码 代码如下: Dim IE Set IE = CreateObject("InternetExplorer.Application") "运行你的 URL ie.navigate("http://www.jb51.net") ie.visible=1 "Clean up... Set IE = Nothing