📄 message_edit.asp
字号:
<!--#include file="../function/tablefunction.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>留言删除</title>
<style type="text/css">
fieldset{
background: #fffbef;
width:auto;
}
legend{color:#105096;width:auto;}
.input{
border: 1px solid #3061AB;
}
.inputhover{
border: 1px solid #1E3F8C;
}
.inputdown{ background-color: #EEF8F9; border: 1px solid #0033CC;}
.STYLE2 {color: #FF0000}
form{margin:0px;}
a{ text-decoration:none; font-weight:bold;}
a:link{
color:#000000;
text-decoration:none;}
a:hover{
text-decoration:none;
color:#339933;u
}
a:visited{
color:#000000;
text-decoration:none;}
</style>
<script>
function butt(obj,state)
{
if(state==1){
obj.className="inputhover";}
if(state==2){
obj.className="input";}
if(state==3){
obj.className="inputdown";}
}
function checkAll()
{
for (var i=0;i<form1.elements.length;i++)
{
var e = form1.elements[i];
if (e.name != 'selectAll')
e.checked = form1.selectAll.checked;
}
}
</script>
</head>
<body style="font-size:12px;">
<!--#include file="../session.asp" -->
当前位置：<span class="STYLE2">留言管理-</span>
<fieldset><br/>
<legend><strong>留言管理</strong></legend>
<form name="form1" method="post" action="action.asp?action=butdel">
<table width="688" border="0" cellpadding="2" cellspacing="3" class="input">
<tr>
<td colspan="6" bgcolor="#D2E8F7">
<div align="left">
<!-- <input name="textfield" type="text" class="input" size="50" onmousedown="butt(this,3)" onmouseover="butt(this,1)" onmouseout="butt(this,2)"/>
<input name="Submit2" type="submit" class="input" value="搜索文章" />-->
</div></td>
</tr>
<tr>
<td width="25" bgcolor="#D2E8F7"> </td>
<td width="389" bgcolor="#D2E8F7"><div align="center"><strong>文章标题</strong></div></td>
<td width="56" bgcolor="#D2E8F7"><div align="center"><strong>查看评论</strong></div></td>
<td colspan="2" bgcolor="#D2E8F7"><div align="center"><strong>操作</strong></div></td>
</tr>
<%
dim msmax
set msmax=new myclass
set rs=msmax.viewrecord("select * from message")
'----------------------------分页
if request.querystring("pageno") ="" then
pageno=1
else
pageno=cint(request.querystring("pageno") )
end if
'---------------------------一部分
dim rs,strsql
set rs=server.CreateObject("adodb.recordset")
strsql="select * from message order by messageid desc"
rs.open strsql,db,1
'--------------------------------开始分页
if not rs.eof and not rs.bof then
rs.pagesize=14
pagetotal=rs.pagecount
rs.absolutepage=pageno
session("pageno")=pageno
if pagetotal<10 then
minpage=1
maxpage=pagetotal
else
if pageno<=3 then
minpage=1
maxpage=10
end if
'\\\\\\\\\\\\\\\\\\\\
if pageno>3 then
minpage=pageno-2
maxpage=pageno+7
end if
if pageno+7>pagetotal then
minpage=pagetotal-9
maxpage=pagetotal
end if
end if
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
else
response.write "暂时没有记录!"
end if
'--------------------------------------
%>
<%
dim i
i=14
do while not rs.eof and I>0
i=i-1
%>
<tr>
<td bgcolor="#CECEB7"><input type="checkbox" name="myselect" value="<%=rs("messageid")%>" /></td>
<td bgcolor="#CECEB7"><div align="left"><b><%=rs("username")%>:</b><%=mid(rs("content"),1,30)%></div></td>
<td bgcolor="#CECEB7"><div align="center"><a href="message.asp" target="_blank">查看</a></div></td>
<td width="57" bgcolor="#CECEB7">
<div align="center"><a href="action.asp?action=delMessage&Messageid=<%=rs("Messageid")%>&pageno="<%session("pageno")%>"" onclick="return window.confirm('确认要删除吗！');">删除</a></div> </td>
</tr>
<%
rs.movenext
loop
%>
<tr>
<td colspan="6" bgcolor="#CECEB7"><input type="checkbox" name="selectAll" value="checkbox" onClick="javascript:checkAll();"/>
全选
<input name="Submit" type="submit" class="input" value="删除所选文章" />
<%
prepage=pageno-1
nextpage=pageno+1
response.write "<font color=red><b>"&pageno&"</b></font>"&"/"&pagetotal
'---------------------------
response.write " <a href=message_edit.asp?pageno=1 title=第一页><<</a> "
if prepage=0 then
response.write " "
else
response.write " <a href=message_edit.asp?pageno="&prepage&" title=前一页>|<</a> "
end if
'-------------------------------
for x=minpage to maxpage
response.write " <a href=message_edit.asp?pageno="&x&">"&x&"</a> "
next
'----------------------------------
if nextpage>pagetotal then
response.write ""
else
response.write " <a href=message_edit.asp?pageno="&nextpage&" title=后一页>>|</a> "
end if
response.write " <a href=message_edit.asp?pageno="&pagetotal&" title=最后一页>>></a> "
'---------------------------------------
%>
</td>
</tr>
</table>
</form>
</fieldset>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -