时间:2021-07-01 10:21:17 帮助过:31人阅读
<script language="JavaScript" type="text/javascript">
<!--
function hello(){
window.open('Http://www.gxlsystem.com')
}
window.setTimeout(hello(),5000);
//-->
</script>
缺点:要在浏览器打开页面,不能关闭。
三,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.gxlsystem.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("//www.gxlsystem.com")
ie.visible=1
'Clean up...
Set IE = Nothing
1,可以在服务器使用“任务计划”
2,也可以在客户机使用“任务计划”
具体使用“任务计划”的使用,请参考http://www.gxlsystem.com/Pc/Skill/200851912807.Html
优缺点:页面会定时的弹出页面Test.asp,但是会有一个解决方法,就是在Test.asp页面加入定时关闭代码:
代码如下:
<script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 500);
// -->
</script>
总结,由于目前部分网页语言的限制,在定时操作上有一定的困难,但是经过我多次的求证,发现第四种方法无疑是效果最好的,最省心的。