goodnews.asp

庐江二中

<!--#include file="conn.asp" -->
<!--#include file="const.asp"-->
<%
if ShowGoodNews=1 then
%>
<!--#include file="function.asp" -->
<%
dim BigClassName,SmallClassName,SpecialName,IfClass,IfTxt,IfTime,javastr,site
BigClassName=Request("BigClassName")
SmallClassName=Request("SmallClassName")
SpecialName=Request("SpecialName")

'所在位置，右栏不用设，左栏使用参数：site=left
if Request("site")="" then
	site="right"
else
	site="left"
end if

if BigClassName<>"" then IfClass=" BigClassName='"&BigClassName&"' and "
if SmallClassName<>"" then IfClass=" SmallClassName='"&SmallClassName&"' and "
if BigClassName<>"" and SmallClassName<>"" then IfClass=" BigClassName='"&BigClassName&"' and SmallClassName='"&SmallClassName&"' and "
if SpecialName<>"" then IfClass=" SpecialName='"&SpecialName&"' and "

sql="select top "&MaxGoodNewsList & NoContent &" from News where "&ifclass&" goodnews=1 and checked=1 order by NewsID DESC"
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
dim CImg,CColor,TitleClass
if site="right" then
	CImg=RightCImg
	CColor=RightCColor
	TitleClass=RightContent
else
	CImg=LeftCImg	
	CColor=LeftCColor
	TitleClass=LeftContent
end if
javastr=""
javastr=javastr+"<table border=0 cellspacing=0 cellpadding=0 width=100% align=center bgcolor="&CColor&" background="""&CImg&""">"
javastr=javastr+TTitle(site,"推荐文章")
javastr=javastr+"<tr><td><table width=95% border=0 cellspacing=0 cellpadding=0 style=""TABLE-LAYOUT: fixed"" align=center>"

i=1
do while not rs.eof
javastr=javastr+"<tr><td class="&TitleClass&" valign=top width=8>-</td><td class="&TitleClass&" style=""WORD-WRAP: break-word"">"
javastr=javastr+showTitle(TitleClass,44)
javastr=javastr+showImg
javastr=javastr+"<br></td></tr>"

i=i+1
if i>MaxGoodNewsList then exit do		
rs.movenext
loop

javastr=javastr+"</table></td></tr>"
javastr=javastr+"<tr><td align=right height=20><a href=""GoodNewsList.asp""><img src=""images/more9.gif"" border=0 alt=""更多推荐""></a>&nbsp;</td></tr>"
if site="right" then 
	javastr=javastr+InTable("bottomr")
else
	javastr=javastr+InTable("bottoml")
end if
javastr=javastr+"</table>"
response.write ("document.write('"&javastr&"')")
response.end

end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>