📄 admin_code.asp
字号:
<%
if session("admin__user")="" then
Response.Redirect "login.asp?id=8"
end if
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>
<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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<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 -->
</head>
<p align="center">
</p>
<p align="center">
<select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1">
<option value>请选择栏目</option>
<%
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("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 int(lmid)=rs2("id") then response.write " selected" %>> ├(编号:<%=rs2("id")%>)<%=rs2("lm2")%></option>
<%
rs2.movenext
wend
rs.movenext
wend
rs.close
set rs=nothing
%>
</select></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"><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&hot=0&new=1&open=1&n=20&more=1&t=0"></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 栏目的ID，一般不用改动它。<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">
如果news=1 就显示。news=0就不显示。<br>
bg=ffffff 新闻调用窗口的背景颜色，默认是白色(ffffff)，切记不要加#。</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"></script></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，一般不用改动它。<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">q</td>
</tr>
<tr>
<td bgcolor="#F5F5F5"><b>新闻搜索代码：(支持标题和内容模糊搜索)</b><br>
<form method="post" action="<%=finddir(request.servervariables("URL"))%>so.asp"><br>
<input type="text" name="word" size="15"><input type="submit"
value="搜索" name="B1"><br>
</form></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td bgcolor="#F5F5F5"><b>栏目名称调用：</b><br>
<iframe name=xuaslmnews<%=id%> src=<%=finddir(request.servervariables("URL"))%>lmcode.asp?lmname=0&open=1&bg=ffffff
marginwidth=1 marginheight=1 width=100% height=20 scrolling=no
border=0 frameborder=0></iframe></td>
</tr>
</table>
</div>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -