<% 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)%>
所有评论管理
搜索: >  
 

<% Set rs=zhcx.conn(Page_Sql) if not rs.eof then while not rs.eof %> <% rs.movenext wend end if rs.close set rs=nothing %>
选择 评论内容 新闻标题 管理操作 整理日期
>  <%=rs("note")%>  <%=getNews(rs("fk_rnd"))%> onClick="{if(confirm('文章删除后将不能恢复,您确定要删除该新闻吗?')){return true;}return false;}">删除 <%=rs("addtime")%>
<%=Page_Count_Show%>