标题: 问一下这种循环怎么循环 [打印本页] 作者: 爽口爽心 时间: 2010-1-7 05:35 标题: 问一下这种循环怎么循环 下面就是显示的专业名称的内容
请指教
附件: 只有本站会员才能下载或查看附件，请您 登录 或 注册作者: 祗↘爲.輝仔 时间: 2010-1-7 05:35
<TABLE width="99%" height="75"
border=0 align=center cellPadding=0 cellSpacing=2>
<TBODY>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select top 30 * from date where typename= '"&"试验报告"&"' order by dateandtime desc"
rs1.open sql1,conn,1,3
%>
<TR>
<%
Dim m
do while not rs1.bof and not rs1.eof
m = m + 1
%>
<TD width="3%" class=b12><div align="center">·</div></TD>
<TD height=19 colspan="2" width="47%"><span class="style33"><a href="/date/showwz/show.asp?id=<%=rs1("newsid")%>"
class="title_list" target="_blank"><%=left(rs1("title"),20)%></a></span> </TD>
<%
If m Mod 2 = 0 Then Response.Write("</tr><tr>")
rs1.movenext
loop
rs1.close
%>
</TR>