📄 chkmess.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="ubb.asp"-->
<%
if request.QueryString("action")="del" then
conn.execute "delete from notify where newsid in ("&request("selectdel")&")"
response.Redirect "editnews.asp"
end if %>
<head>
<title><%=webname%>--留言版</title>
<link href="../include/css.css" rel="stylesheet" type="text/css">
</head>
<BODY LEFTMARGIN="0" TOPMARGIN="0">
<SCRIPT LANGUAGE="JavaScript" SRC="fly.js">
</SCRIPT>
<TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER"><TR><TD WIDTH="381"> </TD><TD WIDTH="80%"><TABLE WIDTH="500" CELLSPACING="0" ALIGN="center">
<TR> <TD WIDTH="621"> <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR> <TD WIDTH="9" ROWSPAN="2"></TD><TD CLASS="12v"> <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="12v">
<TR> <TD CLASS="12v" > <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" STYLE="border-collapse: collapse" ID="AutoNumber3" HEIGHT="0" WIDTH="100%">
<TR> <TD> <TABLE WIDTH="100%" BORDER="0" ALIGN="center" CELLPADDING="1" CELLSPACING="1" BGCOLOR=<%=bgclr1%>>
<TR> <TD HEIGHT="20" WIDTH="84%"> <DIV ALIGN="center"><FONT COLOR="#FFFFFF"><%=webname%>留言版</FONT></DIV></TD><TD HEIGHT="20" WIDTH="16%"><A HREF="index.asp"><FONT COLOR="#FFFFFF">返回首页</FONT></A></TD></TR>
<TR BGCOLOR=<%=bgclr4%>> <TD HEIGHT="140" VALIGN="top" COLSPAN="2"><BR> <%'开始分页
Const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages,j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
rs.open "select newsid,newsname,addname,newscontent,book,adddate from notify order by adddate desc",conn,1,1
if err.number<>0 then
response.write "数据库中无数据"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 您还没有添加留言！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"editnews.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"editnews.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"editnews.asp"
end if
end if
end if
sub showContent
dim i
i=0
%> <TABLE WIDTH="95%" BORDER="0" ALIGN="center" CELLPADDING="1" CELLSPACING="1">
<FORM NAME="form1" METHOD="post" ACTION="chkmess.asp?action=del"> <%do while not rs.eof%>
<TR><TD STYLE="PADDING-LEFT: 6px"><TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="0" BGCOLOR=<%=bgclr1%>><TR><TD BGCOLOR=<%=bgclr4%>><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD WIDTH="46%">留言主题：<%=trim(rs("newsname"))%></TD><TD WIDTH="54%"><DIV ALIGN="RIGHT">发布时间<%=rs("adddate")%></DIV></TD></TR><TR><TD WIDTH="46%"> </TD><TD WIDTH="54%"> </TD></TR></TABLE><TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=*>
<TBODY> <TR> <TD ROWSPAN="3"><IMG SRC="#" WIDTH="1" HEIGHT="1"><TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=*>
<TBODY> <TR> <TD WIDTH=7><IMG HEIGHT=8 SRC="images/top_l.gif"
WIDTH=14></TD><TD BACKGROUND=images/top_c.gif></TD><TD WIDTH=16><IMG HEIGHT=8 SRC="images/top_r.gif"
WIDTH=16></TD></TR> <TR> <TD BACKGROUND=images/centerl.gif VALIGN=top
WIDTH=7 ROWSPAN="2"></TD><TD BGCOLOR=#fffff1><DIV ALIGN="center"><%=trim(rs("addname"))%></DIV></TD><TD BACKGROUND=images/centerr.gif VALIGN=top
WIDTH=16 ROWSPAN="2"><IMG HEIGHT=8 SRC="images/top_r2.gif"
WIDTH=16></TD></TR><TR><TD BGCOLOR=#fffff1></TD></TR> <TR> <TD VALIGN=top WIDTH=7><IMG HEIGHT=42
SRC="images/foot2.gif" WIDTH=14></TD><TD BACKGROUND=images/foot1.gif> </TD><TD ALIGN=right WIDTH=16><IMG HEIGHT=42
SRC="images/foot4.gif"
WIDTH=16></TD></TR></TBODY></TABLE></TD><TD WIDTH=7><IMG HEIGHT=8 SRC="images/top_l.gif"
WIDTH=14></TD><TD BACKGROUND=images/top_c.gif></TD><TD WIDTH=16><IMG HEIGHT=8 SRC="images/top_r.gif"
WIDTH=16></TD></TR> <TR> <TD BACKGROUND=images/centerl.gif VALIGN=top
WIDTH=7></TD><TD BGCOLOR=#fffff1 HEIGHT="50"><%=trim(rs("newscontent"))%><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD BGCOLOR="#990000"><IMG SRC="skin/2/#" WIDTH="1" HEIGHT="1"></TD></TR><TR><TD><B><FONT COLOR="#990000">管理员回复</FONT></B>：<%=trim(rs("book"))%></TD></TR></TABLE></TD><TD BACKGROUND=images/centerr.gif VALIGN=top
WIDTH=16><IMG HEIGHT=8 SRC="images/top_r2.gif"
WIDTH=16></TD></TR> <TR> <TD VALIGN=top WIDTH=7><IMG HEIGHT=42
SRC="images/foot2.gif" WIDTH=14></TD><TD BACKGROUND=images/foot1.gif><IMG HEIGHT=42
SRC="images/foot3.gif" WIDTH=36></TD><TD ALIGN=right WIDTH=16><IMG HEIGHT=42
SRC="images/foot4.gif"
WIDTH=16></TD></TR><TR><TD VALIGN=top WIDTH=14 COLSPAN="2"> </TD><TD WIDTH="200"> </TD><TD ALIGN=right WIDTH=16> </TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR>
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%> <TR> <TD HEIGHT="30"> <DIV ALIGN="center"></DIV></TD></TR>
</FORM></TABLE><%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<form method=Post action="&filename&">"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1 class='contents'>首页</a> "
Response.Write "<a href="&filename&"?page="&CurrentPage-1&" class='contents'>上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='contents'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&" class='contents'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&" class='contents'>尾页</a>"
End If
Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "
Response.Write "<font class='contents'> 共有"&totalnumber&"条留言 "
Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="¤tpage&">"
Response.Write " <input type='submit' class='contents' value='GO' name='cndok'></form>"
End Function
%> </TD></TR> </TABLE></TD></TR> </TABLE></TD></TR> </TABLE></TD><TD CLASS="12v" WIDTH="9" ROWSPAN="2"></TD></TR>
</TABLE></TD></TR> </TABLE></TD></TR></TABLE><DIV ID=floater
STYLE="Z-INDEX: 20; WIDTH: 171px; POSITION: absolute; TOP: 13px; overflow: visible;; left: 2px; height: 25px"><FONT SIZE="2" COLOR="#990000"><!--#include file="sendmess.asp"--></FONT><FONT COLOR="#000000"></SCRIPT></FONT></DIV><br>
</body>
</html>
<script language=javascript>
function mm()
{
var a = document.getElementsByTagName("input");
if(a[0].checked==true){
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = false;
}
else
{
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = true;
}
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -