用ajax实现的自动投票的代码
发布时间:2023-08-24 16:35:07
标签:用ajax实现的自动投票的代码
一朋友委托我帮他投票,地址在:
http://publish.sina.com.cn/04/13/413/search.php
投票的链接是:
http://publish.sina.com.cn/poll.php?p_id=413&t_id=119
我于是做了下面一段代码,做成任务管理器,每隔1分钟打开一次,再自动关闭窗口,但实际运行下来,却无效果,不知问题出在哪里?
<html>
<script language="javascript" >
var CheckFreq=1;//队列检查频率,默认1秒检查一次
var bRun=false;//防止同一时间同时运行2个程序
function RunUrl(strUrl,strFreq)
{
this.url=strUrl;//运行的URL
this.freq=strFreq;//运行频率
this.lastrun='';//上次运行时间
}
var RunQueue = new Array();
function AddRun(strUrl,strFreq)//添加Run
{
if(strUrl==''||strFreq=='')return
RunQueue[RunQueue.length]=new RunUrl(strUrl,strFreq)
}
function Run(url)//运行url
{
var xmlHttp;
if (window.XMLHttpRequest)xmlHttp = new XMLHttpRequest();
else if (window.ActiveXObject)xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlHttp.onreadystatechange = function(){bRun=false;}
xmlHttp.open("GET", url, true);
xmlHttp.send(null);
bRun=true;
}
function CheckRun()//检查队列
{
var dtNow=new Date(),objRun;
var tNow=dtNow.getTime();
for(var i=0;i<RunQueue.length;i++)
{
objRun=RunQueue[i];
if(objRun.lastrun=='')objRun.lastrun=tNow;
if(!bRun&&(objRun.freq==0||(tNow-objRun.lastrun)>objRun.freq*1000))
{
objRun.lastrun=tNow;
Run(objRun.url);
}
}
}
AddRun('http://publish.sina.com.cn/poll.php?p_id=413&t_id=119',10);
setInterval('CheckRun()',CheckFreq*1000);//setInterval
</script>
<script language="javascript" >
<!--
function clock(){
i=i-1
document.title="After "+i+" minitues,this window will closed self!";
if(i>0)setTimeout("clock();",20000);
else {window.opener=null;self.close();}
}
var i=2
clock();
-->
</script></html>
<html> <script language="javascript" > //By Ayi 2007-2-10 var CheckFreq=1;//队列检查频率,默认1秒检查一次 var bRun=false;//防止同一时间同时运行2个程序 function RunUrl(strUrl,strFreq) { this.url=strUrl;//运行的URL this.freq=strFreq;//运行频率 this.lastrun='';//上次运行时间 } var RunQueue = new Array(); function AddRun(strUrl,strFreq)//添加Run { if(strUrl==''||strFreq=='')return RunQueue[RunQueue.length]=new RunUrl(strUrl,strFreq) } function Run(url)//运行url { var xmlHttp; if (window.XMLHttpRequest)xmlHttp = new XMLHttpRequest(); else if (window.ActiveXObject)xmlHttp = new ActiveXObject("Microsoft.XMLHTTP"); xmlHttp.onreadystatechange = function(){bRun=false;} xmlHttp.open("GET", url, true); xmlHttp.send(null); bRun=true; } function CheckRun()//检查队列 { var dtNow=new Date(),objRun; var tNow=dtNow.getTime(); for(var i=0;i<RunQueue.length;i++) { objRun=RunQueue[i]; if(objRun.lastrun=='')objRun.lastrun=tNow; if(!bRun&&(objRun.freq==0||(tNow-objRun.lastrun)>objRun.freq*1000)) { objRun.lastrun=tNow; Run(objRun.url); } } } AddRun('http://publish.sina.com.cn/poll.php?p_id=413&t_id=119',10); setInterval('CheckRun()',CheckFreq*1000);//setInterval </script> <script language="javascript" > </script></html>
0
投稿
猜你喜欢
- 数据库是数据的集合,与数学的集合论有密不可分的关系。为提高查询速度,我们可以:对数据表添加索引,以加快搜索速度;通过编程技巧最大限度地利用索
- 图片的间隙Q:我有一张大图片,把它切割后在Dreamweaver中进行拼接,可是总是有间隙,不知为什么?A:不知你是否把表格的边距、间距和边
- 由于众所周知的原因,ACCESS在大型站点应用中都靠不上边,主要问题就是数据量大了以后几乎无法索引。当ACCESS里数据过万后,明显可以感觉
- 一、匿名块和命名块◆PL/SQL块分为良好总:命名块和匿名块。◆匿名块:以declare或begin开始,每次执行匿名块都要通过客户端工具将
- myisam_max_[extra]_sort_file_size足够大delay_key_write减少io,提高写入性能bulk_ins
- 在Windows环境下,经常遇到系统Over的情况,如果你在新装了系统和SQL Server 2005后,需要把SQL Server2000
- 1、卓越亚马逊的首页轮换图片,每刷新一次,都是随机不同的顺序显示,这样的设计解决了对于较多图片轮换而靠后的图片信息很少被看到的问题,这点对于
- 纯粹的截取字符串其实比较简单,用一个Left就搞定,但一个是全英文标题,一个是全中文标题,或中文混合排在一起,长短不一就很明显了,要考虑到中
- 经常会在连接DB的时候用到,就是不知道代表什么意思。。。RS.OPEN SQL,CONN,A,BA: ADOPENFORWARDONLY(=
- 当数据库服务器变得十分繁忙导致性能下降时,你会怎么办?购买更多的硬件升级你的服务器,还是重新考虑数据库服务器设计使得数据库平台具备良好的可升
- 1、新建DLL打开VB6-->文件-->新建工程-->选择ActiveX DLL-->确定2、将默认工程、类重命名工
- 原则:1. 我们测试的是产品可用性,不是使用者的个人能力2. 尽量不要打断用户的操作3. &
- 1引言实现磁带备份数据的功能有两方面的困难:首先,SQL Server(以下简称SQL)所提供的数据库的整体备份及恢复功能不能直接满足本系统
- Expires 属性 Expires 属性指定了在浏览器上缓冲存储的页距过期还有多少时间。如果用户在某个页过期之前又回到此页,就会显示缓冲区
- '================================================ '
- replace方法的语法是:stringObj.replace(rgExp, replaceText) 其中stringObj是字符串(st
- asp三天学好ADO对象之第一天 今天说一下Recordset 对象的属性1、CursorType 属性AdOpenForwardOnly:
- 今天将webserice里面的一个代码,拷到一个C#类,结果运行编译错误。DataBase = Server.MapPath("d
- 如何终止浏览器的 CAHCE 页面?Function Redirect( NewURL ) If&n
- 下面是用SA-FileUp组件上传一个HTML文件的程序:fileup.htm < HTM