解析Asp實現Dig程序中的投票(3)_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:解析如何過濾不文明字符
      % Function badchar(str) badstr=不文明字符列表,用|分開(因發表時不能含有那些字符,所以不能貼出。) badword=split(badstr,|) For i=0 to Ubound(badword) If instr(str,badword(i)) 0 then badchar=True Exit For Else badchar=False End If Next


      js代碼:

      var http_request = false;
      function send_request(url,votei) {//初始化、指定處理函數、發送請求的函數
      http_request = false;
      //開始初始化XMLHttpRequest對象
      if(window.XMLHttpRequest) { //Mozilla 瀏覽器
      http_request = new XMLHttpRequest();
      if (http_request.overrideMimeType) {//設置MiME類別
      http_request.overrideMimeType('text/xml');
      }
      }
      else if (window.ActiveXObject) { // IE瀏覽器
      try {
      http_request = new ActiveXObject("Msxml2.XMLHTTP");
      } catch (e) {
      try {
      http_request = new ActiveXObject("Microsoft.XMLHTTP");
      } catch (e) {}
      }
      }
      if (!http_request) { // 異常,創建對象實例失敗
      window.alert("不能創建XMLHttpRequest對象實例.");
      return false;
      }

      http_request.onreadystatechange = function(){processRequest(votei)};

      // 確定發送請求的方式和URL以及是否同步執行下段代碼
      http_request.open("post", url, true);
      http_request.send(null);

      }
      // 處理返回信息的函數
      function processRequest(votei) {
      if (http_request.readyState == 4) { // 判斷對象狀態
      if (http_request.status == 200) { // 信息已經成功返回,開始處理信息
      //alert(http_request.responseText);

      document.getElementById('result_'+votei).innerHTML=http_request.responseText;;
      document.getElementById('result_link_'+votei).innerHTML = "投票成功";

      } else { //頁面不正常
      alert("您所請求的頁面有異常。");
      }
      }
      }
      function dovote(votei)
      {
      var votei=votei;
      send_request('/voteResult.asp?id='+escape(votei),votei);
      }

      function getObj(objName){return(document.getElementById(objName));}

       

      分享:ASP調用純真IP庫實例
      % ' ============================================ ' 返回IP信息 Disp_IPAddressData(IP,0) ' ============================================ Function Look_Ip(IP) Dim Wry, IPType, QQWryVersion, IpCounter ' 設置類對象 Set Wry = New TQQWry ' 開始搜

      共3頁上一頁123下一頁
      來源:模板無憂//所屬分類:ASP教程/更新時間:2010-05-31
      相關ASP教程