?? admin_news_lm2.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>增加新聞欄目</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">
<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="JavaScript" Type="text/javascript"><!--
function FrontPage_Form1_Validator(theForm)
{
if (theForm.lm2.value == "")
{
alert("請在 子欄目 域中輸入值。");
theForm.lm2.focus();
return (false);
}
if (theForm.lm2.value.length < 1)
{
alert("在 子欄目 域中，請至少輸入 1 個字符。");
theForm.lm2.focus();
return (false);
}
if (theForm.lm2.value.length > 10)
{
alert("在 子欄目 域中，請最多輸入 10 個字符。");
theForm.lm2.focus();
return (false);
}
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_news_lm2_add_save.asp?id=<%=trim(request("id"))%>&lm=<%=trim(request("lm"))%>" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
<p align="center">
<!--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">
<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> <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
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -