admin_mb.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

<!--#include file = admin_chk.asp -->
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<script src="Include/Common.js" type="text/javascript"></script>
<%
If Not ChkAdmin("Template") Then
	Call ArtErr("","")
End If

Dim Action
Action = LCase(Request("action"))

Select Case Trim(Action)
Case "del"
	Call delmb()
Case Else
	Call mblistmain()
End Select


sub delmb()

id=trim(request("id"))
if id<>"" then

   conn.Execute = "delete from newsmb where ID="&id
   
end if

    call ArtErr("<li>您的模版已删除。</li>","2")

end sub


sub mblistmain()
%>
<table cellpadding=2 cellspacing=1 border=0 width=98% class=tableBorder align=center>
	<tr align=center>
    <th height=25 align=center colspan="2"><strong>网站模版列表</strong></th></tr>
	<tr>
	<td width=12% height=30 class=forumRow>&nbsp;<strong>管理导航：</strong></td>
	<td width=88% height=30 class=forumRow><a href='admin_mb_add.asp'>添加栏目模版</a> | <a href='admin_mb.asp'>网站模版列表</a> | <a href='admin_mb_topdown.asp'>通用页首/页尾模版</a> | <a href='admin_mb_fddh.asp'>进入浮动导航模版</a> | <a href="admin_zt.asp?Action=Addzt">专题模版</a></td>
    </tr>
</TABLE>
	 <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
		<tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
			<td width=32% align=left><b><u>通用页首/页尾模版</u></b><br>
		    <font color="green">投稿、搜索、有情链接等通用模版</font></td>
		  <td height="25">[<a href="admin_mb_topdown.asp">通用页首/页尾调用设置</a>]&nbsp;&nbsp;<a target="_blank" href="../utg.asp"><font color="red">投稿</font></a>&nbsp;<a target="_blank" href="../so.asp"><font color="red">搜索</font></a>&nbsp;<a target="_blank" href="../Link-apply.asp"><font color="red">申请链接</font></a></td>
	  </tr>
		<tr bgcolor="#F7F7F7" onMouseOut="this.style.backgroundColor='#F7F7F7'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
		  <td width=32% align=left><b><u>浮动导航</u></b><br><font color="#FF0000">浮动导航设置</font></td>
		  <td height="25"><a href="admin_mb_fddh.asp">[进入浮动导航设置]</a></td>
	   </tr>
     <tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor='#FFFFFF'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
			<td width=32% align=left><b><u>新增专题模版</u></b><br>
		    <font color="green">专题模版管理</font></td>
		  <td height="25">[<a href="admin_zt.asp?Action=Addzt">新增专题模版</a>]</td>
	  </tr>
  </table>

 <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
      <tr>
   <td  class="bg_tr"align="center" height=25>栏目模版名称</td>
   <td class="bg_tr" align="center" height=25>操作</td>
  </tr>
<%
sql = "select id,title,lx from newsmb where lx='1' order by id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount<>0 then
for i=0 to rs.recordcount
%>
		<tr height="25" onMouseOver=overColor(this) onMouseOut=outColor(this) class="tdbg">
			<td height=25 bgcolor="#FFFFFF">&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("title")%></td>
			<td height=25 align="center" bgcolor="#FFFFFF"><a href="admin_mb_view.asp?id=<%=rs("id")%>" target=_blank>查看</a>　<a href="admin_mb_add.asp?id=<%=rs("id")%>&lx=<%=rs("lx")%>">修改</a>　<a onclick='{if(confirm("如果删除此模版，那么使用此模版的所有新闻，将无法正确浏览请重新设置此模版的栏目！删除模版后，不可恢复")){return true;}return false;}' href="?action=del&id=<%=rs("id")%>"><font color="red">删除</font></a></td>
		</tr>
<%
rs.movenext
if rs.eof then exit for
next
else 
 response.write "<tr><td>还没有记录！</td></tr>"
end if
%>
</table>
<% 
end sub

call CloseConn() 
call AdminPageEnd()
%>