📄 admin_news_lm.asp
字号:
}
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);
}
//豪气冲天-增加 ，判断目录存放的名称。不允许一些特殊符号和中文名称。
var reg=/[^A-Za-z0-9_-]/ //豪增加---包含大小写字母A-Z,a-z,数字0-9和下划线_,中划线-
if (theForm.lm_path.value.length >=1) //填空值时,自动取值等于lmid,所以不管空值
{
if (reg.test(theForm.lm_path.value)==true)
{
alert("目录名称只允许英文字母、数字、下划线和中划线!");
theForm.lm_path.focus();
return (false);
}
}
//豪气冲天-增加结束
return (true);
}
//--></script>
<form method="POST" action="?Action=lmadd" onSubmit="return FrontPage_Form2_Validator(this)" language="JavaScript" name="FrontPage_Form2"><tr>
<td class="Forumrow" height="30"><b><u>增加<font color="#FF0000">一级</font>栏目：</u></b></td>
<td class="Forumrow" height="30"><input type="text" name="lm" size="25" maxlength="12">
<font color="green">新闻存放目录：</font> <input type="text" name="lm_path" size="25" maxlength="12">
<input type="submit" value=" 增 加 " name="B1">
</td>
</tr></form>
<%
if trim(request("act"))<>"" then
%>
<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);
}
//豪气冲天-增加 ，判断目录存放的名称。不允许一些特殊符号和中文名称。
var reg=/[^A-Za-z0-9_-]/ //豪增加---包含大小写字母A-Z,a-z,数字0-9和下划线_,中划线-
if (theForm.lm_path.value.length >=1) //填空值时,自动取值等于lmid,所以不管空值
{
if (reg.test(theForm.lm_path.value)==true)
{
alert("目录名称只允许英文字母、数字、下划线和中划线!");
theForm.lm_path.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("act"))%>" onSubmit="return FrontPage_Form3_Validator(this)" language="JavaScript" name="FrontPage_Form3"><tr>
<td height="30" class="forumRaw"><b><u>添加子栏目：</u></b></td>
<td height="30" class="forumRaw">
┕ [<%=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">
<!-- 豪增加:2006-8-26日 -->
<font color="green">新闻存放目录</font> <input type="text" name="lm_path" size="20" maxlength="12">
<input type="hidden" name="oldlm" size="20" maxlength="12" value="<%=trim(request("oldlm"))%>">
<!-- 补丁增加二、三级栏目后，就没有oldlm显示。 -->
<!-- 豪增加结束: 2006-8-26日 -->
<input type="submit" value="添加子栏目" name="B3">
<a href="admin_news_lm.asp">取消</a></td>
</tr></form>
<%
end if
%>
</table>
<table width="100%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#658BD8" bgcolor="#FFFFFF">
<tr><td align="center" width="40" background="../images/bg1.gif" height="25">
<font color="#FFFFFF">ID</font></td>
<td align="center" width="331" background="../images/bg1.gif" height="25">
<font color="#FFFFFF">栏目名称</font></td>
<td align="center" width="125" background="../images/bg1.gif" height="25">
<font color="#FFFFFF">子栏目</font></td>
<td align="center" width="130" background="../images/bg1.gif" height="25">
<font color="#FFFFFF">模版</font></td>
<td align="center" width="129" background="../images/bg1.gif" 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_desc,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 align="center" bgcolor="#EFEFEF"><font color="#FF9900"><%=rs("id")%></font></td>
<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")%>&act=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="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="<%=list_html_url(rs("id"))%>" target=_blank >预览</a>
<a href="admin_news_lm_edit.asp?id=<%=rs("id")%>&xwsl=<%=xwsl%>">修改</a> <a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="admin_news_lm.asp?Action=del&delid=<%=rs("ID")%>&lm=<%=rs("lm")%>">删除</a></td>
</tr>
<%
sql3 = "select * from lm where lmid='"&rs("ID")&"' and lm2<>'' order by id_desc,id asc"
Set rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.Open sql3,conn,1,1
while not rs3.eof
%>
<tr>
<td align="center"><font color="#FF9900"><%=rs3("id")%></font></td>
<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")%>&act=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="125">文章：
<%
sql4 = "select * from news where lm2='"&rs3("id")&"'and sh=1 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">
<a href="<%=list_html_url(rs3("id"))%>" target=_blank >预览</a><a href="admin_news_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?Action=del&delid=<%=rs3("ID")%>&lmid=<%=trim(request("id"))%>">删除</a></td>
<%
rs4.close:set rs4=nothing
%>
</tr>
<%
Set rs33 = Server.CreateObject("ADODB.RecordSet")
rs33.Open "select * from [lm] where lmid='"&rs3("id")&"' and lm3<>'' order by id_desc,id asc",conn,1,1
while not rs33.eof
%>
<tr >
<td align="center"><font color="#FF9900"><%=rs33("id")%></font></td>
<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="125">
<%
Set rs331 = Server.CreateObject("ADODB.RecordSet")
rs331.Open "select id,lm3,sh from [news] where lm3='"&rs33("id")&"'and sh=1 order by id desc",conn,1,1
Response.Write "文章： "&rs331.recordcount
%>
</td>
<td width="130" 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="129" align=center><a href="<%=list_html_url(rs33("id"))%>" target=_blank >预览</a> <a href="admin_news_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?Action=del&delid=<%=rs33("id")%>">删除</a></td>
</tr>
<%
rs331.close:set rs331=nothing
rs33.movenext
wend
rs33.close:set rs33=nothing
rs3.movenext
wend
rs3.close:set rs3=nothing
rs.movenext
if rs.eof then exit for
next
end if
rs.close:set rs=nothing
%>
</table></td></tr></table>
<%
End sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -