📄 admin_news_lm.asp
字号:
<%
if session("admin__user")="" then
Response.Redirect "login.asp?id=8"
end if
%>
<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
<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" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="760" >
<tr>
<td>
<center>
<table border="0" width="750" id="table1" height="80">
<tr>
<td height=25> </td>
</tr>
<tr>
<td height=35>
<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=22 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" onsubmit="return FrontPage_Form2_Validator(this)" language="JavaScript" name="FrontPage_Form2"><tr>
<td>
<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><tr>
<td>
</td>
</tr></form>
</table>
<div align="center">
<table border="1" width="730" id="table2" cellpadding="4" style="border-collapse: collapse" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td align="center" width="331" background="images/topBar_bg.gif"><b>栏目名称</b></td>
<td align="center" width="125" background="images/topBar_bg.gif"><b>子栏目</b></td>
<td align="center" width="130" background="images/topBar_bg.gif"><b>模版</b></td>
<td align="center" width="129" background="images/topBar_bg.gif"><b>操作</b></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><a href=admin_news_lm2.asp?id="&rs("id")&"&lm="&rs("lm")&">"&rs("lm")&"</a></b>"
%><font color=666666>[点击进入]</font></td>
<td width="125" 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="130" 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="129" bgcolor="#EFEFEF">
<p align="center">
<a href="admin_lm_mb.asp?id=<%=rs("ID")%>&lmname=<%=rs("lm")%>">模版</a>
<%
'if rs("lm")<>"" then response.write "<a href=admin_news_lm2_add.asp?id="&rs("id")&">添加二级栏目</a>"
%>
<%
if session("dj")="1" then
%>
<a href="admin_lm_edit.asp?id=<%=rs("id")%>&xwsl=<%=xwsl%>">修改</a> <a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="admin_lm_del.asp?ID=<%=rs("ID")%>&lm=<%=rs("lm")%>">删除</a></td>
<%
end if
%>
</tr>
<%
sql3 = "select * from lm where lmid='"&rs("ID")&"' 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")%>><%=rs3("lm2")%></a></td>
<td width="125">文章：
<%
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="130" 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="129">
<p align="center">
<%
if session("dj")="1" then
%>
<a href="admin_lm_mb.asp?id=<%=rs3("ID")%>&lmname=<%=rs3("lm2")%>">模版</a> <a href="admin_lm2_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_lm_del2.asp?ID=<%=rs3("ID")%>&lmid=<%=trim(request("id"))%>">删除</a></td>
<%
end if
%>
</tr>
<%
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 + -