📄 show.asp
字号:
<html>
<head>
<title>争锋网留言薄</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="index.css">
</head>
<body bgColor=#FFFFFF text="#800000" link="#800000" alink="#800000" >
<script language="javascript">
function popwin2(path)
{ window.open(path,"","height=300,width=600,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<script language="javascript">
function popwin3(path)
{ window.open(path,"","height=235,width=487,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<table width="764" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="762"> <!--#include file="zwd.asp"--> <%
const MaxPerPage=10
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%> <%sql="select * from book order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 留 言</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%>
<div align='center'>
<p align="center"><font color="#800000" size="3">争锋网留言薄</font></div><font color="#800000"><br>
<% showpages
showContent
showpages
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark%>
</font>
<div align='center'>
<p align="center"><font color="#800000" size="3">争锋网留言薄</font></div><font color="#800000"><br>
<%showpages
showContent
showpages
else
currentPage=1
showContent
end if
end if
rs.close
end if
sub showContent
dim i
i=0
%>
</font>
<div align="center">
<table width="656" border="0" cellspacing="0" cellpadding="2" height="1">
<%
do while not rs.eof
%>
<tr bgcolor="#99FF99">
<td width="54" bgcolor="#C0C0C0" height="1" align="right">
<p align="center"><font color="#800000">[大名]</font></p>
</td>
<td bgcolor="#C0C0C0" height="1" width="536"><font size="2"><font color="#800000"><%=rs("name")%></font></font></td>
<td width="36" bgcolor="#C0C0C0" height="1" >
<p align="center"><font color="#800000"><%if rs("homepage")<>"" and rs("homepage")<>"http://" then %>
<a href="<%=rs("homepage")%>" target="_blank">
<img border="0" src="IMAGES/home.gif" width="35" height="22" alt="<%=rs("homepage")%>"> </a>
<a href="<%=rs("homepage")%>">
</a> <%end if%><%if rs("email")<>"" then %> <%end if%> </font> </p>
</td>
<td width="58" bgcolor="#C0C0C0" height="1" >
<p align="right"><font color="#800000"><a href="mailto:<%=rs("email")%>" target="_blank"><img src="IMAGES/m.gif" alt="<%=rs("email")%>" border="0" align="right" width="45" height="22"></a> </font> </p>
</td>
</tr>
<tr bgcolor="#DDF7FB">
<td width="54" height="25" bgcolor="#FFFFFF" align="center"><font color="#800000">[主题]</font></td>
<td height="25" bgcolor="#FFFFFF" width="536"><font size="2" color="#800000"><img
src="<%=rs("face")%>" align="absmiddle"> <%=rs("title")%> <font size="1">(<%=rs("time")%>)</font></font></td>
<td width="26" align="right" height="25" bgcolor="#FFFFFF" colspan="2"><font color="#800000"><%if rs("answer")<>"" then %><font> <a href="javascript:popwin3('reply.asp?T=<%=rs("title")%>&i=<%=rs("id")%>')">已复</a></font>
<%else%> <a href="javascript:popwin3('reply.asp?T=<%=rs("title")%>&i=<%=rs("id")%>')">回复</a><%end if%></font></td>
</tr>
<tr bgcolor="#DDF7FB">
<td width="54" height="19" bgcolor="#FFFFFF" align="center"><font color="#800000">[内容]</font></td>
<td colspan="3" height="19" bgcolor="#FFFFFF" width="559"><font color="#800000"><%=rs("content")%></font></td>
</tr>
<%if rs("answer")<>"" then%>
<tr bgcolor="#DDF7FB">
<td width="54" height="19" bgcolor="#FFFFFF" align="center"><font color="#800000">[回复]</font></td>
<td colspan="3" height="19" bgcolor="#FFFFFF" width="559"><font color="#800000"><%=rs("answer")%></font><font color="#000000">(<%=rs("replytime")%>)</font></td>
</tr>
<%end if%>
<tr> <% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%> </tr>
</table>
</div>
<%
end sub
sub showpages()
dim n
if (totalPut mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
if n=1 then %>
<div align='left'>
<font color="#800000">
<a href='../index.asp'>首页</a>>><a href="javascript:popwin2('guest.asp')">签写留言</a>
Totle[<%=rs.RecordCount%>]
<%
exit sub
end if
dim k
response.write "<div align='left'><font size='2'> <a href='../index.asp'>首页</a>>> "
for k=1 to n
if k=currentPage then%>
[<b><%=Cstr(k)%></b>]
<%else%>
[<b><a href='show.asp?page=<%=cstr(k)%>'><%=Cstr(k)%></a></b>]
<%end if
next%>
<a href="javascript:popwin2('guest.asp')">签写留言</a> Totle[<%=rs.RecordCount%>]<%response.write "</font></div>"
end sub
%></font></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -