news_more.asp

强大的后台文章编辑器的功能

<!--#include file = admin_conn.asp -->
<!--#include file = news_list.asp -->
<%
'本页的页首，页尾，全部读取后台模版中的系统搜索模版！
lm2 =trim(request("lm2"))
lm=trim(request("lm"))
if lm2="" then lm2=lm
if lm="" then lm=lm2

  sql2 = "select * from lm where id="&lm2
  Set rs2 = Server.CreateObject("ADODB.RecordSet")
  rs2.Open sql2,conn,1,1
   if rs2.recordcount <> 0 then
     mb=trim(rs2("mb"))
     
     if mb<>"" then

     sql3 = "select * from newsmb where id="&mb
     Set rs3 = Server.CreateObject("ADODB.RecordSet")
     rs3.Open sql3,conn,1,1
     if rs3.recordcount<>0 then
	     listmb=rs3("listmb")
	     listshu=rs3("list")
		 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
	  else
	  	Response.Write "模版代码不正确或已经被删除!"
	  end if
   end if
%>
<%
rs2.close
set rs2=nothing
conn.close
set conn=nothing
%>