default_middle1.asp

庐江二中

<%
'不分列
if rseof=1 then

for i=1 to RecordCount
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=1 and checked=1"
rs.open sql,conn,1,1
totalontop=rs.recordcount
rs.close
dim n
n=0
classurl="BigClass.asp?BigClassName="&BigClassName&"&BigClassType="&ArrayBigClassType(i)
msql=NoContent&" from News where BigClassName='" & BigClassName &"' and checked=1 "
%>
        <table cellspacing=0 cellpadding=0 width=98% border=0 align="center">
<%=TTitle("center_2","")%>
<tr>
            <td colspan="2" style="BORDER-LEFT: <%=CenterTColor%> 1px double; BORDER-BOTTOM: <%=CenterTColor%> 1px double" align=middle height=100 bgcolor="<%=centerccolor%>" background="<%=centercImg%>" valign="top"> 
              <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" style="TABLE-LAYOUT: fixed">
<%
if totalontop=0 then
Thissql="select top " & MaxNewsList & msql & " order by updatetime DESC"
showontop=""
call ClassTitle
end if
if totalontop>=MaxNewsList then
Thissql="select top " & MaxNewsList & msql & " and OnTop=1 order by updatetime DESC"
showontop="&nbsp;<img src=images/top.gif>"				
call ClassTitle			
end if		
if totalontop>0 and totalontop<MaxNewsList then
Thissql="select top " & totalontop & msql & " and OnTop=1 order by updatetime DESC"
showontop="&nbsp;<img src=images/top.gif>"
ClassTitle
Thissql="select top " & MaxNewsList-totalontop & msql & " and OnTop=0 order by updatetime DESC"
showontop=""				
call ClassTitle
end if							
'Response.Write "<tr><td colspan=""2"" align=""right""><a class=MainMore href='"&classurl&"'><img src=""images/more11.jpg"" width=""51"" height=""20"" border=""0"" alt=""更多文章""></a></td></tr>"
%>
</table>
</td>
</tr>
</table>
<br>
<%
end if

next
else
Response.Write "<center><b>尚　无　大　类</b></center>"
end if

sub ClassTitle
sql=Thissql
rs.open sql,conn,1,1
if not rs.EOF then
while not rs.EOF
n=n+1
if FenTitle=1 then
if n mod 2=1  then response.write "<tr>"
else
response.write "<tr>"
end if
Response.Write "<td style=""WORD-WRAP: break-word"">"
Response.Write shownewf
if FenTitle=1 then
Response.Write showTitle("MainContentS",20)&showImg
else
Response.Write showTitle("MainContentB",40)&showImg&showTime
end if
Response.Write showclick & showOntop 
'Response.Write shownew
Response.Write "</td>"
if FenTitle=1 then
if n mod 2=0  then response.write "</tr>"
else
response.write "</tr>"
end if
rs.MoveNext
wend
end if
rs.close
end sub
%>