發信人: aaaaaaqaz.bbs@bbs.tku.edu.tw (氣死人的情人節)
日期: 30 Aug 2004 03:16:06 GMT
標題: Re: asp 程式如何修改∼顯示一排五格...
信群: tw.bbs.comp.www    看板: www
來源: <4E2YXj$8fO@bbs.tku.edu.tw>:26018, 
組織: 淡江大學 BBS


每行五欄, 不足五欄會自動補齊...
這是比較簡單的寫法...
想要修改(行數,欄數)的時候能更方便的話...
麻煩自己動一動吧~

<%
dim i, ii

ii = 1


response.write "<table border=1>"

for i = 0 to 25

        if ii = 1 then
                response.write "<tr>"
        end if
        response.write "<td> "& i &" </td>"
        if ii = 5 then
                response.write "</tr>"&vbCrLf
        end if

                if ii < 5 then
                ii = ii + 1
                else
                        ii = 1
                end if

next

if ii <> 5 then

        for i = ii to 5
                response.write "<td>　</td>"
        next

        response.write "</tr>"&vbCrLf

end if

response.write "</table>"
%>

--
※ 來源:•蛋捲廣場 bbs.tku.edu.tw•[FROM: 61.30.108.173]
.