default_right2.asp

庐江二中

<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td valign=top>
    <script language=javascript src="TodayNews2.asp"></script>
    <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5" valign=middle>
              <td align="center"><script src="ad.asp?add=%CA%D7%D2%B3%C9%CF"></script></td>
          </table> </td>
	<%=InTable("right")%>
	<td align=center width=160 valign=top>
	<%if ShowAnnounce=1 then%><!--#include file=announce.asp--><%end if%>
<!--下面是添加论坛登陆入口-->
<!--#include file=bbslogin.asp-->


</td>

<%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,75,60)%>
				</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 then %></tr><%else
				if i=RecordCount then response.write "</tr>"
			end if
			if tr=4 then %><tr><td colspan=2 valign=middle align=center><script src="Ad.asp?add=%CA%D7%D2%B3%D6%D0"></script>
        <br><br></td></tr><%end if			
		end if
		if tr=8 then %><tr><td colspan=2 valign=middle align=center><script src="Ad.asp?add=%CA%D7%D2%B3%CF%C2"></script>
        <br><br></td></tr><%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 %><script language=javascript src="navigate.asp"></script><%end if%>
<%if ShowGBook=1 then %><script language=javascript src="gbookshow.asp?cols=85"></script><%end if%>
</td></tr></table>!-->
<%
sub ClassTitle2
	dim maxlen
	maxlen=26
	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-0
		if rs("image")>0 then maxlen=maxlen-0
		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
%>