hotimg.asp

庐江二中

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

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

if Request("List")<>"" then MaxImgList=Request("List")	'调用张数参数：List=整数，空置则调用首页设置

if BigClassName<>"" then IfClass=" BigClassName='"&BigClassName&"' and "
if SmallClassName<>"" then IfClass=" BigClassName='"&BigClassName&"' and SmallClassName='"&SmallClassName&"' and "
if SpecialName<>"" then IfClass=" SpecialName='"&SpecialName&"' and "
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,"热门图片排行")

sql="select top " & MaxImgList & " newsid,title,image from News where "& IfClass &" image>0 and hot=1 and checked=1 order by NewsID DESC"
rs.open sql,conn,1,1
if not rs.EOF then
while not rs.EOF
title=rs(1)
dim imgheight
imgheight=""

javastr=javastr+"<tr><td align=center>"
javastr=javastr+"<table width=100% border=0 cellspacing=0 cellpadding=5 style=""TABLE-LAYOUT: fixed""><tr><td align=center>"

if ShowImgTop<>2 then
	javastr=javastr+ImageFile(rs(0),1,120,0)
	javastr=javastr+"</td></tr>"
	javastr=javastr+"<tr><td style=""WORD-WRAP: break-word""><a class=""RightContent"" href="""&NewsUrl&""" target=""_blank"">"&title&"</a></td></tr>"
else
	javastr=javastr+"<table border=0 cellspacing=5 cellpadding=0 align=left><tr><td style=""WORD-WRAP: break-word"">"&ImageFile(rs(0),1,50,0)&"</td></tr></table>"
	javastr=javastr+"<div align=left><a class="&TitleClass&" href="""&NewsUrl&""" target=""_blank"">"&title&"</a></div>"
end if

javastr=javastr+"</td></tr></table>"
javastr=javastr+"</td></tr>"
rs.MoveNext
wend

javastr=javastr+"<tr><td align=right height=20><a href=""ImageList.asp""><img src=""images/more9.gif"" border=0 alt=""更多图片""></a>&nbsp;</td></tr>"
else
javastr=javastr+"<tr><td width=100% align=center height=60>尚无热门图片</td></tr>"
end if
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
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>