产品中心
-
<%MenuList 2,"products.asp","menuName"%>
<%=openbottom(pageid,2)%>您现在所在的位置是：首页 > <%=openbottom(pageid,2)%>
<%
dim u,duiImg
duiImg="border='0'"
if request("pageid")<>"" then
RValue=GetTypeIdNodes("MenuParent","Sys_menu","menuid",pageid,pageid)
sql="select * from sys_content where Visible=true and typeid in ("&RValue&")"
else
RValue=GetTypeIdNodes("MenuParent","Sys_menu","menuid",RValue,RValue)
sql="select * from sys_content where Visible=true and typeid in ("&RValue&")"
end if
if txtcontent<>"" then
sql=sql&" and contentname like '%"&txtcontent&"%'"
end if
sql=sql&" order by ContentOrder asc"
set rs=objdb.runsql_return_rs(sql)
if rs.eof then inkcar.echo "该分类下没有信息！！"
dim iNum:iNum=0
dim pageurl
pageurl=request.serverVariables("SCRIPT_NAME")
Pager.Datasource = rs
Pager.PageSize = 6
Pager.PageUrl=pageurl
if pageid<>"" then
if instr(pager.pageUrl,"?")>0 then
pager.pageUrl=pager.pageUrl&"big_id="&pageid
else
pager.pageUrl=pager.pageUrl&"?big_id="&pageid
end if
end if
dim i
i=0
do while not rs.eof
%>
<%
i=i+1
rs.movenext
iNum=iNum+1
if iNum>=pager.pagesize then exit do
loop
%>
<%= pager.show() %>