classnews.asp

庐江二中

<!--#include file="conn.asp" -->
<!--#include file="const.asp"-->
<!--#include file="function.asp" -->
<%
dim BigClassName,SmallClassName,IfClass,javastr
BigClassName=Request("BigClassName")
SmallClassName=Request("SmallClassName")
if BigClassName<>"" then IfClass=" BigClassName='"&BigClassName&"' and "
if SmallClassName<>"" then IfClass=" BigClassName='"&BigClassName&"' and SmallClassName='"&SmallClassName&"' and "
javastr=""
javastr=javastr+"<table border=0 width=98% align=center cellspacing=0 cellpadding=0 style=""TABLE-LAYOUT: fixed;"">"
sql="select top 1 * from News where " & ifClass &" checked=1 order by updatetime DESC"
rs.open sql,conn,1,1
if rs.EOF then
	javastr=javastr+"<tr><td height=200 align=center valign=middle><b>尚　无　内　容</b></td></tr>"
else
	dim newsID,Title,about,Author,Original,UpdateTime,Content,hot,SpecialName,click,image
	newsID=rs("NewsID")
	BigClassName=rs("BigClassName")
	Title=rs("Title")
	about=rs("about")
	Author=rs("Author")
	Original=rs("Original")
	image=rs("image")
	UpdateTime=rs("UpdateTime")
	Content=rs("Content")
	hot=rs("hot")
	SpecialName=rs("SpecialName")
	click=rs("click")
	javastr=javastr+"<tr><td height=100 align=center valign=middle class=READNEWSTITLE><b>"&title&"</b></td></tr>"
	javastr=javastr+"<tr><td class=news style=""WORD-WRAP: break-word"">"
	javastr=javastr+HtmlSelfEnCode(Content,image)
	javastr=javastr+"<br></td></tr>"
end if
rs.Close
javastr=javastr+"</table>"
response.write ("document.write('"&javastr&"')")
response.end
set rs=nothing
conn.close
set conn=nothing
%>