<% function getBmNum(Id) Dim sql,rs,num,info sql="Select Count(Id) From Z_Class_Bm where Cid="&Id Set rs=zhcx.conn(sql) if not rs.eof then num=rs(0) else num=0 end if rs.close set rs=nothing if Clng(num)>0 then info=""&num&"人" else info=""&num&"人" end if getBmNum=info end function Chk_Admin_Login() keyword=zhcx.checkstr(request("keyword")) if keyword<>"" then Sea=Sea&" and title like '%"&keyword&"%' " End if '分页代码 Set PageCls=new Page_Cls Do_Table="Z_Class" Do_Pars=" Id,title,StartTime,EndTime,addtime,pathhtml " Do_order=" order by addtime 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 %>
选择 标题 培训时间 报名人数 管理操作 整理日期
>  " target="_blank"><%=rs("title")%>  <%=rs("StartTime")%>-<%=rs("EndTime")%>  <%=getBmNum(rs("id"))%> >编辑 | onClick="{if(confirm('文章删除后将不能恢复，您确定要删除该新闻吗?')){return true;}return false;}">删除 <%=rs("addtime")%>
<%=Page_Count_Show%>