default3.asp

庐江二中

<%
'option explicit
dim PageName
PageName="default"
%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
if FenTitle<>3 then
	conn.close
	set conn=nothing
	if FenTitle=0 or FenTitle=1 then
	Response.Redirect "default1.asp"
	else
	Response.Redirect "default2.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 Response.write "<script language=javascript src=""showimg.asp""></script>"
%>
<!--主栏开始-->
<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 align=center valign=top bgcolor="<%=CenterBgColor%>"> 
        <%dim totalontop,classurl,msql,thissql,showontop%>
		<table width=100% border=0 cellspacing=0 cellpadding=0>
		<tr>
		<td valign=top>
						<script language=javascript src="TodayNews2.asp"></script>
		</td>
		<%=InTable("right")%>
		<td align=center width=160 valign=top>
			<%if ShowAnnounce=1 then%><!--#include file=announce.asp--><%end if%>
			<table width="98%" border="0" align="center" valign=middle cellpadding="0" cellspacing="5">
			<tr><td align="center"><script src="ad.asp?add=右上一"></script></td></tr>
			<tr><td align="center"><script src="ad.asp?add=右上二"></script></td></tr>
			<tr><td align="center"><script src="ad.asp?add=右上三"></script></td></tr>
			</table>
		</td>
		</tr>
		</table>
		<%if rseof=1 then
		tr=0
		%>
        <table cellspacing=0 cellpadding=0 width=100% border=0 align=center>
		<%
		for i=1 to RecordCount
		BigClassName=ArrayBigClassName(i)
		if ArrayBigClassView(i)=1 then
			tr=tr+1
			sql="select newsid from News where BigClassName='" & BigClassName &"' and checked=1"
			rs.open sql,conn,1,1
			totalNews=rs.recordcount
			rs.close
			
			sql="select top 1 newsid,model from News where BigClassName='" & BigClassName &"' and checked=1 and image>0 order by updatetime desc"
			rs.open sql,conn,1,1
			if not rs.eof then
				dim model
				model=rs("model")
				dim picid
				picid=rs("newsid")
			else
				picid=0
			end if
			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 %>
			<tr>
			<%end if%>
			<td valign=top width=50% >
				<table cellspacing=0 cellpadding=0 border=0 align=center width=95% style="BORDER-LEFT: <%=CenterTColor%> 1px double; BORDER-BOTTOM: "&CenterTColor&" 1px double" bgcolor="<%=centerccolor%>" background="<%=CenterCImg%>">
				<%=TTitle("center_2",BigClassName)%>
				<tr>
				<td align=middle valign=top height=100>
					<table width=100% border=0 align=right cellpadding=0 cellspacing=4>
					<tr>
					<%if showClassImg=1 and picid<>0 then %>
					<td align=middle valign=top height=100 width=18% >
					<%=imagefile(picID,1,40,50)%>
					</td>
					<%end if%>
					<td valign=top 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 ClassTitle2
					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 ClassTitle2			
					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 ClassTitle2
						Thissql="select top " & MaxNewsList-totalontop & msql & " and OnTop=0 order by updatetime DESC"
						showontop=""				
						call ClassTitle2
					end if%>							
					</td>
					</tr>
					</table>
				</td>
				</tr>
				</table>
				<br>
			</td>			
			<%if tr mod 2=0 or i=RecordCount then%>
			</tr>
			<%end if
			
			if tr=4 then%>
			<tr><td colspan=2 valign=middle align=center><script src="Ad.asp?add=首页中右"></script><br><br></td></tr>
			<%end if			
		end if		
	next
	%></table><%
else
	%><center><b>尚　无　大　类</b></center><%
end if
%>
	
	<table width=100% border=0 cellspacing=0 cellpadding=2 align=center>
	<tr>
	<td>
	<%
	if ShowNavigate=1 then Response.write "<script language=javascript src=""navigate.asp""></script>"
	if ShowGBook=1 then Response.write "<script language=javascript src=""gbookshow.asp?cols=85""></script>"
	%>
	</td>
	</tr>
	</table>
	
	</td>
	<%=OutTable("right")%>
	</tr>
</table>
<!--主栏结束-->
<%if ShowFriendSite=1 then Response.write "<script language=javascript src=""friendsite.asp""></script>"

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"-->