新闻中心
-
<%MenuList 3,"news.asp","menuName"%>
<%=openbottom(pageid,2)%>您现在所在的位置是：首页 > <%=openbottom(pageid,2)%>
-
<%
RValue=GetTypeIdNodes("MenuParent","Sys_menu","menuid",RValue,RValue)
sql="select * from sys_content where Visible=true and typeid in ("&RValue&")"
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 = 10
Pager.PageUrl=pageurl
if pageid<>"" then
if instr(pager.pageUrl,"?")>0 then
pager.pageUrl=pager.pageUrl&"pageid="&pageid
else
pager.pageUrl=pager.pageUrl&"?pageid="&pageid
end if
end if
do while not rs.eof
%>
- <%=rs("d_data")%>&big_id=<%=rs("TypeId")%>"><%= rs("contentName") %> <% rs.movenext iNum=iNum+1 if iNum>=pager.pagesize then exit do loop %>
<%= pager.show() %>