Asp定时执行操作 Asp定时读取数据库(网页定时操作详解)

时间:2022-09-17 23:48:36

目前定时的操作有: 
一、Html页面的定时刷新(Refresh--刷新 ) 
1,Refresh (刷新) 代码使用说明 
   说明:让网页多长时间(秒)刷新自己,或在多长时间后让网页自动链接到其它网页。 
   用法:<Meta http-equiv="Refresh" Content="30"> 
      <Meta http-equiv="Refresh" Content="5; Url=//www.zzvips.com"> 
   注意:其中的5是指停留5秒钟后自动刷新到URL网址 
2,如何定时操作 
你可以在同一个页面重复刷新,以达到定时操作的效果。 
如:<meta http-equiv="refresh" content="5;URL=//www.zzvips.com"> 
缺点:要在浏览器打开页面,不能关闭。 
二、Javascript里面的setTimeout 和 setInterval 
1,setTimeout 和 setInterval的区别 
  window对象有两个主要的定时方法,分别是setTimeout 和 setInteval 他们的语法基本上相同,但是完成的功能取有区别。 
  setTimeout方法是定时程序,也就是在什么时间以后干什么。干完了就拉倒。 
  setInterval方法则是表示间隔一定时间反复执行某操作。 
  如果用setTimeout实现setInerval的功能,就需要在执行的程序中再定时调用自己才行。如果要清除计数器需要 根据使用的方法不同,调用不同的清除方法: 
例如:tttt=setTimeout('hello()',1000); 
clearTimeout(tttt); 
或者: 
tttt=setInterval('hello()',1000); 
clearInteval(tttt); 
2,如何定时操作 
比如要定时打开页面 Test.asp(当然Test.asp可以是读取数据库,生成静态页面......) 

复制代码代码如下:


<script language="JavaScript" type="text/javascript"> 
<!-- 
function hello(){ 
window.open('Http://www.zzvips.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.zzvips.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.zzvips.com") 
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"> 
<!-- 
setTimeout('window.close();', 500); 
// --> 
</script> 


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