📄 admin_guestlist.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="Admin_Check.asp"-->
<!--#include file="public.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 Guest where GuestID=" & request("GuestID"))
end if
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body>
<%
call creaters(rs,"select * from guest where username='" & request.Cookies("user")("username") & "'")
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
%>
<div id="Layer<%= i %>" style="position:absolute; display:none;filter:alpha(Opacity=80);left:124px; top:25px; width:348px; height:200px; z-index:1; background-color: #FFFFFF; layer-background-color: #FFFFFF; border: 1px none #000000;">
<table width="100%" height="100%" border="0" cellspacing="1" bgcolor="#666666">
<tr height="18">
<td height="18" bgcolor="#C0E096"><div align="right"><strong onClick="Layer<%= i %>.style.display='none';" style="cursor:hand">×</strong></div></td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#FFFFFF"><table width="100%" height="176" border="0" cellpadding="1">
<tr>
<td height="22">留言者姓名：<%= rs("GuestName") %></td>
</tr>
<tr>
<td height="139" valign="top">留言内容：<P><%= SetHtml(rs("Content")) %></td>
</tr>
</table></td>
</tr>
</table>
</div>
<%
rs.movenext
next
call closers(rs)
%>
<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") & "'")
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("GuestID") %></div></td>
<td><%= rs("GuestName") %></td>
<td width="53"><div align="center"><a href="#" onClick="Layer<%= i %>.style.display='block';">查看</a></div></td>
<td width="54"><div align="center"><a href="javascript:if(confirm('确实要删除吗?'))location='Admin_GuestList.asp?action=delete&GuestID=<%= rs("GuestID") %>'">删除</a></div></td>
</tr>
<%
rs.movenext
next
%>
<tr valign="middle" bgcolor="#F3F9EC">
<td height="23" colspan="4"><div align="right"><div align="right">当前第 <%= page %> 页
<%
for i = 1 to rs.PageCount
response.Write(" <a href='Admin_GuestList.asp?Page=" & i & "'>[" & i & "]</a> ")
next
call closers(rs)
%>
</div></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 + -