<% 'ON ERROR RESUME NEXT path=finddir(request.servervariables("URL")) lm=trim(request("lm")) if lm="" then lm=trim(Request("lm2")) page=trim(request("page")) if page="" then page=1 if lm="" then lm=0 if lm2="" then lm2=lm if lm="" then lm=lm2 if lm2="" then lm2=0 showlm=lm response.Redirect("products.asp?lm2="&showlm) if (not isNumeric(lm)) then Response.Write "" response.end end if function pictulist() if openwindow="1" then open="_blank" else open="_top" end if %> <%set tt=conn.execute("select * from lm where id="&lm) 'response.write tt("id") if tt("lm3")<>""then sql="select * from lm where lmid =(select lmid from lm where id="&lm&")" set ttt=conn.execute("select * from lm where id="&tt("lmid")) biglm=ttt("lm2") slm=tt("lmid") smlm=tt("lm3") else sql="select * from lm where lmid='"&lm&"'" biglm=tt("lm2") slm=lm End If %>


<%=biglm%><%if smlm<>"" then%>>>><%=smlm%><%end if%> 信息:

<%Sql="select * from news where titleimg<>'' and sh=1 " if lm<>"0" then sql=sql&" and (lm='"&lm&"' or lm2='"&lm&"' or lm3='"&lm&"') " sql=sql&" order by updat asc " Set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 total=rs.recordcount perpage=24 page=request("page") if page="" then page=1 i=0 if not(rs.eof and rs.bof) then%> <%if total mod perpage=0 then totalpage= total \ perpage else totalpage= total \ perpage +1 end if url="?lm="&showlm %> <%if int(totalpage)<=10 then startj=1 endj=totalpage else if int(page)<=5 then startj=1 endj=10 else if int(page)+5<=totalpage then startj=int(page)-5 endj=int(page)+5 else startj=int(page)-5 endj=totalpage End If End If end if ssstr="" eeestr="" if startj>1 then ssstr="..." if endj

共<%=Total%>条

<%if int(page)>1 then%> 上一页<%=ssstr%> <%else%> 上一页 <%End if%> <%for j=startj to endj %> <%if int(page)=j then%> <%=j%> <%else%> <%=j%> <%end If%> <%next ' response.write eeestr %> <%if int(page) <%=eeestr%>下一页 <%else%> 下一页 <%End If%>

当前 <%=(int(page)-1)*perpage+1%>-<%if (int(page))*perpage

<%Else%>

共0条产品信息

<%End If%>
<% end function set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select * from [lm] where id="&lm&" order by id desc",conn,1,1 if rs.recordcount<>0 then mbid=rs("mb") lmname=rs("lm")&rs("lm2")&rs("lm3") lmmpic=rs("lmmpic") if lmmpic="" or isnull(lmmpic) then set rop=conn.execute("select * from lm where id="&rs("lmid")) lmmpic=rop("lmmpic") if lmmpic="" or isnull(lmmpic) then set rop1=conn.execute("select * from lm where id="&rop("lmid")) lmmpic=rop1("lmmpic") end if End if else set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open "select * from [lm] order by id asc",conn,1,1 if rs2.recordcount<>0 then mbid=rs2("mb") end if rs2.close:set rs2=nothing end if rs.close:set rs=nothing 'if mbid="" then mbid=0 '新加功能_默认一级模板==================================================================================== mbid123 = mbid if mbid123 = "" or isnull(mbid123) then call lm_mbid(lm) '新加功能_默认一级模板==================================================================================== set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select id,listtumb,picw,pich,picx,picy,pictitle,pictitlecolor,pictitlesize,openwindow from [NewsMB] where id="&mbid&" order by id desc",conn,1,1 if rs.recordcount<>0 then listtumb=rs("listtumb") picw=rs("picw") pich=rs("pich") picx=rs("picx") picy=rs("picy") pictitle=rs("pictitle") pictitlecolor=rs("pictitlecolor") pictitlesize=rs("pictitlesize") openwindow=rs("openwindow") xy=int(picx)*int(picy) else Response.Write "


对不起,系统模版不正确或者没有模版!
" conn.close:set conn=nothing Response.end end if rs.close:set rs=nothing call yilmid(lm) if instr(listtumb,"$$图片列表$$")=0 then Response.Write "


对不起,后台系统模版不正确,没有找到$$图片列表$$!
" else %> <% listtumb=replace(listtumb,"$$一级栏目名$$",yilmname) listtumb=replace(listtumb,"$$栏目名$$",lmname) listtumb=replace(listtumb,"$$sitename$$",m_sitname) listtumb=replace(listtumb,"$$栏目图$$","") listtumb=replace(listtumb,"$$栏目FLASH$$",lmmpic) listtumb=replace(listtumb,"$$路径$$",lm_lmpath_pic()) listtumb=replace(listtumb,"$$LMID$$",lm) listtumb=replace(listtumb,"$$YILMID$$",yilm) listtumb=split(listtumb,"$$图片列表$$") response.write listtumb(0) Response.Write pictulist() Response.Write listtumb(1) end if %> <% conn.close set conn=nothing %> <% '新加功能_默认一级模板==================================================================================== sub lm_mbid(id) id = int(id) Set rs1 = Server.CreateObject("ADODB.RecordSet") rs1.Open "select * from lm where id="&id,conn,1,1 if isnull(rs1("mb")) then Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open "select * from lm where id="&clng(rs1("lmid")),conn,1,1 mbid = rs2("mb") if isnull(rs2("mb")) then Set rs3 = Server.CreateObject("ADODB.RecordSet") rs3.Open "select * from lm where id="&clng(rs2("lmid")),conn,1,1 mbid= rs3("mb") rs3.close set rs3 = nothing end if rs2.close set rs2 = nothing else mbid = id end if rs1.close set rs1 = nothing end sub '新加功能_默认一级模板==================================================================================== sub yilmid(lmid) set lm_rs = conn.execute("select lmid,lm from lm where id="&lmid) if lm_rs("lmid") <> "" then yilm = lm_rs("id") yilmname = lm_rs("lm") else yilmid(lm_rs("lmid")) end if set lm_rs = nothing end sub %>