输出显示 有高手给改下

yymzzl yymzzl 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区

<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from "&GuTablePrefix&"_Sort order by SortID asc",conn,1,1
if err.number <> 0 then
response.write "数据库查询出错"
else
if rs.bof and rs.eof then
response.write "没有相关信息"
else
do while not rs.eof
%>


<TABLE style="BORDER-LEFT: #c8d8ef 1pt solid; BORDER-BOTTOM: #c8d8ef 1pt solid"
cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>

<TABLE style="BORDER-BOTTOM: #c8d8ef 1pt solid" cellSpacing=0
cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=137 background=newinc/lanmu_01.jpg
height=21>
<FONT color=#ffffff><B>  <%=rs("SortName")%></B></FONT></TD>
<TD align=right>
<a href="Sort.asp?SortID=<%=rs("SortID")%>" class="LightgrayV12">更多……</A>         </TD></TR></TBODY></TABLE>
</TD></TR>

<TR>
<TD>
<TABLE style="BORDER-RIGHT: #c8d8ef 1pt solid" cellSpacing=0
cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="5%"> </TD>

<TD vAlign=top>
<%
set SubRs=server.createobject("adodb.recordset")
ArticleTitleKB=23
SubRs.open "select top 8 "&GuTablePrefix&"_Article.ArticleID,"&GuTablePrefix&"_Article.ArticleTitle,"&GuTablePrefix&"_Article.SortID,"&GuTablePrefix&"_Article.AsSortID,"&GuTablePrefix&"_Article.ArticleShow,"&GuTablePrefix&"_Article.ArticleDate,"&GuTablePrefix&"_AsSort.AsSortName FROM "&GuTablePrefix&"_Article,"&GuTablePrefix&"_AsSort where "&GuTablePrefix&"_Article.ArticleShow='1' and "&GuTablePrefix&"_AsSort.SortID="&Rs("SortID")&" and "&GuTablePrefix&"_Article.SortID="&Rs("SortID")&" and "&GuTablePrefix&"_AsSort.AsSortID="&GuTablePrefix&"_Article.AsSortID order by "&GuTablePrefix&"_Article.ArticleDate desc,"&GuTablePrefix&"_Article.ArticleID desc",conn,1,1

if err.number <> 0 then
response.write "数据库查询出错"
else
if SubRs.bof and SubRs.eof then
response.write "没有相关信息"
else
do while not SubRs.eof
%>
<TABLE cellSpacing=1 cellPadding=1 width="100%" border=0>
<TBODY>
<TR>
<TD width="80%" height=20>· 
<A href="Read.asp?ID=<%=SubRs("ArticleID")%>" class="LightgrayV12" title="<%=SubRs("ArticleTitle")%>  <%=Subrs("ArticleDate")%>"><%=cutStr(Subrs("ArticleTitle"),ArticleTitleKB)%></A>

</TD>

<TD>
<font class="SilverV10">[<%=month(Subrs("ArticleDate"))%>-<%=day(Subrs("ArticleDate"))%>]</font>
</TD><br>

<%====================================================这里怎么改 才能显示出来我想要的表格 每个sort显示这样一个表格,显示一个后,换行显示另一个,这里实在是折腾不出来了 谢谢大家 !
SubRs.movenext
loop
end if
end if
SubRs.close
%>
================================================
</TR>

</TBODY></TABLE>
</TD></TR>
</TBODY></TABLE></TD>



</TR></TBODY></TABLE>

<%

end if
rs.close
%>

...全文
评论 6
收藏 已收藏
分享
返回顶部
yymzzl
ASP 28,401 成员 356,940 内容