Question

帮帮忙，添加一个ASP 10个循环换行

<tr>
<td height="21" bgcolor="ffffcc"> 
<%
set rsbdq = Server.CreateObject("ADODB.Recordset")
sqlbdq = "Select * From mxdq order by id asc"
rsbdq.Open sqlbdq,Conn,1,1
if not rsbdq.EOF then
k=1
do while not rsbdq.EOF
%>
<a href="<% =gqwebdir%>list.asp?dq=<%=rsbdq("name")%>"><%=rsbdq("name")%></a> 
<%
rsbdq.MoveNext
k=k+1
loop
else
%>
<font color="#FF0000">对不起!没有相匹配的信息</font>...
<%
end if
rsbdq.close
set rsbdq = nothing
%>
</td>
</tr>

Answer 1

（略）……
k=1
'下面一行是新加的
dim groupSize: groupSize=10
do while not rsbdq.EOF
%>
<a href="<% =gqwebdir%>list.asp?dq=<%=rsbdq("name")%>"><%=rsbdq("name")%></a>
<%
rsbdq.MoveNext
'下面三行是新加的
if k >= 10 and (k mod groupSize) = 0 then
Response.write "<br/>"
end if
k=k+1
loop
（略）……

Answer 2

<%
'*ASP换行实例*
'*author saruri<saruri@163.com>
'*param text sql 执行的sql语句 不能为null
'*param int num 换行数 不能为null
'*date 2010 10 05
'*memo 今天打发时间手里没ASP环境 未测试
sub mes(message)
response.Write(message)
end sub
sub dataend()
rs.close
set rs = nothing
end sub

'数据输出过程 参数 sql语句 换行参数
sub dataload(sql,num)
if sql="" or num="" then
call mes("参数错误请检查!")
response.end()
end if
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,Conn,1,1
if not rs.EOF then
'call mes("scuess")
gqwebdir="/"'路径自己设置
k=1
do while not rs.EOF
call mes("<td height='21' bgcolor='ffffcc'> ")
call mes("<a href='"&gqwebdir&"list.asp?dq="&rs("name")&"'>"&rs("name")&"</a>")
call mes("</td>")
if k mod num=0 then
call mes("</tr><tr>")
end if
rs.MoveNext
k=k+1
loop
else
call mes("<tr><td height='21' bgcolor='ffffcc'> <font color='#FF0000'>对不起!没有相匹配的信息</font>...</td></tr> ")
end if

call dataend()
end sub

call dataload("Select * From mxdq ORDER BY id ASC",10)
%>