發信人: orangy@kkcity.com.tw ()
日期: 30 Aug 2004 14:43:05 GMT
標題: Re: asp 程式如何修改∼顯示一排五格...
信群: tw.bbs.comp.www    看板: TWBBS/www/A10J6F7P
來源: <4E34lf$JCx@bbs.kkcity.com.tw>:26053, bbs.kkcity.com.tw
組織: KKCITY

※ 引述《boom.bbs@bbs.yuntech.edu.tw (boom)》之銘言：
> > <%
> >   dim i
> >   for i = 0 to 4
> >     me.response.write("<td><input name=""carno(" & i & ")"" ty
> >     pe=""text"" size=""10""></td>") <!--這行太長自己連接-->
> >   next
> > %>
> 謝謝您!!
> 如果原程式不變..只想改為一行五筆資料輸入..(程式預設值 20筆 0-19)
> 我要讓程式 一行為五筆資料輸入變數
>          <% for i = 0 to 19 %>
>         <tr align=center>
>           <td><input name="carno(<%=i%>)" type="text" size="10"></td>
>         </tr>
>          <% next %>

<%
Dim i, flag
Response.Write("<table align=""center"" border=""1"">")
For i = 0 To 17
  If i Mod 5 = 0 Then
    Response.Write("<tr>")
    flag = 0
  End If
Response.Write("<td><input name=""carno"""&i&" type=""text""size=""10""></td>")
  flag += 1
  If flag = 5 Then
    Response.Write("</tr>")
  End If
Next
Response.Write("</table>")
%>

試試看吧...
--
┌─────◆ＫＫＣＩＴＹ◆─────┐☆瀏覽、搜尋 屬於您的 數十萬首音樂☆[
│         bbs.kkcity.com.tw          │●○●發現、分享您的音樂新體驗●○●
└──《From:218.168.219.146    》──┘--＊＊KKBOX可立刻聽 免費試用中＊＊--
.