

<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<html>

<head>
<!--#include file = language.asp -->
<title>增加新闻栏目</title>
<style>
<!--
a:link       { font-size: 9pt; font-family: 宋体; color: #000000;text-decoration: none; }
a:visited    { color: #000000; font-family: 宋体; font-size: 9pt;text-decoration: none; }
a:hover      { font-size: 9pt; font-family: 宋体; color: #000000;TEXT-DECORATION: underline; }
body         { font-family: 宋体; color: #000000; font-size: 9pt }
p            { color: #000000; font-family: 宋体; font-size: 9pt }
td           { font-size: 9pt; font-family: 宋体; color: #000000 }
input        { font-size: 9pt; font-family: 宋体; color: #000000 }

-->
</style>
</head>

<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" bgcolor="#EFEFDE">

<table border="0" width="100%" id="table1" height="80">
	<tr>
		<td>　</td>
	</tr>
	<tr>
		<td>
		<p align="center">
		<a href=admin_news_lm.asp><span style="font-size: 10.5pt">返回一级栏目</span></a></td>
	</tr>
	<tr>
		<td>
		<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="VBScript" Type="text/vbscript"><!--
function FrontPage_Form1_onsubmit()
  Set theForm = document.FrontPage_Form1

  If (theForm.lm2.value = "") Then
    MsgBox "请在 子栏目 域中输入值。", 0, "有效性验证错误"
    theForm.lm2.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.lm2.value) < 1) Then
    MsgBox "在 子栏目 域中，请至少输入 1 个字符。", 0, "有效性验证错误"
    theForm.lm2.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.lm2.value) > 10) Then
    MsgBox "在 子栏目 域中，请最多输入 10 个字符。", 0, "有效性验证错误"
    theForm.lm2.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If
  FrontPage_Form1_onsubmit = True 
End Function
--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_news_lm2_add_save.asp?id=<%=trim(request("id"))%>&lm=<%=trim(request("lm"))%>" name="FrontPage_Form1">
			<p align="center">
			&nbsp;<!--webbot bot="Validation" s-display-name="子栏目" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="10" --><input type="text" name="lm2" size="20" maxlength="10">&nbsp;&nbsp;
			<input type="submit" value="在“<%=trim(request("lm"))%>”增加子栏目" name="B1"></p>
		</form>
		</td>
	</tr>
</table>
<div align="center">
<table border="1" width="600" id="table2" cellpadding="4" style="border-collapse: collapse" cellspacing="0" bordercolor="#999999">
	<tr>
		<td align="center" width="341" bgcolor="#CCCCCC" background="../images/topBar_bg.gif"><b>“<%=trim(request("lm"))%>”的子栏目</b></td>
		<td align="center" width="108" bgcolor="#CCCCCC" background="../images/topBar_bg.gif"><b>新闻数量</b></td>
		<td align="center" width="114" bgcolor="#CCCCCC" background="../images/topBar_bg.gif">
		<b>操作</b></td>
	</tr>
<%
id=trim(request("id"))
lll="<img src=../images/001.gif border=0 height=20 width=17>"
sql = "select * from lm where lmid='"&id&"' 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="341" height="29">
		<%
		  response.write "<font color=999999>(编号:"&rs("id")&")</font>&nbsp;&nbsp;<a href=admin_news_list.asp?lm="&rs("id")&">"&rs("lm2")&"</a>"

		%></td>
		<td width="108" height="29">
		<p align="center"><%
		sqll="select lm,id from news where lm2='"&rs("id")&"'"
		Set rss = Server.CreateObject("ADODB.RecordSet")
		rss.Open sqll,conn,1,1
		xwsl=rss.recordcount
		response.write xwsl
		rss.close
		set rss=nothing
		%></td>
		<td width="114" height="29">
		<p align="center">

		<a href="admin_lm2_edit.asp?id=<%=rs("id")%>&xwsl=<%=xwsl%>&lm1id=<%=trim(request("id"))%>&lmname=<%=trim(request("lm"))%>">修改</a>　<a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="admin_lm_del2.asp?ID=<%=rs("ID")%>&lm=<%=trim(request("lm"))%>&lmid=<%=trim(request("id"))%>">删除</a></td>
	</tr>
<%
  rs.movenext
  if rs.eof then exit for
 next
end if
%>
</table>

</div>

</body>

</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>