📄 huifu.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="chkuser.asp"-->
<HTML>
<HEAD>
<TITLE>广告位查看 </TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<SCRIPT language=javascript><!--
function out()
{
if(window.event.toElement.id!="menu" && window.event.toElement.id!="link")
menu.style.visibility="hidden";
}
//-->
function out1()
{
if(window.event.toElement.id!="menu1" && window.event.toElement.id!="link")
menu1.style.visibility="hidden";
}
//-->
</SCRIPT>
</HEAD>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 >
<!--#include file=top.asp -->
<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR valign="top">
<TD height="422" COLSPAN=11>
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td><div align="center">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#3E4474">
<tr>
<td bgcolor="#D7E8FC"><img src="images/kong.jpg" width="34" height="29"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="700" border="0" cellpadding="0" cellspacing="1" bgcolor="#3E4474">
<tr>
<td bgcolor="#EFEFEF"> <div align="center">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<%
' set rs=server.createobject("adodb.recordset")
' sql="select * from main order by id asc"
' rs.open sql,conn,1,3
%>
<%
dim rs
dim sql
msg_per_page =10
set rs = server.createobject("adodb.recordset")
sql="select * from book order by id desc"
rs.pagesize = msg_per_page
rs.open sql,conn,1,1
if err.number<>0 then
response.write "数据库操作失败：" & err.description
err.clear
else
if not rs.eof then
totalrec = RS.RecordCount
if rs.recordcount mod msg_per_page = 0 then
n = rs.recordcount\msg_per_page
else
n = rs.recordcount\msg_per_page+1
end if
currentpage = request("page")
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage
rowcount = rs.pagesize
%>
<table width="92%" border="0" cellpadding="0" cellspacing="1" bgcolor="#3E4474" class="z13">
<tr bgcolor="#EFEFEF">
<td colspan="6"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="z13">
<tr>
<td><img src="images/kongk.jpg" width="188" height="29"></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="45"> <div align="center">编号</div></td>
<td width="80"> <div align="center">姓 名</div></td>
<td width="200">
<div align="center">留 言</div></td>
<td width="180" height="25">
<div align="center"></div>
<div align="center"></div>
<div align="center"></div>
<div align="center">回 复</div></td>
<td colspan="2" bgcolor="#EFEFEF"> <div align="center"></div>
<div align="center">操 作</div></td>
</tr>
<%
i = 0
do while not rs.eof and rowcount > 0
%>
<tr bgcolor="#EFEFEF">
<td bgcolor="#EFEFEF"><div align="center"><font color="#B42A20"><%=rs("id")%></font>
</div></td>
<td bgcolor="#EFEFEF"><div align="center"><font color="#B42A20"><%=rs("name")%></font>
</div></td>
<td bgcolor="#EFEFEF"><div align="left"><font color="#B42A20"> <%=rs("connt")%></font>
</div></td>
<td height="25" bgcolor="#EFEFEF"> <div align="left"><font color="#B42A20"> <%=rs("huifu")%></font>
</div>
<div align="center"> </div>
<div align="center"> </div>
<div align="center"></div>
<div align="center"> </div></td>
<td width="52" bgcolor="#EFEFEF"><div align="center">
<a href="#" target="_self" onclick="window.open('modhf.asp?id=<%=rs("id")%>','play','width=501,height=299')" class="z13">[回复]</a>
</div></td>
<td width="52" height="25" bgcolor="#EFEFEF"> <div align="center"><a href="dell.asp?id=<%=rs("id")%>" class="z13">[删除]</a>
</div></td>
</tr>
<%
i=i+1
rowcount=rowcount-1
rs.movenext
loop
i=10-i
for k= 1 to i
%>
<%
next
%>
<%
else
%>
<%
end if
end if
rs.close
set rs=nothing
%>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
</div></td>
</tr>
</table>
<table width="100" border="0" align="left" cellpadding="0" cellspacing="0" class="z13">
<tr>
<td> </td>
</tr>
<tr>
<td><%call listPages()%></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div></TD>
</TR>
<TR>
<TD> <IMG SRC="images/spacer.gif" WIDTH=12 HEIGHT=1 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=89 HEIGHT=1 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=84 HEIGHT=1 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=84 HEIGHT=1 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=84 HEIGHT=1 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=84 HEIGHT=1 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=84 HEIGHT=1 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=100 HEIGHT=1 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=128 HEIGHT=1 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=200 HEIGHT=1 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=55 HEIGHT=1 ALT=""></TD>
</TR>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><IMG SRC="images/index_14.jpg" WIDTH=1004 HEIGHT=41 ALT=""></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="811,1,901,81" href="#">
<area shape="rect" coords="901,1,996,81" href="loginout.asp">
<area shape="rect" coords="691,56,740,77" href="#">
<area shape="rect" coords="743,56,790,77" href="#">
<area shape="rect" coords="641,56,690,77" href="#">
</map>
</BODY>
</HTML>
<%
sub listPages()
if n =0 then exit sub
%>
<table width="748" height="25" border="0" align="center" cellpadding="0" cellspacing="0" class="z13">
<form action="" method="get" name="frm">
<tr>
<td align="right"> 总计:<%=totalrec%> <%if currentpage = 1 then%><font face=webdings>9</font> 首页
<%else%>
<a href="<%=request.ServerVariables("script_name")%>?page=1" title="首页" class="z13"><font face=webdings>9</font> 首页</a>
<%end if%>
<%
if currentpage <= 10 then
%>
<font face=webdings>7</font>
<%
else
lastpage=(currentpage\10-1)*10+1
%>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=lastpage%>&cname=<%=request("cname")%>&ExportNantion=<%=request("ExportNantion")%>&bOutput=<%=request("bOutput")%>" title="上十页" class="z13"><font face=webdings>7</font></a>
<%
end if
%>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage-1%>&cname=<%=request("cname")%>&ExportNantion=<%=request("ExportNantion")%>&bOutput=<%=request("bOutput")%>" title="上一页" class="z13"><font face=webdings>3</font></a>
<%
fpage=currentpage\10
npage=n\10
mpage=n mod 10
if fpage <> npage then
for j = 1 to 10
%>
<a href="<%=request.ServerVariables("script_name")%>?page=<%response.Write(fpage*10+j)%>&cname=<%=request("cname")%>&ExportNantion=<%=request("ExportNantion")%>&bOutput=<%=request("bOutput")%>" class="z13"><%response.Write(fpage*10+j)%></a>
<%
next
else
for j = 1 to mpage
%>
<a href="<%=request.ServerVariables("script_name")%>?page=<%response.Write(fpage*10+j)%>&cname=<%=request("cname")%>&ExportNantion=<%=request("ExportNantion")%>&bOutput=<%=request("bOutput")%>" class="z13"><%response.Write(fpage*10+j)%></a>
<%
next
end if
%>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>&cname=<%=request("cname")%>&ExportNantion=<%=request("ExportNantion")%>&bOutput=<%=request("bOutput")%>" title="下一页" class="z13"><font face=webdings>4</font></a>
<%
prepage=(currentpage\10+1)*10
if n > prepage then
%>
<a href="<%=request.ServerVariables("script_name")%>?page=<%response.write prepage+1 %>&cname=<%=request("cname")%>&ExportNantion=<%=request("ExportNantion")%>&bOutput=<%=request("bOutput")%>" title="下十页" class="z13"><font face=webdings>8</font></a>
<%
else
%>
<font face=webdings>8</font>
<%
end if
%>
<%if currentpage = n then%><font face=webdings>:</font> 尾页
<%else%>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=n%>&cname=<%=request("cname")%>&ExportNantion=<%=request("ExportNantion")%>&bOutput=<%=request("bOutput")%>" title="尾页" class="z13"><font face=webdings>:</font> 尾页</a>
<%end if%> 转到：
<input name="page" type="text" class="pageinput" value="<%=currentpage+1%>" size="12">
<input type="hidden" name="cname" value="<%=request("cname")%>">
<input type="hidden" name="ExportNantion" value="<%=request("ExportNantion")%>">
<input type="hidden" name="bOutput" value="<%=request("bOutput")%>"></td>
<td width="60"><input type="image" src="images/go.gif"> </td>
</tr>
</form>
</table>
<%end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -