标题:帮帮我解决有关分栏目的疑问
只看楼主
sunboywg
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-10-24
 问题点数:0 回复次数:1 
帮帮我解决有关分栏目的疑问
我想把页面的右边的一栏分成两栏,怎么改动?拜托哪位高手告诉我,本人刚接触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> <%=BigClassName%></td>
<td height=17 background="images/bg7copy.gif" align="right">(共<%=totalNews%>条) </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>
搜索更多相关主题的帖子: 疑问 栏目 
2005-10-24 18:43
sunboywg
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-10-24
得分:0 
请高手告诉我,我在线急等!!
2005-10-24 20:12



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-31252-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.090151 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved