⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 html_mb_list.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
字号:
<html>
<head>
<title>管理中心 - 晓宇听幽 网站内容管理系统</title>
<meta copy="程序制作:xoyu(QQ:5964887)www.xoyu.com">
<link rel="stylesheet" href="admin.css" type="text/css">
<%Admin="InfoMb"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用,请勿非法修改,
'# 转载,散播,或用于其他图利行为,并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本,请您通知我们,以便我们能够知晓!
'# 如果可能,请在您的网站做上我们的链接,希望能给予合作。谢谢!
'#################################################################
'# 程序名称:晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称:xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间:2003-7-10
'# 程序完成时间:2003-9-11
'# 最后修改时间:2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权,不要删除以上的版权声明部分,谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
  if request.form("operation")="DEL" then
    num=request.form("ID").Count
    for i=1 to num
      conn.execute("delete from mb where ID="&request.form("ID")(i))
    next
  end if
  mbtype1=request("mbtype")
   set rs=server.createobject("adodb.recordset")
   sql="select*from mb where mbtype='"&mbtype1&"' order by id"
   rs.open sql,conn,1
  page=request.querystring("page")
  if page<=1 or page="" then page=1
  rs.pagesize=15
  for i=1 to rs.pagesize*(page-1)
    if not rs.eof then
	  rs.movenext
	end if
  next
%>
<form name=form method=post action="">
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
function Isvalidity(val,name){
if (val.value!='' && (isNaN(val.value) || val.value<=0))
    {alert(name+"应填有效数字!");
    val.value="";
     val.focus();}
}
</script>
</head>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
      <tr>
        <th nowrap width="100%"><b>&nbsp;<img border="0" src="images/t_css.gif">
        <%if mbtype1="1" then%>分类模版<% end if %>
      <%if mbtype1="2" then%>文章模版<% end if %>
      <%if mbtype1="3" then%>专题模版<% end if %>管理</b></th>
      </tr>
    </table><br>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
    <tr>
      <td width="10%" align="center" class="forumrow">ID</td>
      <td width="60%" align="center" class="forumrow">模&nbsp; 板 名 称</td>
      <td width="10%" align="center" class="forumrow">模板类型</td>
      <td width="10%" align="center" nowrap class="forumrow">修改操作</td>    
      <td width="10%" align="center" nowrap class="forumrow">选择</td>    
    </tr>
<%if rs.EOF then
	   response.write "还没有模版"
   else
  for i=1 to rs.pagesize
    if rs.eof then exit for
%>
    <tr>
      <td width="10%" align="center" class="forumrow"><%=rs("id")%></a></td>
      <td width="60%" class="forumrow"><%=rs("mbname")%></a></td>
      <input type=hidden Name=FileName value=<%=rs("id")%>>
      <td width="10%" align="center" class="forumrow">
      <%if mbtype1="1" then%>分类模版<% end if %>
      <%if mbtype1="2" then%>文章模版<% end if %>
      <%if mbtype1="3" then%>专题模版<% end if %></td>
      <td width="10%" nowrap align="center" class="forumrow"><a href="mb_edit.asp?id=<%=rs("id")%>">修改</a></td>
      <td width="10%" nowrap align="center" class="forumrow"><input type=checkbox Name=ID Value=<%=rs("ID")%>></td>
    </tr>
          <%
  rs.movenext
  next    
 end if%>
 <tr> 
     <td width="100%" colspan="5" align=right class="forumrow">
     <input type=hidden value=DEL name=operation>
     <input type=hidden value="<%=mbtype1%>" name="mbtype">
	 <input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">选中所有  
     <input type=submit value=删除 onclick="return Del()">
     </td>    
</tr>
    <tr>
      <th width="100%" colspan="5" bgcolor="#99CCFF">
      <p align="left">&nbsp;<img border="0" src="images/ICO.gif"> <a href="mb_new.asp?type=1">
      <font color="#FFFFFF">添加分类模版</font></a> <b> 
      <img border="0" src="images/new.gif"></b>&nbsp;
      <img border="0" src="images/ICO.gif"> <a href="mb_new.asp?type=2">
      <font color="#FFFFFF">添加文章模版</font></a> <b> 
      <img border="0" src="images/new.gif"></b>
      <img border="0" src="images/ICO.gif"> <a href="mb_new.asp?type=3">
      <font color="#FFFFFF">添加专题模版</font></a> <b> 
      <img border="0" src="images/new.gif"></b><br>
&nbsp;(说明:模版删除后可能无法马上消除显示,这时请刷新)</th>
<p>
    </tr>
  </table><br>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
  <tr>
    <td width="100%" class="forumrow">页码:&nbsp;<%
  for i=1 to rs.PageCount
    response.write("<a href=html_mb_list.asp?Page="&i&"&mbtype="&mbtype1&"><b> "&i&" </a></b>")
  next
  rs.close
  set rs=nothing
%> </td>
  </tr>
</table> 
     </form>        
</body>                                       
</html>  
<% 
conn.close  
set conn=nothing%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -