<%
cls=trim(request("cls"))
function realdate(date1)
realdate=year(date1) & "-" & month(date1) & "-" & day(date1)
end function
page=Request.Form ("page")
page1=Request.QueryString ("page")
if page="" and page1="" then page=1
if page="" and page1<>"" then page=page1
set rs=server.CreateObject ("adodb.recordset")
mypagesize=Request.QueryString("pagesize")
if mypagesize="" then mypagesize=15
sql="select * from ht_xw where 1=1 and class in (select id from ht_xw_class where keys in ('yaowen','market'))"
if cls<>"" then
sql=sql & " and class=" & cls
end if
sql=sql & " order by id desc"
rs.CursorLocation=aduseclient
rs.CacheSize=5
rs.Open sql,conn,adOpenStatic
if not rs.eof and not rs.bof then
isExist=1
rs.MoveFirst
rs.PageSize=mypagesize
maxcount=cint(rs.PageCount)
rs.AbsolutePage=page
howmanyrecs=0
howmanyFields=rs.Fields.count-1
end if
if cls<>"" then
str="select top 1 name from ht_xw_class where id=" & cls
set rss=conn.execute(str)
if not rss.eof then
clsname=rss(0)
end if
rss.close:set rss=nothing
else
clsname="新闻聚焦"
end if
%>
新闻聚焦
