📄 admin_news_lm.asp
字号:
<%
if Request.Cookies("admindj")<>"1" then
Response.Write "<BR><BR><BR><BR><center>权限不足，你没有此功能的管理权限"
Response.end
end if
%>
<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<html>
<head>
<!--#include file = language.asp -->
<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>
</head>
<body topmargin="0" bgcolor="#ffffff" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<%
action=trim(request("action"))
lmid=trim(request("lmid"))
lmname=trim(request("lmname"))
delid=trim(request("delid"))
if action="lm2add" and lmid<>"" and lmname<>"" then
conn.Execute "insert into [lm] ([lmid],[lm2]) values('"&lmid&"','"&lmname&"')"
action=""
elseif action="lm3add" and lmid<>"" and lmname<>"" then
conn.Execute "insert into [lm] ([lmid],[lm3]) values('"&lmid&"','"&lmname&"')"
action=""
elseif delid<>"" then
conn.Execute "delete from [news] where lm='"&delid&"' or lm2='"&delid&"' or lm3='"&delid&"' "
conn.Execute "delete from [lm] where ID="&CInt(delid)
conn.Execute "delete from [lm] where lmID='"&delid&"' "
end if
%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="760" >
<tr>
<td>
<center>
<table border="0" width="100%" id="table1" height="80" cellspacing="0" cellpadding="0">
<tr>
<td height=25> </td>
</tr>
<tr>
<td height=25 background="../images/bj3.jpg">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="744" id="table3">
<form method="POST" action="admin_news_lm_hp.asp"><tr>
<td width="744" height=20 align=center>
<select size="1" name="lm21">
<%
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 "<optgroup label=(ID:"&rs("id")&")"&rs("lm")&">"
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='<%=rs("id")%>|<%=rs2("id")%>'>├(编号:<%=rs2("id")%>)<%=rs2("lm2")%></option>
<%
rs2.movenext
wend
rs.movenext
wend
rs.close
set rs=nothing
%>
</select> 合并到 <select size="1" name="lm22">
<%
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 "<optgroup label=(ID:"&rs("id")&")"&rs("lm")&">"
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='<%=rs("id")%>|<%=rs2("id")%>'>├(编号:<%=rs2("id")%>)<%=rs2("lm2")%></option>
<%
rs2.movenext
wend
rs.movenext
wend
rs.close
set rs=nothing
%>
</select><input type="submit" value="合并" name="B2"></td>
</tr></form>
</table>
</div>
</td>
</tr>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form2_Validator(theForm)
{
if (theForm.lm.value == "")
{
alert("请在 lm 域中输入值。");
theForm.lm.focus();
return (false);
}
if (theForm.lm.value.length < 1)
{
alert("在 lm 域中，请至少输入 1 个字符。");
theForm.lm.focus();
return (false);
}
if (theForm.lm.value.length > 12)
{
alert("在 lm 域中，请最多输入 12 个字符。");
theForm.lm.focus();
return (false);
}
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_news_lm_add_save.asp" name="FrontPage_Form2" onsubmit="return FrontPage_Form2_Validator(this)" language="JavaScript"><tr>
<td background="../images/bj3.jpg" height="25">
<p align="center">
<span style="font-size: 9pt">增加一级栏目</span> <!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="12" --><input type="text" name="lm" size="20" maxlength="12">
<input type="submit" value="增加" name="B1"></p>
</td>
</tr></form>
<%
if trim(request("action"))<>"" then
%>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form3_Validator(theForm)
{
if (theForm.lmname.value == "")
{
alert("请在 子栏目名称 域中输入值。");
theForm.lmname.focus();
return (false);
}
if (theForm.lmname.value.length < 1)
{
alert("在 子栏目名称 域中，请至少输入 1 个字符。");
theForm.lmname.focus();
return (false);
}
if (theForm.lmname.value.length > 40)
{
alert("在 子栏目名称 域中，请最多输入 40 个字符。");
theForm.lmname.focus();
return (false);
}
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_news_lm.asp?lmid=<%=trim(request("lmid"))%>&action=<%=trim(request("action"))%>" name="FrontPage_Form3" onsubmit="return FrontPage_Form3_Validator(this)" language="JavaScript"><tr>
<td background="../images/bj4.jpg" height="25">
<p align="center">
<%=trim(request("oldlm"))%> <!--webbot bot="Validation" s-display-name="子栏目名称" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="40" --><input type="text" name="lmname" size="20" maxlength="40"> <input type="submit" value="添加子栏目" name="B3">
<a href="admin_news_lm.asp">取消添加子栏目</a></p>
</td>
</tr></form>
<%
end if
%>
</table>
<div align="center">
<table border="1" width="100%" id="table2" cellpadding="3" style="border-collapse: collapse" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td align="center" width="331" background="../images/bj5.jpg" height="25">
<font color="#FFFFFF">栏目名称</font></td>
<td align="center" width="99" background="../images/bj5.jpg" height="25">
<font color="#FFFFFF">子栏目</font></td>
<td align="center" width="122" background="../images/bj5.jpg" height="25">
<font color="#FFFFFF">模版(<a href="admin_mb.asp"><font color="#FFFFFF">管理</font></a>)</font></td>
<td align="center" width="176" background="../images/bj5.jpg" height="25">
<font color="#FFFFFF">操作</font></td>
</tr>
<%
lll="<img src=../images/001.gif border=0 height=20 width=17>"
sql = "select * from lm where lm<>'' order by id asc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount<>0 then
for i=0 to rs.recordcount
%>
<tr>
<td width="331" bgcolor="#EFEFEF">
<%
response.write "<B><font color="&rs("fontcolor")&">"&rs("lm")&"</font></b>"
%><font color=999999>[<a href=admin_news_lm.asp?lmid=<%=rs("id")%>&action=lm2add&oldlm=<%=rs("lm")%>><font color="#999999">添加二级栏目</font></a>]</font><font color="#0000FF">(</font><a href="../rssnews.asp?lm=<%=rs("id")%>" target=_blank><font color="#0000FF">RSS</font></a><font color="#0000FF">)</font></td>
<td width="99" bgcolor="#EFEFEF">
<p align="center">
<%
sql2 = "select * from lm where lmid='"&rs("id")&"'"
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
response.write rs2.recordcount&"个"
%>
</td>
<td width="122" bgcolor="#EFEFEF" align=center>
<%
mb=rs("mb")
if mb<>"" then
sql5 = "select * from newsmb where id="&mb
Set rs5 = Server.CreateObject("ADODB.RecordSet")
rs5.Open sql5,conn,1,1
if rs5.recordcount<>0 then
Response.Write rs5("title")
else
Response.Write "<font color=blue>模版没有或已删除</font>"
end if
rs5.close
set rs5=nothing
else
Response.Write "<font color=blue>模版不正确</font>"
end if
%>
</td>
<td width="176" bgcolor="#EFEFEF">
<p align="center">
<%
if Request.Cookies("admindj")="1" then
%><a href="admin_lm_mb.asp?id=<%=rs("ID")%>&lmname=<%=rs("lm")%>">模版</a> <a href=../admin_htmlsc.asp?lm=<%=rs("id")%> title="将此栏目及子栏目所有文章生成静态HTML">静</a> <a href=../admin_htmlqx.asp?lm=<%=rs("id")%> title="将此栏目及子栏目所有文章取消静态HTML">动</a> <a href="admin_lm_edit.asp?id=<%=rs("id")%>&xwsl=<%=xwsl%>">修改</a> <a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="admin_news_lm.asp?delid=<%=rs("ID")%>&lm=<%=rs("lm")%>">删</a> <a href=admin_code.asp?lm=<%=rs("id")%>>调用</a></td>
<%
end if
%>
</tr>
<%
sql3 = "select * from lm where lmid='"&rs("ID")&"' and lm2<>'' order by id asc"
Set rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.Open sql3,conn,1,1
while not rs3.eof
%>
<tr>
<td width="331"> ├ <a href=admin_news_list.asp?lm=<%=rs3("id")%>><font color=<%=rs3("fontcolor")%>><%=rs3("lm2")%></font></a><font color="#999999">[<a href=admin_news_lm.asp?lmid=<%=rs3("id")%>&action=lm3add&oldlm=<%=rs3("lm2")%>><font color="#999999">添加三级栏目</font></a>]</font><font color="#0000FF">(</font><a href="../rssnews.asp?lm=<%=rs3("id")%>" target=_blank><font color="#0000FF">RSS</font></a><font color="#0000FF">)</font></td>
<td width="99">文章：
<%
sql4 = "select * from news where lm2='"&rs3("id")&"' order by id desc"
Set rs4 = Server.CreateObject("ADODB.RecordSet")
rs4.Open sql4,conn,1,1
response.write rs4.recordcount
%>
</td>
<td width="122" align=center>
<%
mb=rs3("mb")
if mb<>"" then
sql5 = "select * from newsmb where id="&mb
Set rs5 = Server.CreateObject("ADODB.RecordSet")
rs5.Open sql5,conn,1,1
if rs5.recordcount<>0 then
Response.Write rs5("title")
else
Response.Write "<font color=blue>模版没有或已删除</font>"
end if
rs5.close
set rs5=nothing
else
Response.Write "<font color=blue>模版不正确</font>"
end if
%>
</td>
<td width="176">
<p align="center">
<%
if Request.Cookies("admindj")="1" then
%><a href="admin_lm_mb.asp?id=<%=rs3("ID")%>&lmname=<%=rs3("lm2")%>">模版</a> <a href=../admin_htmlsc.asp?lm=<%=rs3("id")%> title="将此栏目及子栏目所有文章生成静态HTML">静</a> <a href=../admin_htmlqx.asp?lm=<%=rs3("id")%> title="将此栏目及子栏目所有文章取消静态HTML">动</a> <a href="admin_lm_edit.asp?id=<%=rs3("id")%>&xwsl=<%=rs4.recordcount%>&lm1id=<%=trim(request("id"))%>&lmname=<%=trim(request("lm"))%>">修改</a> <a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="admin_news_lm.asp?delid=<%=rs3("ID")%>&lmid=<%=trim(request("id"))%>">删</a> <a href=admin_code.asp?lm=<%=rs("id")%>>调用</a></td>
<%
end if
%>
</tr>
<%
Set rs33 = Server.CreateObject("ADODB.RecordSet")
rs33.Open "select * from [lm] where lmid='"&rs3("id")&"' and lm3<>'' order by id asc",conn,1,1
while not rs33.eof
%>
<tr style='background-color: #F4F4F4'>
<td width="331"> ├ <a href=admin_news_list.asp?lm=<%=rs33("id")%>><font color=<%=rs33("fontcolor")%>><%=rs33("lm3")%></font></a><font color="#0000FF">(</font><a href="../rssnews.asp?lm=<%=rs33("id")%>" target=_blank><font color="#0000FF">RSS</font></a><font color="#0000FF">)</font></td>
<td width="99">
<%
Set rs331 = Server.CreateObject("ADODB.RecordSet")
rs331.Open "select id,lm3 from [news] where lm3='"&rs33("id")&"' order by id desc",conn,1,1
Response.Write "文章： "&rs331.recordcount
%>
</td>
<td width="122" align=center>
<%
mb=rs33("mb")
if mb<>"" then
sql5 = "select * from newsmb where id="&mb
Set rs5 = Server.CreateObject("ADODB.RecordSet")
rs5.Open sql5,conn,1,1
if rs5.recordcount<>0 then
Response.Write rs5("title")
else
Response.Write "<font color=blue>模版没有或已删除</font>"
end if
rs5.close
set rs5=nothing
else
Response.Write "<font color=blue>模版不正确</font>"
end if
%>
</td>
<td width="176" align=center><a href="admin_lm_mb.asp?id=<%=rs33("ID")%>&lmname=<%=rs33("lm3")%>">模版</a> <a href=../admin_htmlsc.asp?lm=<%=rs33("id")%> title="将此栏目及子栏目所有文章生成静态HTML">静</a> <a href=../admin_htmlqx.asp?lm=<%=rs33("id")%> title="将此栏目及子栏目所有文章取消静态HTML">动</a> <a href="admin_lm_edit.asp?id=<%=rs33("id")%>&xwsl=<%=rs331.recordcount%>&lm1id=<%=trim(request("id"))%>&lmname=<%=trim(request("lm"))%>">修改</a> <a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="admin_news_lm.asp?delid=<%=rs33("id")%>">删</a> <a href=admin_code.asp?lm2=<%=rs("id")%>>调用</a></td>
</tr>
<%
rs33.movenext
wend
rs3.movenext
wend
rs.movenext
if rs.eof then exit for
next
end if
%>
</table>
</td>
</tr>
<tr>
<td>
</td>
</tr>
</table>
</div>
</div>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -