📄 admin_code.asp
字号:
<!--#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 -->
<!--#include file = titleb.asp -->
</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>
<option value=?lm=0 <% if trim(request("lm"))="0" then Response.Write "selected"%>>全部栏目</option>
<%
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
%>
<option value='?lm=<%=rs("id")%>' <% if clng(lmid)=clng(rs("id")) then response.write " selected" %>>(编号:<%=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=<%=rs2("id")%>' <% if clng(lmid)=clng(rs2("id")) then response.write " selected" %>> ├(编号:<%=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")%>?lm=<%=rs33("id")%>' <% if clng(lmid)=clng(rs33("id")) then response.write " selected" %>> ├(编号:<%=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="800" id="table1" cellspacing="0" cellpadding="5" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
<td bgcolor="#F5F5F5"><b>新闻列表调用代码：</b><br>
框架：<br>
<font color="#FF0000"><iframe name=xuasnews<%=lm%> src=<%=finddir(request.servervariables("URL"))%>newscode.asp?lm2=<%=lm2%>&hot=0&tj=0&t=0&week=0&font=9&line=12&lmname=0&n=30&list=10&more=1&hit=0&open=1&icon=1&new=0&bg=ffffff
marginwidth=1 marginheight=1 width=270 height="184" scrolling="no"
border="0" frameborder="0"></iframe></font><br>
<br>
JS调用：<br>
<font color="#FF0000"><script TYPE="text/javascript" language="javascript" src="<%=finddir(request.servervariables("URL"))%>newscodejs.asp?lm2=<%=lm2%>&list=10&icon=1&tj=0&font=9&hot=0&new=1&line=2&lmname=0&open=1&n=20&more=1&t=0&week=0&zzly=0&hit=0&pls=0"
charset='gb2312'></script><br>
<br>
</font>头条新闻调用<font color="#FF0000"><br>
<script TYPE="text/javascript" language="javascript" src="<%=finddir(request.servervariables("URL"))%>newscode-news.asp?id=0&font=9&nr=0&nrtop=150&nrcolor=999999&titleface=黑体&titlesize=16&titlen=30&titlebold=700&titlecolor=FF0000"
charset='gb2312'></script></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&more=1 说明<p>
lm2 或 lm 栏目的ID，一般不用改动它。如果lm2=0，那么显示所有栏目的新闻。<br>
hot=0 是否按新闻的点击数量排序，热点新闻。0为普通排序，1为按点击次数排序。<br>
tj=0 显示推荐新闻，0不显示，1为显示推荐新闻。<br>
t=0 是否在标题后面显示新闻的添加修改时间,如果等于0不显示，1/2/3/4种模式显示<br>
week=0 是否在标题后面显示新闻的添加星期.0不显示，1显示。<br>
font=9 设置标题的字号，默认是9，可以设置为10.5或者12。<br>
line=12 设置标题的行间距，默认是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">
如果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"><iframe name=xuaspic<%=lm%> src=<%=finddir(request.servervariables("URL"))%>piccode.asp?lm2=<%=lm2%>&n=20&open=1&w=150&h=150&nr=0&nrtop=100&pic=1&bg=ffffff
marginwidth=1 marginheight=1 width=270 height="184" scrolling="no"
border="0" frameborder="0"></iframe><br>
</font><br>
JS调用：<br>
<font color="#FF0000"><script TYPE="text/javascript" language="javascript"
src="<%=finddir(request.servervariables("URL"))%>piccodejs.asp?lm2=<%=lm2%>&x=1&y=1&w=100&h=100&open=1&n=20"
charset='gb2312'></script></font><p>
图片幻灯效果调用 (读取前六张图片，幻灯片只支持JPG格式图片)<font color="#FF0000"><br>
<script TYPE="text/javascript" language="javascript" src="<%=finddir(request.servervariables("URL"))%>js-pic2.asp?LM=<%=lm2%>&w=200&h=180"
charset='gb2312'></script></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%>&n=20&open=1&w=150&h=150&nr=0&nrtop=100&pic=1&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 横排显示多少图片
默认是1<br>
y=1 竖排显示多少图片 默认是1</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td bgcolor="#F5F5F5"><b>新闻搜索代码：(支持标题模糊搜索)</b><br>
<table border="0" cellpadding="0" cellspacing="0" width="100%"
id="table1"><br>
<form method="post" action="so.asp"><tr><br>
<td><input type="text" name="word" size="15"><input type="submit"
value="搜索"></td><br>
</tr></form></table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td bgcolor="#F5F5F5"><b>栏目名称调用：</b><br>
<font color="#FF0000"><script TYPE="text/javascript" language="javascript"
src="<%=finddir(request.servervariables("URL"))%>lmcode.asp?fs=1&lm=<%=lm2%>&ord=asc"></script></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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -