|
|
<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>
</TBODY>
</TABLE>
你参考一下,自己写出来的才会记的更深. |
|
IP卡
狗仔卡
发表于 2010-1-7 05:35:03
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡