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

📄 admin_typelist.asp

📁 基于asp的博客系统+论文(代码齐全)经过调试
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="Admin_Check.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%= cfgTitle %></title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<link href="Style.css" rel="stylesheet" type="text/css">
<% 
if request("action") = "delete" then
	call connexec("delete from type where typeid=" & request("typeid"))
end if
 %>
</head>

<body>

<table width="613" border="0" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr>
    <td width="613" height="29" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr>
          <td width="613" height="29" align="center" valign="middle"><div align="center"><strong>分类列表</strong></div></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td height="164" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr>
          <td width="29" height="8"></td>
          <td width="543"></td>
          <td width="41"></td>
        </tr>
        <tr>
          <td height="156"></td>
          <td valign="top">
		    <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#C0E096">
              <!--DWLayoutTable-->
                <tr valign="middle" bgcolor="#F3F9EC">
                  <td width="52" height="22"><div align="center"><strong>编号</strong></div></td>
                  <td width="330"><div align="center"><strong>分类名</strong></div></td>
                  <td colspan="2"><div align="center"><strong>操作</strong></div></td>
                </tr>
				<% 
				call creaters(rs,"select * from type where username='" & request.Cookies("user")("username") & "' order by typeid desc")
				Page = Clng(Request("Page"))
				rs.pagesize = 7
				if Page < 1 then Page = 1
				if Page > rs.PageCount then
					Page = rs.PageCount
				end if
				if not rs.eof and not rs.bof then rs.absolutepage = Page
				for i = 1 to rs.pagesize
				if rs.eof then exit for 
				 %>
                <tr valign="middle" bgcolor="#FFFFFF">
                  <td height="23"><div align="center"><%= rs("typeID") %></div></td>
                  <td><%= rs("DESCRiption") %></td>
                  <td width="53"><div align="center"><a href="Admin_AddType.asp?action=alter&typeid=<%= rs("typeID") %>">修改</a></div></td>
                  <td width="54"><div align="center"><a href="javascript:if(confirm('确实要删除么?'))location='Admin_TypeList.asp?action=delete&typeid=<%= rs("typeID") %>'">删除</a></div></td>
                </tr>
				<% 
				rs.movenext
				next
				
				 %>
                <tr valign="middle" bgcolor="#F3F9EC">
                  <td height="23" colspan="4">
				  <div align="right">当前第 <%= page %> 页
				  <% 
				  for i = 1 to rs.PageCount
				  	response.Write(" <a href='Admin_TypeList.asp?Page=" & i & "'>[" & i & "]</a> ")
				  next
				  call closers(rs)
				   %>
				  </div></td>
                </tr>
          </table></td>
          <td></td>
        </tr>
        </table></td>
  </tr>
  <tr>
    <td height="12"></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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