default1.asp

庐江二中

<%
'option explicit
dim PageName
PageName="default"
%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
if FenTitle<>0 or FenTitle<>1 then
	conn.close
	set conn=nothing
	if FenTitle=2 then
	Response.Redirect "default2.asp"
	else
	Response.Redirect "default3.asp"
	end if
end if
%>
<!--#include file="function.asp"-->
<!--#include file="top.asp"-->
<%
sql="select win_width,win_height from announce where popup=1 and ischecked=1"
rs.open sql,conn,1,1
if not rs.eof then
%>
<SCRIPT LANGUAGE="javascript"> 
<!-- 
window.open ('popup.asp', 'newwindow', 'height=<%=rs(0)%>, width=<%=rs(1)%>, top=0, left=0, toolbar=no, menubar=no, scrollbars=no, resizable=yes,location=no, status=no') 
--> 
</SCRIPT> 
<%
end if
rs.close

if ShowNewImg=1 then%><script language=javascript src="showimg.asp"></script><%end if%>
<!--主栏开始-->
<table width="<%=TableWidth%>" border=0 cellspacing=0 cellpadding=0 height=338>
  <tr>
  	<%=OutTable("left")%>
	<td bgcolor="<%=LeftBgColor%>" width="160" align="center" valign="top">	  
	<!--#include file="default_left.asp"-->
	</td>
	<%=InTable("left")%>
	<td bgcolor="<%=CenterBgColor%>" align=center valign=top>
		<%dim totalontop,classurl,msql,thissql,showontop
		
dim boardcontent
%>
<script language=javascript src="TodayNews.asp"></script>
<%if showFocusNews=1 then%><script language=javascript src="FocusNews.asp"></script><%end if

'不分列
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>
<%
response.write space(THeight)
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

if ShowNavigate=1 then%><script language=javascript src="navigate.asp"></script><%end if
if ShowGBook=1 then%><script language=javascript src="gbookshow.asp?cols=61"></script><%end if%>
</td>

<TD bgcolor="<%=RightLColor%>" background="<%=RightLImg%>" WIDTH=1></TD><td bgcolor="<%=RightBgColor%>" width=160 valign=top>
<%if ShowAnnounce=1 then%><!--#include file="announce.asp"--><%end if%>
<script language=javascript src="goodnews.asp"></script>
<script language=javascript src="hotimg.asp"></script>
<%if ShowGoodSite=1 then%><!--#include file="showgoodsite.asp"--><%end if%>
<table width=100% border=0 cellspacing=0 cellpadding=0 height="100%"><tr><td bgcolor="<%=RightCColor%>"  background="<%=RightCImg%>" height="100%"></td></tr></table>
	</td>
	<%=OutTable("right")%>
	</tr>
</table>
<!--主栏结束-->
<%if ShowFriendSite=1 then%><script language=javascript src="friendsite.asp"></script><%end if

sub ClassTitle2
	dim maxlen
	maxlen=28
	if showClassImg=1 and picid<>0 then	maxlen=maxlen-6
	sql=Thissql
	rs.open sql,conn,1,1
	if not rs.EOF then
		while not rs.EOF
		response.write Shownewf
		if showOntop<>"" then maxlen=maxlen-2
		if rs("image")>0 then maxlen=maxlen-4
		response.write ShowTitle("MainContentS",maxlen)
		response.write ShowImg
		response.write ShowTime
		response.write Showclick
		Response.Write showOntop
		Response.Write "<br>"
		rs.MoveNext
		wend
	end if
	rs.close
end sub

set rs=nothing%>
<!--#include file="copyright.asp"-->