default_middle2.asp

庐江二中

<%
'标题分列
if rseof=1 then
dim tr
tr=0
Response.Write "<table cellspacing=0 cellpadding=0 width=98% border=0 align=center>"
for i=1 to RecordCount
BigClassName=ArrayBigClassName(i)
if ArrayBigClassView(i)=1 then
tr=tr+1
dim totalNews
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
classurl="BigClass.asp?BigClassName="&BigClassName&"&BigClassType="&ArrayBigClassType(i)
if tr mod 2=1 then response.write "<tr>"
Response.Write "<td valign=top width=50% ><table cellspacing=0 cellpadding=0 border=0 align=center width=97% style=""BORDER-LEFT: "&CenterTColor&" 1px double; "">"
Response.Write TTitle("center_2","")
Response.Write "<tr><td style=""BORDER-BOTTOM: "&CenterTColor&" 1px double"" align=middle valign=top height=100 bgcolor="""&centerCColor&""" background="""&CenterCImg&""" colspan=2><table width=98% border=0 align=right cellpadding=0 cellspacing=0><tr><td style=""WORD-WRAP: break-word"" class=MainContentS>"

msql=NoContent&" from News where BigClassName='" & BigClassName &"' and checked=1 "
if totalontop=0 then
Thissql="select top " & MaxNewsList & msql & " order by updatetime DESC"
showontop=""
call ClassTitle4
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 ClassTitle4			
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>"
call ClassTitle4
Thissql="select top " & MaxNewsList-totalontop & msql & " and OnTop=0 order by updatetime DESC"
showontop=""				
call ClassTitle4
end if							
Response.Write "</td></tr></table></td></tr></table><br></td>"

if tr mod 2=0  then 
	response.write "</tr>"
else
	if i=RecordCount then response.write "</tr>"
end if	
if tr=4 then
Response.Write "<tr><td colspan=2 valign=middle align=center><script src=""Ad.asp?add=首页中一""></script></td></tr>"
end if
end if
next
Response.Write "</table>"

sub ClassTitle4
sql=Thissql
rs.open sql,conn,1,1
if not rs.EOF then
while not rs.EOF
response.write Shownewf
response.write ShowTitle("MainContentS",22)
'response.write ShowImg
response.write ShowTime
'Response.Write showclick & showOntop
Response.Write "<br>"
rs.MoveNext
wend
end if
rs.close
end sub

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