<% N=request.QueryString("a") Bc=request.QueryString("b") keyword=Trim(Request.Form("keyword")) ko=0 if n="" and bc="" then ' set rh=server.CreateObject("adodb.recordset") ' seh="select * from jd_prtclass order by flag asc" ' rh.open seh,conn,1,1 ' if not rh.eof then ' N=rh("id") ' a_title=rh("classname") ' up_title=rh("classname") ' aid=rh("id") ' mfid=rh("id") ' apath=rh("html") ' end if ' rh.close:set rh=nothing end if if N<>"" then set rh=server.CreateObject("adodb.recordset") seh="select * from jd_prtclass where id="&N&"" rh.open seh,conn,1,1 if not rh.eof then N=rh("id") a_title=rh("classname") up_title=rh("classname") aid=rh("id") mfid=rh("id") apath=rh("html") end if rh.close:set rh=nothing set rh=server.CreateObject("adodb.recordset") seh="select * from jd_prtsclass where lmid="&aid&"" rh.open seh,conn,1,1 if not rh.eof then a_title=rh("classname") else ko=1 end if rh.close:set rh=nothing end if if Bc<>"" then set rh=server.CreateObject("adodb.recordset") seh="select * from jd_prtsclass where id="&bc&"" rh.open seh,conn,1,1 if not rh.eof then bc=rh("id") a_title=rh("classname") bcid=rh("id") upid=rh("lmid") mfid=rh("lmid") bpath=rh("html") end if rh.close:set rh=nothing set rh=server.CreateObject("adodb.recordset") seh="select * from jd_prtclass where id="&upid&"" rh.open seh,conn,1,1 if not rh.eof then up_title=rh("classname") apath=rh("html") end if rh.close:set rh=nothing end if if mfid<>"" then mfid=int(mfid) mf="n"&mfid mfs="pro" if a_title="" then a_title="产品中心" if keyword<>"" then a_title="搜索结果" %> <%=a_title%>_<%=title%>
<%=a_title%>
<% style="imgs_list" %>
    <% Set Q = New Qi_Pager Q.Connect(Conn) Q.TableName = "jd_prt" if keyword<>"" then Q.AddWhere "title like '%"&keyword&"%' " elseif n<>"" then Q.AddWhere " classid="&n&" " Q.RewritePath =iurl&apath&"index-*.html" elseif bc<>"" then Q.AddWhere " sclassid="&bc&" " '//自定义ISAPI_REWRITE路径:标示 * Q.RewritePath =iurl&bpath&"index-*.html" else Q.AddWhere "classid<>37 and classid<>33 and classid<>34" end if Q.OrderBy = " ID DESC" '输出SQL语句 方便调试 'Response.Write(Q.GetSql()) 'Response.End() Q.Page = Request.QueryString("page") Q.PageSize = prt_size Set Rs = Q.Recordset sPageInfo = Q.PageInfo sPager = Q.Pager if rs.eof then response.write "
    暂无信息
    " Do While Not Rs.EOF %>
  • " title="<%=rs("title")%>" >" />

    " title="<%=rs("title")%>" ><%=rs("title")%>

  • <% Rs.MoveNext Loop rs.close set rs=nothing %>
<%=sPager %>