談動(dòng)態(tài)多行多列，循環(huán)行和列，輸出M行N列的ASP代碼
更新時(shí)間：2008年03月03日 20:47:41 作者：
談動(dòng)態(tài)多行多列，循環(huán)行和列，輸出M行N列的ASP代碼
現(xiàn)在感覺(jué)真麻煩，下面這樣夠簡(jiǎn)單夠清楚了吧？
<%
Dim i, j, iCols
i = 0 '//定義i進(jìn)行循環(huán)
iCols = 3 '//一行有幾列(正整數(shù))
Response.Write("<table width=""100%"" border=""1"" cellspacing=""2"" cellpadding=""0""><tr>"&vbNewLine) '//輸出Table頭和第一個(gè)Tr
Do While Not oRs.EOF '//開(kāi)始輸出記錄集 用 For ors.RecordCount Next 也行
If i>0 And i Mod iCols = 0 Then Response.Write("</tr><tr>"&vbNewLine) '//如果列數(shù)等于 iCols 換行
i = i + 1
Response.Write("<td width="""&FormatPercent(1 / iCols, 0)&""">輸出第 "&i&" 條記錄</td>"&vbNewLine)
oRs.MoveNext
Loop '//結(jié)束輸出記錄集
oRs.Close
For j = 1 To iCols -1 '//開(kāi)始補(bǔ)足空記錄,最多補(bǔ)iCols-1條
If i Mod iCols = 0 Then Exit For '//列數(shù)已經(jīng)夠 iCols 不再輸出
i = i + 1
Response.Write("<td width="""&FormatPercent(1 / iCols, 0)&""">補(bǔ)足第 "&j&" 條記錄</td>"&vbNewLine)
Next
Response.Write("</tr></table>"&vbNewLine) '//輸出Table尾
%>
復(fù)制代碼 代碼如下:
<%
Dim i, j, iCols
i = 0 '//定義i進(jìn)行循環(huán)
iCols = 3 '//一行有幾列(正整數(shù))
Response.Write("<table width=""100%"" border=""1"" cellspacing=""2"" cellpadding=""0""><tr>"&vbNewLine) '//輸出Table頭和第一個(gè)Tr
Do While Not oRs.EOF '//開(kāi)始輸出記錄集 用 For ors.RecordCount Next 也行
If i>0 And i Mod iCols = 0 Then Response.Write("</tr><tr>"&vbNewLine) '//如果列數(shù)等于 iCols 換行
i = i + 1
Response.Write("<td width="""&FormatPercent(1 / iCols, 0)&""">輸出第 "&i&" 條記錄</td>"&vbNewLine)
oRs.MoveNext
Loop '//結(jié)束輸出記錄集
oRs.Close
For j = 1 To iCols -1 '//開(kāi)始補(bǔ)足空記錄,最多補(bǔ)iCols-1條
If i Mod iCols = 0 Then Exit For '//列數(shù)已經(jīng)夠 iCols 不再輸出
i = i + 1
Response.Write("<td width="""&FormatPercent(1 / iCols, 0)&""">補(bǔ)足第 "&j&" 條記錄</td>"&vbNewLine)
Next
Response.Write("</tr></table>"&vbNewLine) '//輸出Table尾
%>
相關(guān)文章
這篇文章主要介紹了chat.asp聊天程序的編寫(xiě)方法，非常簡(jiǎn)單的 ASP WEB 聊天室程序，你會(huì)發(fā)覺(jué)寫(xiě)聊天室原來(lái)是一件這么容易、輕松的事，感興趣的小伙伴們可以參考一下2015-10-10
asp 關(guān)鍵詞字符串分割如何實(shí)現(xiàn)方法
asp 關(guān)鍵詞字符串分割如何實(shí)現(xiàn)方法...2007-11-11
asp中去除html中style,javascript,css代碼
剔除頁(yè)面中html中除文字以外的任何代碼，剛才發(fā)布了php版這個(gè)是ASP中的版本。2010-10-10
支持加號(hào)空格的查詢...2006-08-08
ASP智能搜索的實(shí)現(xiàn)...2006-08-08
一些Asp技巧和實(shí)用解決方法...2007-11-11
實(shí)現(xiàn)UTF8轉(zhuǎn)換GB2312國(guó)標(biāo)碼的asp代碼
ASP來(lái)實(shí)現(xiàn)UTF8轉(zhuǎn)換GB2312國(guó)標(biāo)碼-GB2312轉(zhuǎn)UTF-8,需要的朋友可以參考下。2010-04-04
Wrance的圖片系統(tǒng)目錄直讀版1.0...2006-12-12
將首頁(yè)轉(zhuǎn)成靜態(tài)html頁(yè)的asp文件
將首頁(yè)轉(zhuǎn)成靜態(tài)html頁(yè)的asp文件...2007-03-03
網(wǎng)站開(kāi)發(fā)防止中文亂碼需要了解的codepage的重要性小結(jié)
這幾天研究UTF-8編碼，太暈了，把我的看法和各位討論討論。 歡迎來(lái)批啊。以下都是我的想法，哪里有不對(duì)的請(qǐng)不吝賜教，幫忙指出來(lái)。2010-06-06