位置：首页>> 网络编程>> Asp编程>> Asp定时执行操作、各种网页定时操作详解（2）

Asp定时执行操作、各种网页定时操作详解（2）

作者：Vbell　来源：qqview.com　发布时间：2008-06-10 17:32:00　

标签：定时,刷新,数据库,asp

三，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\regsvr32 timer.dll
　　完成组件注册，同样可以使用这个定时组件。
　　现在解说刚才按个列子的ASP调用文件。看看这个组件如何使用

＊定时器的应用

<html>
<title>定时器的应用（From:Http://www.QQview.com）</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.qqview.com/Test.asp")
ie.visible=1
'Clean up...
Set IE = Nothing

1，可以在服务器使用“任务计划”

2，也可以在客户机使用“任务计划”

具体使用“任务计划”的使用，请参考

http://www.pclala.com/Pc/Skill/200851912807.Html

优缺点：页面会定时的弹出页面Test.asp，但是会有一个解决方法，就是在Test.asp页面加入定时关闭代码：

<script LANGUAGE="JavaScript">

</script>

总结，由于目前部分网页语言的限制，在定时操作上有一定的困难，但是经过我多次的求证，发现第四种方法无疑是效果最好的，最省心的。

第一页上一页 1

投稿

Asp定时执行操作、各种网页定时操作详解（2）

猜你喜欢