<%Session.CodePage=65001%> BdeCMS网站后台管理登陆 <%call log_chk()%>
后台管理：>> 信息管理 >> <%=request("Bname")%> <%if request("Sname")<>"" then%> >> <%=request("Sname")%> <%end if%>

&Sid=<%=request("Sid")%>&Bname=<%=request("Bname")%>&Sname=<%=request("Sname")%>">
信息搜索：关键字：

<%dim Keyword,start_date,end_date,CurrentPage,TotalPages,Bid,Sid MaxPerPage=30 Keyword=request("Keyword") Bid=request("Bid") Sid=request("Sid") Bname=request("Bname") Sname=request("Sname") Set rs1= Server.CreateObject ("ADODB.RecordSet") if Keyword="" then if Sid="" then sql="select * from bdnews where nb_id="&Bid&" order by nws_order asc" else sql="select * from bdnews where nb_id="&Bid&" and ns_id="&Sid&" order by nws_order asc" end if end if if Keyword<>"" then if Sid="" then sql="select * from bdnews where (nws_title like '%"&Keyword&"%') and nb_id="&Bid&" order by nws_order asc" else sql="select * from bdnews where (nws_title like '%"&Keyword&"%') and nb_id="&Bid&" and ns_id="&Sid&" order by nws_order asc" end if end if '--------------------------------------------------此乃呵呵 rs1.open sql,conn,1,3 if rs1.eof then response.Write("") Tlock=1 else rs1.pagesize=MaxPerPage'定义每页记录数 'howmanyfields=rs.Fields.Count-1 If trim(Request("Page"))<>"" then CurrentPage= CLng(request("Page")) If CurrentPage> rs1.PageCount then CurrentPage = rs1.PageCount End If Else CurrentPage= 1 End If totalPut=rs1.recordcount 'totalput=总记录数 if CurrentPage<>1 then if (currentPage-1)*MaxPerPage < totalPut then rs1.move(currentPage-1)*MaxPerPage end if end if%> <%do while not rs1.eof and mynum<30%> <%mynum=mynum+1 rs1.movenext loop rs1.close set rs1=nothing end if%>
信  息  管  理
编号 发布 信息标题 设置推荐 发布日期 点击数 排序 修改 选择
暂无信息！
<%=rs1("nws_id")%> <%if rs1("nws_stop")=1 then%> &act=stop&Bid=<%=Bid%>&Sid=<%=Sid%>&Keyword=<%=Keyword%>" class="redlink">√ <%else%> &act=rstop&Bid=<%=Bid%>&Sid=<%=Sid%>&Keyword=<%=Keyword%>" class="redlink">× <%end if%> 　<%=left(rs1("nws_title"),16)%> <%if rs1("nws_tj")=1 then%> &act=stop&Bid=<%=Bid%>&Sid=<%=Sid%>&Keyword=<%=Keyword%>">[已推荐] <%else%> &act=rstop&Bid=<%=Bid%>&Sid=<%=Sid%>&Keyword=<%=Keyword%>">[未推荐] <%end if%> <%=rs1("nws_time")%> <%=rs1("nws_click")%> <%=rs1("nws_order")%> &Bname=<%=Bname%>&Sname=<%=Sname%>">[修改] " />
将选择的信息转移至：<%=npdclassY(0)%> onmouseover="Btn_lock();"<%end if%>/>              onmouseover="Btn_lock();"<%end if%>/> 全选
 
<% '------------------------------------------------------页面跳转 dim n,k if (totalPut mod MaxPerPage)=0 then 'n表示总页数 n= totalPut \ MaxPerPage else n= totalPut \ MaxPerPage + 1 end if k=currentPage k=currentPage if k<>1 then response.write "["+"第一页] " response.write "["+"上一页] " else Response.Write "[第一页] [上一页]" end if if k<>n then response.write "["+"下一页] " response.write "["+"最后一页] " else Response.Write "[下一页] [最后一页]" end if '------------------------------------------------------页面跳转msmsms有点小毛病！就是转页没有连带搜索和类别 response.Write(" | 共"&n&"页 / "&totalPut&"条信息 / ") response.Write("当前第"&k&"页") response.Write(" ") response.Write(" ")%>