default2.asp

庐江二中

<%
'option explicit
dim PageName
PageName="default"
%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
if FenTitle<>2 then
	conn.close
	set conn=nothing
	if FenTitle=0 or FenTitle=1 then
	Response.Redirect "default1.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
		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
		rs.MoveNext
		wend
		end if
		rs.close
		end sub
		
		else
		Response.Write "<center><b>尚　无　大　类</b></center>"
		end if
		
		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"-->