news_zt_more.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

<!--#include file = admin_conn.asp -->
<!--#include file = admin/language.asp -->
<!--#include file = admin/titleb.asp -->
<%

function newslist(ll)

%>
<style type="text/css">
<!--
.STYLE2 {
	font-size: 14px;
	color: #990000;
}
-->
</style>

<table width="100%" align="center" cellspacing="5" bgcolor="#FFFFFF">
<tr>
<td >
	<table border="1"  cellpadding="3"  style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
<td align="left" bgcolor="#FFFFCC" ><span class="STYLE2">专题</span></td>
<td align="center" bgcolor="#FFFFCC" class="STYLE2" > 文章数量</td>
</tr>
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select id,title from [NewsZt] order by id desc",conn,1,1
if rs.recordcount<>0 then


page=int(request("page"))
rs.PageSize=ll
pagecount=rs.pagesize
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page

for i=1 to pagecount
 id=rs("id")
%>		
		<tr>
			<td width="493" class="wz"><a href="News_zt.asp?ztid=<%=id%>" target=_blank><%=rs("title")%></a></td>
			<td width="123" align="center" class="wz">
				<%
					set rs2 = Server.CreateObject("ADODB.RecordSet")
					rs2.Open "select id,ztid from [News] where ztid="&ID&" order by id desc",conn,1,1
					Response.Write rs2.recordcount
					rs2.close:set rs2=nothing
				%>
			</td>
			</tr>	
		
<%
rs.movenext
if rs.eof then exit for
next

end if
%>	
	</table>
	<BR>
	<center>
		<%
		if rs.recordcount<>0 then
		  if page>1 then%>
		     <a href='<%=request.servervariables("URL")%>?ztid=<%=id%>&page=1'>首页</a>
		     <a href='<%=request.servervariables("URL")%>?ztid=<%=id%>&page=<%=page-1%>'>上一页</a>
		  <%end if%>
		  <%if page<rs.pagecount then%>
		     <a href='<%=request.servervariables("URL")%>?ztid=<%=id%>&page=<%=page+1%>'>下一页</a>
		     <a href='<%=request.servervariables("URL")%>?ztid=<%=id%>&page=<%=rs.pagecount%>'>尾页</a>
		  <%end if%>
		　共<%=rs.recordcount%>条　每页显示<%=pagecount%>条　　第<%=page%>页　共<%=rs.pagecount%>页				
		    <script language="JavaScript">
		      <!--
		       function FP_jumpMenu(el,frm,sel) {//v1.0
		       var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
		       if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
		        }
		       // -->
		     </script>
		
		   <select size="1" onChange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt; border-style: solid; border-width: 1px">
		        <%for i=1 to rs.pagecount%>
		          <option value="<%=request.servervariables("URL")%>?ztid=<%=id%>&page=<%=i%>" <%if page=i then response.write "selected"%>>第<%=i%>页</option>
		        <%next%>
		    </select>
		</p>
        <%end if%>
</td>
</tr></table>
<%
end function


'本页的页首，页尾，全部读取后台模版中的系统搜索模版！
lm2 =trim(request("lm2"))
lm=trim(request("lm"))
if lm2="" then lm2=lm
if lm="" then lm=lm2
if lm2="" then lm2=0
root_path=finddir(request.servervariables("URL"))

if (not isNumeric(lm)) then
	lm=0
end if

  sql2 = "select * from lm where id="&lm2
  Set rs2 = Server.CreateObject("ADODB.RecordSet")
  rs2.Open sql2,conn,1,1
   if rs2.recordcount=0 then
	  sql2 = "select * from lm order by id asc"
	  Set rs2 = Server.CreateObject("ADODB.RecordSet")
	  rs2.Open sql2,conn,1,1
   end if
   if rs2.recordcount <> 0 then
     mb=trim(rs2("mb"))
     lmm=rs2("lm")&rs2("lm2")&rs2("lm3")
     'Response.Write lmm
     if lm2="0" then lmm="所有专题"
     
     if mb<>"" then
        
		
    
	 sql3 = "select * from newsmb where id="&clng(mb)
     Set rs3 = Server.CreateObject("ADODB.RecordSet")
     rs3.Open sql3,conn,1,1
     if rs3.recordcount<>0 then
	     listmb=rs3("listmb")
	     listshu=rs3("list")
	     tb=rs3("tb")
	     lmnameid=rs3("lmname")
	     newstime=rs3("newstime")
	     newshit=rs3("newshit")
	     openwindow=rs3("openwindow")
	     icon=rs3("icon")
		 
			 
		Set rs4 = Server.CreateObject("ADODB.RecordSet")   '廖2008-6-1新增，页头页尾调用开始
		rs4.Open "select * from [config]",conn,1,1
		if rs4.recordcount<>0 then
		  top=rs4("top")
		  down=rs4("down")
		  listmb=replace(listmb,"$$通用页头$$",top)
		  listmb=replace(listmb,"$$通用页尾$$",down)
		rs4.close
		set rs4=nothing 
		end if        '廖2008-6-1新增，页头页尾调用结束

	     listmb=replace(listmb,"$$栏目名$$",lmm)
	     listmb=replace(listmb,"$$LMID$$",lm)
		 listmb=replace(listmb,"$$网站目录$$",root_path)
		 
		 listmb=replace(listmb,"$$浮动导航$$",fddh)   '08_09_01 增加$$浮动导航$$标签
		 
		 
		 

          if lm2<>"0" and lm<>"0" then 
                  listmb=replace(listmb,"$$路径$$",morepath())
           else
                listmb=replace(listmb,"$$路径$$","专题列表-->所有专题：")
           end if
		 
		 else
		    Response.Write "模版设置不正确或已经被删除!"
		 end if     
	     if instr(listmb,"$$列表$$")<>0 then
		     nr=split(listmb,"$$列表$$")
		     response.write nr(0)
		     Response.Write newslist(listshu)
		     Response.Write nr(1)
		 else
			 Response.Write "模版代码不正确，没有找到“$$列表$$”，不知道应该显示在哪里？"
		 end if
		 rs3.close:set rs3=nothing
	  else
	  	Response.Write "模版代码不正确或已经被删除!"
	  end if
	  
   else
     Response.Write "模版没有找到或者没有设置"
   end if
%>
<%
conn.close:set conn=nothing
%>