📄 admin_code_ls.asp
字号:
<!--#include file = admin_chk.asp -->
<%
If Not ChkAdmin("JsScript") Then
Call ArtErr("","")
End If
%>
<!--#include file = Include/NIncHeads.asp -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<script language="JavaScript">
<!--
//显示图层
function show_pic_cho(i)
{
var xx=document.form1.icon.options[document.form1.icon.selectedIndex].value;
if(xx=="0")
i.style.display = ""
else
i.style.display = "none"
}
//显示图片右边内容字数
function show_pic_nrtop(i)
{
var xx=document.form1.nr.options[document.form1.nr.selectedIndex].value;
if(xx=="0")
i.style.display = "none"
else
i.style.display = ""
}
//输出图片
function out_to_picurl()
{
document.form1.picurl.value=document.form1.picicon.options[document.form1.picicon.selectedIndex].value;
document.form1.ico_img.src="../"+document.form1.picicon.options[document.form1.picicon.selectedIndex].value;
}
//输出自选颜色
function show_bgcolor()
{
document.form1.my_bgcolor.value=document.form1.bg.options[document.form1.bg.selectedIndex].value;
}
// -->
</script>
<!-- 开始 -->
<%
'定义一些初始值,默认值
'小图标
if request("picurl")="" then
picurl="images/art.gif"
else
picurl=request("picurl")
end if
'字体大小
if request("font")="" then
font=9
else
font=request("font")
end if
'行距大小
if request("line")="" then
line=12
else
line=request("line")
end if
'标题行的字数
if request("n")="" then
n=40
else
n=request("n")
end if
'默认标题行数
if request("list")="" then
list=5
else
list=request("list")
end if
'默认框架的宽度:
if request("frm_width")="" then
frm_width=270 '默认宽度
else
frm_width=request("frm_width")
end if
'框架的高度:
if request("frm_height")="" then
frm_height=184 '默认高度
else
frm_height=request("frm_height")
end if
'框架的边界宽度:
if request("frm_M_width")="" then
frm_M_width=1 '默认宽度
else
frm_M_width=request("frm_M_width")
end if
'框架的边界高度:
if request("frm_M_height")="" then
frm_M_height=1 '默认高度
else
frm_M_height=request("frm_M_height")
end if
%>
</head>
<%call Heads_sprict()%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" id="table4">
<form method="POST" action="admin_code_ls.asp" name="form1" webbot-action="--WEBBOT-SELF--"><tr>
<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr class="tdbg">
<td width="84" height="23" align="center" class="butext" >选择栏目</td>
<td width="638" colspan="3" height="23">
<!-- new -->
<select size="1" id="id1" name="D1">
<option value="0" >请选择的栏目(默认全部)</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
if trim(request("D1"))="lm="&rs("id") then
selected_1=" selected"
else
selected_1=" "
end if
response.write "<option value='lm="&rs("id")&"'"&selected_1&" >编号:("&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
if trim(request("D1"))="lm="&rs("id")&"&lm2="&rs2("id") then
selected_2=" selected"
else
selected_2=" "
end if
%>
<option value='lm=<%=rs("id")%>&lm2=<%=rs2("id")%>' <%=selected_2%>> ├(编号:<%=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
if trim(request("D1"))="lm2="&rs33("id") then
selected_3=" selected"
else
selected_3=" "
end if
%>
<option value='lm2=<%=rs33("id")%>' <%=selected_3%>> ├(编号:<%=rs33("id")%>)<%=rs33("lm3")%></option>
<%
rs33.movenext
wend
%>
<%
rs2.movenext
wend
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>(<span class="redtext">lm2=0表示显示所有栏目</span>)
<!-- end new -->
</td>
</tr>
<tr class="tdbg">
<td width="84" height="23" align="center" class="butext">按最新显示</td>
<td width="245" height="23"><select size="1" name="hot">
<option value="0" <%if request("hot")=0 then response.write "selected"%>>hot=0-最新加入的显示在前面</option>
<option value="1" <%if request("hot")=1 then response.write "selected"%>>hot=1-阅读量最高的显示在前面</option>
</select></td>
<td width="80" height="23" align="center" class="butext">推荐新闻</td>
<td width="322" height="23"><select size="1" name="TJ">
<option value="0" <%if request("TJ")=0 then response.write "selected"%>>tj=0-显示所有新闻</option>
<option value="1" <%if request("TJ")=1 then response.write "selected"%>>tj=1-只显示推荐新闻</option>
</select></td>
</tr>
<tr class="tdbg">
<td width="84" height="23" align="center" class="butext">显示时间</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -