• <em id="52tge"><object id="52tge"><blockquote id="52tge"></blockquote></object></em>

  • <progress id="52tge"></progress>
      
      
      <tbody id="52tge"><pre id="52tge"></pre></tbody>
      <em id="52tge"></em>
      <li id="52tge"><acronym id="52tge"><u id="52tge"></u></acronym></li>

      <nav id="52tge"><sub id="52tge"><noframes id="52tge"></noframes></sub></nav>

      網站地圖 | RSS訂閱 老鐵博客 - 上海SEO優化|上海網站建設|蜘蛛池出租|站群代搭建
      你的位置:首頁 ? ASP程序 ? 正文

      ASP實現表格隔行換色函數

      2015-12-30 11:3:43 | 作者:老鐵SEO | 0個評論 | 人瀏覽

      <%
      'ASP實現表格隔行換色函數【凌陳亮(QQ:57404811)】
      '參數:i,當前行號(只能為整數);colors,顏色集合(值可為16進制顏色值,也可為標準顏色英文單詞,各顏色值之間用"|"符號隔開)

      '可實現2、3、4等無限個顏色交替
      function getbgcolor(i,colors)
       dim f_return
       if checknum(1,0,i,"","")=1 then
        i=clng(i)
       else
        i=0
       end if
       if len(colors)>0 then
        dim f_colors_arr '定義接收參數colors的顏色樣式的數組
        dim f_colors_arr_ubound '定義接收參數colors的顏色個數的變量
        f_colors_arr=split(colors,"|",-1,1) '將所有顏色樣式傳給數組
        f_colors_arr_ubound=ubound(f_colors_arr,1) '獲取數組的上標
        '循環數組的每一個元素
        dim f_i '定義循環數組元素變量
        dim f_mod '定義行號除以顏色個數的余數的變量
        for f_i=0 to f_colors_arr_ubound
         f_mod=i mod (f_colors_arr_ubound+1)
         if f_mod=0 then
          f_return=f_colors_arr(f_colors_arr_ubound)
         else
          f_return=f_colors_arr(f_mod-1)
         end if
        next
       end if
       getbgcolor=f_return
      end function

      '判斷字符串是否為數值型或全數字【凌陳亮(QQ:57404811)】
      '參數:返回類型(0:返回提示信息,其它:返回值),驗證類型(0:數值型驗證,其它:全數字不包括小數點驗證),驗證字符串,提示信息,跳轉頁面地址
      function checknum(typ,typ2,str,msg,url)
       dim f_return : f_return=0 'false
       if len(str)<1 or isnumeric(str)=false then
        if typ=0 then call alert(msg,url)
       end if
       if typ2=0 then '數值型驗證
        if len(str)>0 and isnumeric(str)=true and typ<>0 then f_return=1 'true
       else '全數字不包括小數點驗證
        if len(str)>0 and isnumeric(str)=true then
         dim re : set re=New RegExp '建立正則表達式
         re.Pattern="\D" '設置模式,即建立正則式規則
         re.Global=False '設置全局可用性
         re.Ignorecase=True '設置是否區分字符大小寫
         re.MultiLine=False '設置多行標記可用性
         if re.test(str)=true then '執行搜索測試
          if typ=0 then call alert(msg,url)
         else
          if typ<>0 then f_return=1 'true
         end if
        end if
       end if
       if typ<>0 then checknum=f_return
      end function

      sub alert(msg,url)
       response.write("<script type=""text/javascript"">") & vbcrlf
       response.write("<!--//") & vbcrlf
       response.write("window.alert("""& msg &""");") & vbcrlf
       response.write("window.location.href="""& url &""";") & vbcrlf
       response.write("//-->") & vbcrlf
       response.write("</script>") & vbcrlf
       response.end()
      end sub
      %>


      調用案例:
      <%
      ......
      dim i : i=0
      do while rs.bof=false and rs.eof=false and i<rs.pagesize
       i=i+1
      %>
       <tr bgcolor="<%=getbgcolor(i,"|#EAF4F7")%>">
         <td>......</td>
         <td>......</td>
       </tr>


      表格隔行換色(2個顏色)效果圖如下:

      表格隔行換色(3個顏色)效果圖如下:


      表格隔行換色(4個顏色)效果圖如下:

    1. 本文來自: 老鐵博客,轉載請保留出處!歡迎發表您的評論
    2. 相關標簽:獲取字符串  隔行換色  
    3. 已有0位網友發表了一針見血的評論,你還等什么?

      必填

      選填

      記住我,下次回復時不用重新輸入個人信息

      必填,不填不讓過哦,嘻嘻。

      ◎歡迎參與討論,請在這里發表您的看法、交流您的觀點。

      色情激情片日本大全|亚洲无码色情gif|六人行成人版第九影院|亚洲成人电影理论电影

    4. <em id="52tge"><object id="52tge"><blockquote id="52tge"></blockquote></object></em>

    5. <progress id="52tge"></progress>
        
        
        <tbody id="52tge"><pre id="52tge"></pre></tbody>
        <em id="52tge"></em>
        <li id="52tge"><acronym id="52tge"><u id="52tge"></u></acronym></li>

        <nav id="52tge"><sub id="52tge"><noframes id="52tge"></noframes></sub></nav>