<% Chk_Admin_Login() if keyword<>"" then Sea=Sea&" and title like '%"&keyword&"%' " End if '分页代码 Set PageCls=new Page_Cls Do_Table="Z_freeback" Do_Pars=" Id,title,addtime ,itype" Do_order=" order by id desc" Do_Sea=Sea PageCls.GetPaSz(10) 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("title")%> <% if trim(rs("itype"))="0" then response.write "需求留言" else response.write "咨询需求调查表" end if %> >查看 | onClick="{if(confirm('文章删除后将不能恢复,您确定要删除该新闻吗?')){return true;}return false;}">删除 <%=rs("addtime")%>
<%=Page_Count_Show%>