帮帮我解决有关分栏目的疑问
我想把页面的右边的一栏分成两栏,怎么改动?拜托哪位高手告诉我,本人刚接触asp不久,对这个问题想了大半天都没能解决,谢谢!代码如下:
<td bgcolor="<%=CenterBgColor%>" align="center" valign="top">
<%
if rseof=1 then
for i=1 to 8
BigClassID=ArrayBigClassID(i)
BigClassName=ArrayBigClassName(i)
if ArrayBigClassView(i)=1 then
sql="select newsid from News where BigClassName='" & BigClassName &"' and checked=1"
rs.open sql,conn,1,1
totalNews=rs.recordcount
rs.close
sql="select newsid from News where BigClassName='" & BigClassName &"' and OnTop=true and checked=1"
rs.open sql,conn,1,1
totalontop=rs.recordcount
rs.close
%>
<table cellspacing=0 cellpadding=0 width=98% border=0 align="center">
<%InTable("middle2")%>
<tr>
<td height=17 background="images/bg7copy.gif" class=MainTitle>&nbsp;<%=BigClassName%></td>
<td height=17 background="images/bg7copy.gif" align="right">(共<%=totalNews%>条)&nbsp;</td>
</tr>
<%InTable("middle2")%>
<tr>
<td style="BORDER-LEFT: <%=CenterTColor%> 1px double; BORDER-BOTTOM: <%=CenterTColor%> 1px double"
align=middle height=100 bgcolor="<%=centerccolor%>" colspan="2">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" style="TABLE-LAYOUT: fixed">
<tr>
<td style="WORD-WRAP: break-word" class=MainContentS>
<%
classurl="BigClass.asp?BigClassID="&BigClassID&"&BigClassName="&BigClassName&"&BigClassType="&ArrayBigClassType(i)
msql=NoContent&" from News where BigClassName='" & BigClassName &"' and checked=1 "
if totalontop=0 then
Thissql="select top " & MaxNewsList & msql & " order by NewsID DESC"
showontop=""
ClassTitle
end if
if totalontop>=MaxNewsList then
Thissql="select top " & MaxNewsList & msql & " and OnTop=true order by NewsID DESC"
showontop="↑"
ClassTitle
end if
if totalontop>0 and totalontop<MaxNewsList then
Thissql="select top " & totalontop & msql & " and OnTop=true order by NewsID DESC"
showontop="↑"
ClassTitle
Thissql="select top " & MaxNewsList-totalontop & msql & " and OnTop=false order by NewsID DESC"
showontop=""
ClassTitle
end if
Response.Write "<table width=""100%""><tr><td align=""right""><a class=MainMore href='"&classurl&"'><img src=""images/gengduo.gif"" width=""40"" height=""12"" border=""0"" alt=""更多新闻""></a></td></tr></table>"
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
space(6)
end if
next
else
Response.Write "<center><b>还 没 有 大 类</b></center>"
end if
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td><!--#include file=gbookshow.asp--></td></tr>
<tr><td><!--#include file=GBookWrite.asp--></td></tr>
</table>
</td>