admin_news_lm.asp
来自「1．理解Winsock编程模型； 2．掌握Winsock编程的基本方法」· ASP 代码 · 共 192 行
ASP
192 行
<%
if session("uname")="" then
%>
<script language="javascript">
if (confirm("您进行的是非法登录，请重新登录!"))
location.href="admin.asp";
</script>
<%
end if
%>
<!--#include file = 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>
<!--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 name="url" type="text" id="url" size="20">
<input type="submit" value="增加" name="B1">
</p>
<p align="center">选择标题类型：
<select name="moban">
<option value="0">不作为一级目录摸版页</option>
<option value="1">直接作为一级目录摸版页</option>
</select>
</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="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
aa=rs("id")
%>
<tr>
<td width="331" bgcolor="#EFEFEF">
<%
if rs("moban")="1" then
Set rs1 = Server.CreateObject("ADODB.RecordSet")
sql1 = "select * from News where lm='"&rs("id")&"'"
rs1.Open sql1,conn,3,2
if not rs1.eof then
response.write "<B><a href=news.asp?action=修改&id="&rs1("newsid")&"><font color="&rs("fontcolor")&">"&rs("lm")&"</font></a></b>"
else
response.write "<B><font color="&rs("fontcolor")&">"&rs("lm")&"</font></b>"
end if
else
response.write "<B><a href=admin_news_lm2.asp?id="&rs("id")&"&lm="&rs("lm")&"><font color="&rs("fontcolor")&">"&rs("lm")&"</font></a></b>"
end if
%>
<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="129" bgcolor="#EFEFEF"> <p align="center">
<%
'if rs("lm")<>"" then response.write "<a href=admin_news_lm2_add.asp?id="&rs("id")&">添加二级栏目</a>"
%>
<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>
</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")%>><font color=<%=rs3("fontcolor")%>><%=rs3("lm2")%></font></a></td>
<td width="125">文章：
<%
sql4 = "select * from news where lm2='"&rs3("id")&"' order by newsid desc"
Set rs4 = Server.CreateObject("ADODB.RecordSet")
rs4.Open sql4,conn,1,1
response.write rs4.recordcount
%>
</td>
<td width="129"> <p align="center"> <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>
</tr>
<%
rs3.movenext
wend
rs.movenext
if rs.eof then exit for
next
end if
%>
</table>
</td>
</tr>
<tr>
<td>
</td>
</tr>
</table>
</div>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?