<% call log_chk() %>
后台管理：>> 产品管理 >> <%=request("Bname")%> <%if request("Sname")<>"" then%> >> <%=request("Sname")%> <%end if%>

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

<% dim Keyword,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 bdcp where cb_id="&Bid&" order by cxp_order asc" else sql="select * from bdcp where cb_id="&Bid&" and cs_id="&Sid&" order by cxp_order asc" end if end if if Keyword<>"" then if Sid="" then sql="select * from bdcp where (cxp_name like '%"&Keyword&"%') and cb_id="&Bid&" order by cxp_order asc" else sql="select * from bdcp where (cxp_name like '%"&Keyword&"%') and cb_id="&Bid&" and cs_id="&Sid&" order by cxp_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 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("cxp_id")%> <%if rs1("cxp_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("cxp_name"),25)%> <%if rs1("cxp_tj")=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%> <%=rs1("cxp_time")%> <%=rs1("cxp_click")%> <%=rs1("cxp_order")%> &Bname=<%=Bname%>&Sname=<%=Sname%>">[修改] " />
把选择的产品转移至：<%=npdclassY(1)%> 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(" ")%>