📄 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.form("selectdel")&")"
response.Redirect "editnews.asp"
end if %>
<title><%=webname%>--留言版</title>
<TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">
<TR>
<TD WIDTH="300"> </TD>
<TD WIDTH="80%">
<TABLE WIDTH="100%" BORDER="0" ALIGN="center" CELLPADDING="1" CELLSPACING="1" BGCOLOR=<%=bgclr1%>>
<TR>
<TD HEIGHT="20" WIDTH="84%" ALIGN="center"><FONT COLOR="#FFFFFF"><%=webname%>留言版</FONT></TD>
<TD WIDTH="16%"><A HREF="index.asp"><FONT COLOR="#FFFFFF">返回首页</FONT></A></TD>
</TR>
<TR BGCOLOR=<%=bgclr4%>>
<TD HEIGHT="140" VALIGN="top" COLSPAN="2">
<%
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>
</TABLE>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=*>
<TBODY>
<TR>
<TD width="47" 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=14><IMG HEIGHT=8 SRC="images/top_l.gif" WIDTH=14></TD>
<TD width="480" 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=14></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=14><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>
</TBODY>
</TABLE></TD>
</TR>
</TABLE></TD>
</TR>
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
</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='跳转' name='cndok'></form>"
End Function
%>
</TD>
</TR>
</TABLE></TD>
</TR></TABLE>
<SCRIPT LANGUAGE="JavaScript" SRC="fly.js">
</SCRIPT>
<DIV ID=floater STYLE="Z-INDEX: 20; WIDTH: 300; 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>
<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 + -