hottxt.asp

庐江二中

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

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

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

if ShowTxtTop="txt" then IfTxt=" image=0 and "

if MaxTxtListDate>0 then
	if database=1 then
		IfTime=" DateDiff(dd,updatetime,getDate())<="&MaxTxtListDate&" and "
	else
		IfTime=" DateDiff('d',updatetime,Date())<="&MaxTxtListDate&" and "
	end if
end if
	
sql="select top " & MaxTxtList & " NewsID,Title,model,UpdateTime,image,click from News where "& IfClass & IfTxt & IfTime &" checked=1 order by click DESC"
rs.open sql,conn,1,1
if not 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% bgcolor="&CColor&" align=center background="""&CImg&""">"
javastr=javastr+TTitle(site,"热门信息排行")
javastr=javastr+"<tr><td><table width=95% border=0 cellspacing=0 cellpadding=0 align=center style=""TABLE-LAYOUT: fixed"">"
i=1
do while not rs.eof
javastr=javastr+"<tr><td class="&TitleClass&" valign=top width=8>-</td><td style=""WORD-WRAP: break-word"">"
javastr=javastr+showTitle(TitleClass,18)
javastr=javastr+showClick
javastr=javastr+"<br></td></tr>"
i=i+1
if i>MaxTxtList then
exit do
end if
rs.movenext
loop

javastr=javastr+"</table></td></tr>"
javastr=javastr+"<tr><td align=right height=20><a href=""HottxtList.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
set rs=nothing
conn.close
set conn=nothing
%>