%
Chk_Admin_Login()
keyword=zhcx.checkstr(request("keyword"))
function getNews(id)
Dim sql,rs,info
sql="Select title,pathhtml From Z_News where fk_rnd="&id
Set rs=zhcx.conn(sql)
if not rs.eof then
getNews=""&trim(rs(0))&""
end if
rs.close
set rs=nothing
End function
if keyword<>"" then
Sea=Sea&" and note like '%"&keyword&"%' "
End if
'分页代码
Set PageCls=new Page_Cls
Do_Table="Z_Fk_Msg"
Do_Pars=" * "
Do_order=" order by id desc"
Do_Sea=Sea
PageCls.GetPaSz(50)
Page_no=PageCls.RequestPage("Pageno")
Page_Total=PageCls.GetTotalRecord(Do_Table,Do_Pars,Do_Sea)
Page_Sql=PageCls.GetSql(Do_Table,Do_Pars,Do_Sea,Do_order)
Page_Count_Show=PageCls.Page_Count(Page_Total,Page_no,"?keyword="&keyword&"&")
Set PageCls=nothing
%>
<%=Zhcx.GetTopTemplates(2)%>