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

📄 admin_guest.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>blog</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 Article where ContentID=" & request("ContentID"))
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-->
		      <form name="frmUnit" action="Admin_AddComment.asp?action=save" method="post">
                <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 guest where username='" & request.Cookies("user")("username") & "'")
				while not rs.eof
				 %>
                <tr valign="middle" bgcolor="#FFFFFF">
                  <td height="23"><div align="center"><%= rs("GuestID") %></div></td>
                  <td><%= rs("GuestName") %></td>
                  <td width="53"><div align="center"><a href="#">查看</a></div></td>
                  <td width="54"><div align="center"><a href="javascript:if(confirm('确实要删除吗?'))location='Admin_GuestList.asp?action=delete&Contentid=<%= rs("ContentID") %>'">删除</a></div></td>
                </tr>
				<% 
				rs.movenext
				wend
				call closers(rs)
				 %>
                <tr valign="middle" bgcolor="#F3F9EC">
                  <td height="23" colspan="4"><div align="right">1 2 3 4 </div></td>
                </tr>
	          </form>
          </table></td>
          <td></td>
        </tr>
        </table></td>
  </tr>
  <tr>
    <td height="12"></td>
  </tr>
</table>
</body>
</html>
<script language="vbscript">
	sub btnSubmit_onclick()
		if frmUnit.Description.value = "" then
			Msgbox "分类名称不允许为空。",VbCritical,"分类名称"
			exit sub
		end if
		frmUnit.submit
	end sub
</script>

⌨️ 快捷键说明

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