控製表格的行列來顯示資料

來源:互聯網
上載者:User
控制|資料|顯示

很多時候,我們在顯示資料庫的內容時,會用到幾行或幾列來顯示資料,如10條資料,要以每行2列或3列形式顯示。

  下面是一個使用數組以表格顯示幾行幾列的簡單的示列代碼,希望對您有所協助。

dimwwwstr,wwwarr
wwwstr="51windows.Net|blueidea.com|google.com|yahoo.com|msn.com.cn|csdn.net|ipark.cn|1kg.cn"
wwwarr=split(wwwstr,"|")

functionurltest1(str)
 Response.write("<ahref=""."&str&"""target=""_blank"">"&str&"</a>")
endfunction

<tableborder="1"width="480"cellpadding="2">
<%calltablebody(wwwarr,3,"urltest1")%>
</table>

函數代碼:

functiontablebody(arr,cols,functionstr)
 'arr為數組
 'cols為列數
 'functionstr為輸出內容用的function,沒有為空白

 dimallnum,i,j
 allnum=ubound(arr)
 fori=0to(allnum/cols)
  Response.write(VbTab&"<tr>"&VbNewLine)
  forj=0to(cols-1)
   ij=(i*cols+j)
   Response.write(VbTab&VbTab&"<tdwidth="""&formatnumber(100/cols,0)&"%"">")
   ifij<=allnumthen
    iflen(functionstr)>0then
     execute(""&functionstr&"(arr(ij))")
    else
     Response.write(arr(ij))
    endif
   else
    Response.write(" ")
   endif
   Response.write("</td>"&VbNewLine)
  next
  Response.write(VbTab&"</tr>"&VbNewLine)
 next
endfunction

functiontest1(str)
 Response.write("<divalign=""center"">"&str&"</div>")
endfunction



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。