news_more.asp

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

<!--#include file = admin_conn.asp -->
<!--#include file = news_list.asp -->
<!--#include file = admin/language.asp -->
<!--#include file = admin/titleb.asp -->
<%
'本页的页首，页尾，全部读取后台模版中的系统搜索模版！
lm2 =trim(request("lm2"))
lm=trim(request("lm"))
if lm2="" then lm2=lm
if lm="" then lm=lm2
if lm2="" then lm2=0
lm_id=lm2
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="所有栏目"
	 lm_path=rs2("lm_path")
     ClassKeywords=rs2("ClassKeywords")
     ClassDescription=rs2("ClassDescription")
     if ClassKeywords="" then ClassKeywords=setting("sitekey")
     if ClassDescription="" then ClassDescription=setting("sitedes")
     if mb<>"" then
        
		
		 dim fddh   '08_09_01 增加$$浮动导航$$标签
         if config("fddh") =0 then
           fddh_x=config("fddh_x")
	       fddh_y=config("fddh_y")
	       fddh_body=config("fddh_body")
	
          fddh="<SCRIPT FOR=window EVENT=onload LANGUAGE=""javascript"">initAd();</SCRIPT>"
          fddh=fddh&"<script language=""javascript"">function initAd() {" & vbcrlf
          fddh=fddh&"           document.all.AdLayer.style.posTop = -250;" & vbcrlf
          fddh=fddh&"            document.all.AdLayer.style.visibility = 'visible'" & vbcrlf
          fddh=fddh& "           MoveLayer('AdLayer');}" & vbcrlf
          fddh=fddh& "        function MoveLayer(layerName) {" & vbcrlf
          fddh=fddh&"            var x = "& fddh_x &";" & vbcrlf
          fddh=fddh&"            var y = "& fddh_y &";" & vbcrlf
          fddh=fddh&"            var diff = (document.body.scrollTop + y - document.all.AdLayer.style.posTop)*.40;" & vbcrlf
          fddh=fddh&"            var y = document.body.scrollTop + y - diff;" & vbcrlf
          fddh=fddh&"           eval(""document.all."" + layerName + "".style.posTop = y"");" & vbcrlf
          fddh=fddh&"            eval(""document.all."" + layerName + "".style.posLeft = x"");" & vbcrlf
          fddh=fddh&"            setTimeout(""MoveLayer('AdLayer');"", 10);}" & vbcrlf
          fddh=fddh&"          </script>" & vbcrlf
          fddh=fddh&"<div id=AdLayer style='position:absolute; z-index:20; visibility:hidden;'>"& fddh_body &"</div>"
          else
          fddh=""
          end if
    
	 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")
		 moreline=rs3("moreline")
		 
		 copen=trim(rs3("copen"))   '廖2008-5-28新增，新闻内容调用开始
         ccount=trim(rs3("ccount"))
         ccolor=trim(rs3("ccolor"))
         csize=trim(rs3("csize"))
         tbold=trim(rs3("tbold"))
         tface=trim(rs3("tface"))
         tcolor=trim(rs3("tcolor"))
         tsize=trim(rs3("tsize"))   '廖2008-5-28新增，新闻内容调用结束
		 rs3.close:set rs3=nothing 
		 else
		    Response.Write "模版设置不正确或已经被删除!"
		 end if   	 
		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 增加$$浮动导航$$标签
		 
		 listmb=replace(listmb,"$$网站名$$",setting("sitename"))
         listmb=replace(listmb,"$$网站描述$$",ClassDescription)
         listmb=replace(listmb,"$$关键字$$",ClassKeywords)
         listmb=replace(listmb,"$$版权信息$$",setting("sitecr"))

		 

          if lm2<>"0" and lm<>"0" then 
                  listmb=replace(listmb,"$$路径$$",morepath())
           else
                listmb=replace(listmb,"$$路径$$","新闻列表-->所有栏目：")
           end if
		 
		  
	     if instr(listmb,"$$列表$$")<>0 then
		     nr=split(listmb,"$$列表$$")
		     response.write nr(0)
			 Response.Write newslist(lm_id,listshu,tb,lmnameid,openwindow,icon,copen,ccount,ccolor,csize,tbold,tface,tcolor,tsize,moreline)
			 Response.Write nr(1)
		 else
			 Response.Write "模版代码不正确，没有找到“$$列表$$”，不知道应该显示在哪里？"
		 end if
	
	  else
	  	Response.Write "模版代码不正确或已经被删除!"
	  end if
	  
   else
     Response.Write "模版没有找到或者没有设置"
   end if
%>
<%
rs2.close:set rs2=nothing
conn.close:set conn=nothing
%>