国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > JavaScript > 正文

用ajax實現的自動投票的代碼

2019-11-21 02:12:37
字體:
來源:轉載
供稿:網友
一朋友委托我幫他投票,地址在:
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>


[Ctrl+A 全選 注:如需引入外部Js需刷新才能執行]
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 绵阳市| 高邮市| 巫山县| 博湖县| 海原县| 敦化市| 商南县| 南漳县| 长春市| 华蓥市| 全南县| 三台县| 洮南市| 灯塔市| 蓝山县| 鹿邑县| 扶沟县| 满洲里市| 泰宁县| 灵石县| 邯郸市| 保亭| 梅州市| 新民市| 兴山县| 湄潭县| 上思县| 南投市| 济阳县| 金昌市| 天峻县| 元江| 武功县| 芷江| 竹北市| 洛川县| 龙海市| 三台县| 龙井市| 巧家县| 商河县|