focusnews.asp

庐江二中

<!--#include file="conn.asp" -->
<!--#include file="const.asp"-->
<!--#include file="function.asp" -->
<%
dim javastr,i
javastr=""
javastr="<table width=98% border=0 align=center cellspacing=0 cellpadding=0 bgcolor="&CenterBColor&" height=100>"
javastr=javastr&TTitle("center_12","焦点文章")
javastr=javastr&"<tr><td bgcolor="""&CenterCColor&""" background="""&CenterCImg&"""><table width=100% border=0 cellspacing=0 cellpadding=3><tr>"
sql="select top 1 * from News where (image>0 and FocusNews=1 and checked=1) order by NewsID DESC"
rs.open sql,conn,1,1
if not rs.EOF then
javastr=javastr&"<td align=center width=120 valign=bottom>"
javastr=javastr&imagefile(rs("NewsID"),1,108,80) &"<br><a href="&NewsUrl&" title="""&rs("title")&""" target=_blank class=noline>"&left(rs("title"),8)&"</a></td>"
end if
rs.close

javastr=javastr&"<td valign=top>"
javastr=javastr&"<table border=0 cellspacing=0 cellpadding=0 width=100% >"
sql="select top " & MaxFocusNewsList & NoContent &" from News where FocusNews=1 and checked=1 order by updatetime DESC"
rs.Open sql,conn,1,1
i=1
while not rs.EOF
if i mod 2=1 then javastr=javastr&"<tr>"
javastr=javastr&"<td>"
if i mod 2=0 then javastr=javastr&"　"
javastr=javastr&showTitle("MainContentS",22)
javastr=javastr&"</td>"

if i mod 2=0  then javastr=javastr&"</tr>"

rs.MoveNext
i=i+1
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
javastr=javastr&"</table></td></tr></table></td></tr></table><BR>"
response.write ("document.write('"&javastr&"')")
response.end
%>