none
【ASP】如何使用数组获取循环后的变量 RRS feed

  • 问题

  • 代码如下:

    <%

    Dim arr  '此变量是全局的,作用是存储以下循环列表中的电话

    %>

            <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#99BBE8" style="margin-top:5px;">
              <tr style="background:url(Img/t_bg.gif);">
              <td width="2%" height="25" align="center"><input name="checkall" type="checkbox" value="" onClick="runatclient.checkall()" /></td>
                <td width="5%" align="center">姓名</td>
               <td width="5%" align="center">电话</td>
              </tr>
              <%
            Dim ors,scon
            scon = " 1=1 "
     
            
            Set ors=new Cls_vbsPage    '创建对象
            Set ors.Conn=conn        '得到数据库连接对象
            With ors
                .PageSize=13        '每页记录条数
                .PageName="Page"    'cookies名称
                .DbType="AC"
                .RecType=-1
                .JsUrl="Script/"        
                .Pkey="id"        
                .Field="[name],[phone]"
                .Table="Sk_NetRefer"
                .Condition=scon    
                .OrderBy="refertime desc"    
            End With
            iRecCount=ors.RecCount()'记录总数
            iRs=ors.ResultSet()        '返回ResultSet
            If  iRecCount<1 Then
              %>
              <tr>
                <td bgcolor="#FFFFFF" height="25" colspan="12" align="center">没有找到相关记录</td>
              </tr>
              <%
              Set iRs=nothing
            else
                For i=0 To Ubound(iRs,2)
              %>
              <tr >
                  <td height="25" align="center"><%=iRs(0,i)%></td>
                <td align="center"><%=iRs(1,i)%></td>  //<%=iRs(1,i)%>就是每次循环中的电话号码
              </tr>
              <%
                Next
                Set iRs=nothing
            End If
            conn.close
            set conn=nothing
            %>

     

    请问在之前我定义了一个全局变量arr如何才能把所有电话号码存储在其中呢?并且每个号码中间用逗号隔开。先谢谢了

     

    哦,我明白了,应该在 Next之前添加  如arr=<%iRs(1,i)%> 就可以了

     


    大连海参专卖 年底促销活动中 店铺地址:http://jinweb.taobao.com
    • 已移动 孟宪会Moderator 2010年12月21日 0:20 (发件人:.NET Framework 一般性问题讨论区)
    2010年12月20日 9:15

答案