
<!--#include file = admin_chk.asp -->
<head>
<STYLE type="text/css">
<!--
a:link       {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited    {text-decoration: none; color: #000000 }
A:hover      {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body         {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD           {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
p            {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input        {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body         {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select       {FONT-SIZE: 9PT;}
option       {FONT-SIZE: 9pt;}
textarea     {FONT-SIZE: 9pt;}
-->
</STYLE>
<!--#include file = language.asp -->
<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>

<!--#include file = admin_conn.asp -->
<%
Function finddir(filepath)
	finddir=""
	for i=1 to len(filepath)
	if left(right(filepath,i),1)="/" or left(right(filepath,i),1)="\" then
	  abc=i
	  exit for
	end if
	next
	if abc <> 1 then
	finddir=left(filepath,len(filepath)-abc+1)
	end if
end Function

%>
</head>
<body bgcolor="#ffffff">
<p align="center">
　</p>
<p align="center">
<select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1">
<option value>请选择栏目</option>
					  <%				
					  lmid=trim(Request("lm2"))
					  if lmid="" then lmid=trim(Request("lm"))	  
					  if lmid="" then lmid=0
					  sql = "select * from lm where lm<>'' order by id asc"
					  Set rs = Server.CreateObject("ADODB.RecordSet")
					  rs.Open sql,conn,1,1
					  while not rs.eof
					       response.write "<option value="&request.servervariables("URL")&"?lm="&rs("id")&">编号:("&rs("id")&")"&rs("lm")&"</option>"
							sql2 = "select * from lm where lmid='"&rs("id")&"' order by id asc"
							Set rs2 = Server.CreateObject("ADODB.RecordSet")
							rs2.Open sql2,conn,1,1
							while not rs2.eof
							%>
							   <option value='<%=request.servervariables("URL")%>?lm=<%=rs("id")%>&lm2=<%=rs2("id")%>' <% if clng(lmid)=clng(rs2("id")) then response.write " selected" %>>&nbsp;├(编号:<%=rs2("id")%>)<%=rs2("lm2")%></option>
								<%
								Set rs33 = Server.CreateObject("ADODB.RecordSet")
								rs33.Open "select * from [lm] where lmid='"&rs2("id")&"' and lm3<>'' order by id asc",conn,1,1
								while not rs33.eof
								%>
									<option value='<%=request.servervariables("URL")%>?lm2=<%=rs33("id")%>' <% if clng(lmid)=clng(rs33("id")) then response.write " selected" %>>&nbsp;　├(编号:<%=rs33("id")%>)<%=rs33("lm3")%></option>
								<%
								rs33.movenext
								wend
%>
							<%
							rs2.movenext
							wend
					  rs.movenext
					  wend 
					  rs.close
					  set rs=nothing
					 
					%>
					
					</select>　<a href="admin_link_code.asp">友情链接调用</a></p>
<%
lm=trim(request("lm"))
lm2=trim(request("lm2"))
if lm="" then lm=lm2
if lm2="" then lm2=lm
if lm<>"" and lm2<>"" then
%>
<div align="center">
	<table border="1" width="600" id="table1" cellspacing="0" cellpadding="5" style="border-collapse: collapse" bordercolor="#C0C0C0">
		<tr>
			<td bgcolor="#F5F5F5"><b>新闻列表调用代码：</b><br>
			框架：<br>
			<font color="#FF0000">&lt;iframe name=xuasnews<%=lm%> src=<%=finddir(request.servervariables("URL"))%>newscode.asp?lm2=<%=lm2%>&amp;hot=0&amp;tj=0&amp;t=0&amp;week=0&amp;font=9&amp;line=12&lmname=0&amp;n=30&amp;list=10&amp;more=1&amp;hit=0&amp;open=1&amp;icon=1&amp;new=0&amp;bg=ffffff 
			marginwidth=1 marginheight=1 width=270 height=&quot;184&quot; scrolling=&quot;no&quot; 
			border=&quot;0&quot; frameborder=&quot;0&quot;&gt;&lt;/iframe&gt;</font><br>
			<br>
			JS调用：<br>
			<font color="#FF0000">&lt;script TYPE=&quot;text/javascript&quot; language=&quot;javascript&quot; src=&quot;<%=finddir(request.servervariables("URL"))%>newscodejs.asp?lm2=<%=lm2%>&amp;list=10&amp;icon=1&amp;tj=0&amp;font=9&amp;hot=0&amp;new=1&amp;line=2&amp;lmname=0&amp;open=1&amp;n=20&amp;more=1&amp;t=0&amp;week=0&amp;zzly=0&amp;hit=0&amp;pls=0&quot;&gt;&lt;/script&gt;<br>
			<br>
			</font>头条新闻调用<font color="#FF0000"><br>
			&lt;script TYPE=&quot;text/javascript&quot; language=&quot;javascript&quot; src=&quot;<%=finddir(request.servervariables("URL"))%>newscode-news.asp?id=0&amp;lm=<%=lm2%>&amp;list=1&amp;font=9&amp;nr=0&amp;nrtop=150&amp;nrcolor=999999&amp;titleface=黑体&amp;titlesize=16&amp;titlen=30&amp;titlebold=700&amp;titlecolor=FF0000&quot;&gt;&lt;/script&gt;</font></td>
		</tr>
		<tr>
			<td bgcolor="#FFFFFF">　</td>
		</tr>
		<tr>
			<td bgcolor="#F5F5F5">newscode.asp?lm=<%=lm%>&lm2=<%=lm2%>&lmname=0&n=20&list=10&amp;more=1　　说明<p>
			lm2 或 lm&nbsp;&nbsp; 栏目的ID，一般不用改动它。如果lm2=0，那么显示所有栏目的新闻。<br>
			hot=0　　　 是否按新闻的点击数量排序，热点新闻。0为普通排序，1为按点击次数排序。<br>
			tj=0 　　　 显示推荐新闻，0不显示，1为显示推荐新闻。<br>
			t=0　　　　 是否在标题后面显示新闻的添加修改时间,如果等于0不显示，1/2/3/4种模式显示<br>
			week=0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 是否在标题后面显示新闻的添加星期.0不显示，1显示。<br>
			font=9&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 设置标题的字号，默认是9，可以设置为10.5或者12。<br>
			line=12&nbsp;&nbsp;&nbsp;&nbsp; 设置标题的行间距，默认是12，可以自行设置，数字越大，行距越大。<br>
			lmname=0　　是否显示栏目名称 0不显示　1为显示<br>
			n=30　　　　每个标题显示的字数。默认是30个字符,(1个汉字是2个字符)<br>
			list=10　 　显示多少条标题，默认是10条标题<br>
			more=1　　　是否显示“更多内容”，0不显示　1为显示　2为在框内显示分页。<br>
			hit=0　　　 是否在标题后显示点击数，0不显示　有hit=1和hit=2两种模式<br>
			open=1　　　是否新开窗口浏览新闻内容，0不新开　1为新开<br>
			icon=1　　　自定义在标题前显示图标，0不显示　1显示默认(<font face="Wingdings">1</font>) 
			可自定义图片(如:icon=/images/123.gif)<br>
			new=0　　　 当天的最新新闻是否显示一个动画图片　<img border="0" src="images/new.gif" width="28" height="11">&nbsp; 
			如果new=1 就显示。new=0就不显示。<br>
			bg=ffffff　 新闻调用窗口的背景颜色，默认是白色(ffffff)，切记不要加#。<br>
			zz=0　　　　新闻标题后面不显示来源作者，zz=1显示。<br>
			hit=0　　　 在新闻标题后面显示此条新闻的阅读数。hit=1时显示。<br>
			pls=0　　　 在新闻标题后面显示此条新闻的评论数。pls=1时显示。<br>
			titleface　 头条调用新闻有效，标题的字体，titleface=黑体<br>
			titlesize　 头条调用新闻有效，标题的字型大小，titlesize=16，即16pt。<br>
			titlen　　　头条调用新闻有效，标题显示字数。<br>
			titlebold　 头条调用新闻有效，标题是否加粗，titlebold=700加粗，titlebold=100不加粗。<br>
			titlecolor　头条调用新闻有效，标题的颜色。</td>
		</tr>
		<tr>
			<td bgcolor="#FFFFFF">　</td>
		</tr>
		<tr>
			<td bgcolor="#F5F5F5"><b>图片调用代码：<br>
			</b>框架：<br>
			<font color="#FF0000">&lt;iframe name=xuaspic<%=lm%> src=<%=finddir(request.servervariables("URL"))%>piccode.asp?lm2=<%=lm2%>&n=20&amp;open=1&amp;w=150&amp;h=150&amp;nr=0&amp;nrtop=100&amp;pic=1&amp;bg=ffffff 
			marginwidth=1 marginheight=1 width=270 height=&quot;184&quot; scrolling=&quot;no&quot; 
			border=&quot;0&quot; frameborder=&quot;0&quot;&gt;&lt;/iframe&gt;<br>
			</font><br>
			JS调用：<br>
			<font color="#FF0000">&lt;script TYPE=&quot;text/javascript&quot; language=&quot;javascript&quot; 
			src=&quot;<%=finddir(request.servervariables("URL"))%>piccodejs.asp?lm2=<%=lm2%>&amp;x=1&amp;y=1&amp;w=100&amp;h=100&amp;open=1&amp;n=20&quot;&gt;&lt;/script&gt;</font><p>
			图片幻灯效果调用(框架)　　(读取前六张图片)<font color="#FF0000"><br>
						&lt;iframe name=xuaspic<%=lm%> src=<%=finddir(request.servervariables("URL"))%>js-pic2.asp?lm2=<%=lm2%>&n=20&amp;w=200&amp;h=160 marginwidth=1 marginheight=1 width=200 height=&quot;160&quot; scrolling=&quot;no&quot; 
			border=&quot;0&quot; frameborder=&quot;0&quot;&gt;&lt;/iframe&gt;</font></p>
			<p>
			你也可以直接打开，图片分页。　相关模版，在<a href="admin_set.asp#newspicxg">设置</a>中修改<font color="#FF0000"><br>
			<a href="js-pic.asp?lm=<%=lm%>" target=_blank><font color="#FF0000">js-pic.asp?lm=<%=lm%></font></a></font></td>
		</tr>
		<tr>
			<td bgcolor="#FFFFFF">　</td>
		</tr>
		<tr>
			<td bgcolor="#F5F5F5">piccode.asp?lm=<%=lm%>&lm2=<%=lm2%>&amp;n=20&amp;open=1&amp;w=150&amp;h=150&amp;nr=0&amp;nrtop=100&amp;pic=1&amp;bg=ffffff 
			　　说明<br>
			<br>
			lm2　　　　 栏目的ID，一般不用改动它。如果lm2=0，就显示所有的栏目。(lm2=0只针对JS调用)<br>
			n=20　　　　每个标题显示的字数。默认是20个字，如果n=0那么不显示标题<br>
			w=150　　　 图片的宽度，默认是150。<br>
			h=150　　　 图片的高度，默认是150。<br>
			open=1　　　是否新开窗口浏览新闻内容，0不新开　1为新开<br>
			nr=0　　　　是否在图片的右边显示一部分新闻内容 0为不显示 1为显示。默认为0<br>
			nrtop=100　 如果nr=1显示一部分的新闻内容，那么nrtop=100就是显示内容前多少字，默认是100。<br>
			pic=1　　　 显示多少张图片，pic=1，就是显示1张。<br>
			bg=ffffff　 新闻调用窗口的背景颜色，默认是白色(ffffff)，切记不要加#。<br>
			<br>
			JS调用参数：<br>
			x=1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 横排显示多少图片&nbsp; 
			默认是1<br>
			y=1　　　&nbsp;&nbsp; 竖排显示多少图片　默认是1</td>
		</tr>
		<tr>
			<td bgcolor="#FFFFFF">　</td>
		</tr>
		<tr>
			<td bgcolor="#F5F5F5"><b>新闻搜索代码：(支持标题和内容模糊搜索)</b><br>

			&lt;table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; width=&quot;100%&quot; 
			id=&quot;table1&quot;&gt;<br>
			&lt;form method=&quot;post&quot; action=&quot;so.asp&quot;&gt;&lt;tr&gt;<br>
			&lt;td&gt;&lt;input type=&quot;text&quot; name=&quot;word&quot; size=&quot;15&quot;&gt;&lt;input type=&quot;submit&quot; 
			value=&quot;搜索&quot; name=&quot;B1&quot;&gt;&lt;/td&gt;<br>
			&lt;/form&gt;&lt;/tr&gt;&lt;/table&gt;</td>
		</tr>
		<tr>
			<td bgcolor="#FFFFFF">　</td>
		</tr>
		<tr>
			<td bgcolor="#F5F5F5"><b>栏目名称调用：</b><br>
						<font color="#FF0000">&lt;script TYPE=&quot;text/javascript&quot; language=&quot;javascript&quot; 
			src=&quot;<%=finddir(request.servervariables("URL"))%>lmcode.asp?fs=1&amp;lm=<%=lm2%>&amp;ord=asc&quot;&gt;&lt;/script&gt;</font><p>
			fs=1　　　　竖排显示所有一级栏目和二级栏目<br>
			fs=2　　　　那么将是显示所有横排二级栏目。<br>
			fs=3　　　　横排显示所有有一级栏目<br>
			fs=4　　　　竖排显示栏目下面的子栏目。(lm=必须有值)<br>
			lm=0　　　　显示所有栏目，这里是指的一级栏目的编号。将显示一级栏目下面的所有二级栏目。（fs=2时有效）<br>
			ord=asc　　 排序，asc为正序，如果ord=desc，则是反序。</td>
		</tr>
		<tr>
			<td bgcolor="#F5F5F5">　</td>
		</tr>
		<tr>
			<td bgcolor="#F5F5F5">　</td>
		</tr>
	</table>
</div>
<%end if%>

<%
conn.close
set conn=nothing
%>