28,391
社区成员
发帖
与我相关
我的任务
分享关于分页的问题。急。在线等
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言板</title>
<body background="pic/9.jpg">
<table align="center" bordercolor="orange" border="4" width=60%>
<tr align="center" bgcolor="orange">
<td align="center"><font color="white" size="5" face="华文行楷"> 留 言 板</font> </td>
</tr>
</table>
<table width="75%" border="0" align="center">
<tr>
<td width="33%"><div align="center"><a href="input.htm"><font color="orange" size="4" face="隶书">写留言
</font></a> <a href="admin.htm"><font color="#FF9900" size="4" face="隶书">管理留言</font></a></div></td>
</tr>
</table>
<hr width="75%" color="orange">
<%
Set conn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("Book.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBPath
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * From Book Order by T_id desc",conn,1,1'打开并读取数据库内容
rs.PageSize=4
count=rs.PageSize
if request("CurrentPage")="" then
rs.AbsolutePage=1
CurrentPage=1
else
rs.AbsolutePage=request("CurrentPage")
CurrentPage=Cint(request("CurrentPage"))
end if
PageCount=rs.PageCount
%>
<% Do while count>0 and not rs.eof %>
<table width=75% border=5 align=center cellpadding=0 cellspacing=0 bordercolor="orange" valign=top >
<tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">
留言编号：</font> </div></td>
<td bordercolor="orange">
<% =rs("T_id") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">姓
名：</font></div></td>
<td bordercolor="orange">
<% =rs("T_name") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">主
页：</font></div></td>
<td bordercolor="orange">
<% =rs("T_homepage") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4">Email：</font></div></td>
<td bordercolor="orange">
<% =rs("T_email") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">留言时间：</font></div></td>
<td bordercolor="orange">
<% =rs("T_time") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">留言主题：</font></div></td>
<td bordercolor="orange">
<% =rs("T_title") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">留言内容：</font></div></td>
<td bordercolor="orange">
<% =rs("T_memo") %>
</td>
</tr>
</table><p>
<%
rs.MoveNext
count=count-1
Loop
rs.Close
conn.Close
%>
<p>
<table width=75% bgcolor="orange" align=center valign=top >
<tr>
<td width=20% ><font color="white" size="4" face="隶书">
当前第<% =CurrentPage %>页</font>
</td>
<td><font color="white" size="4" face="隶书">看第
<% for i = 1 to PageCount %>
<a href="index.asp?CurrentPage=<% =i %>" >(<% =i %>)</a>
<% Next %>页</font>
</td>
</tr>
</table>
</body>
</html>
运行到是没有问题，但是分页后如果点分页的页面却找出现不到网站提示
不知道是那里的问题。麻烦大家帮我看看啊。
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言板</title>
<body background="pic/9.jpg">
<table align="center" bordercolor="orange" border="4" width=60%>
<tr align="center" bgcolor="orange">
<td align="center"><font color="white" size="5" face="华文行楷"> 留 言 板</font> </td>
</tr>
</table>
<table width="75%" border="0" align="center">
<tr>
<td width="33%"><div align="center"><a href="input.htm"><font color="orange" size="4" face="隶书">写留言
</font></a> <a href="admin.htm"><font color="#FF9900" size="4" face="隶书">管理留言</font></a></div></td>
</tr>
</table>
<hr width="75%" color="orange">
<%
Set conn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("Book.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBPath
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * From Book Order by T_id desc",conn,1,1'打开并读取数据库内容
rs.PageSize=4
count=rs.PageSize
if request("CurrentPage")="" then
rs.AbsolutePage=1
CurrentPage=1
else
rs.AbsolutePage=request("CurrentPage")
CurrentPage=Cint(request("CurrentPage"))
end if
PageCount=rs.PageCount
%>
<% Do while count>0 and not rs.eof %>
<table width=75% border=5 align=center cellpadding=0 cellspacing=0 bordercolor="orange" valign=top >
<tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">
留言编号：</font> </div></td>
<td bordercolor="orange">
<% =rs("T_id") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">姓
名：</font></div></td>
<td bordercolor="orange">
<% =rs("T_name") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">主
页：</font></div></td>
<td bordercolor="orange">
<% =rs("T_homepage") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4">Email：</font></div></td>
<td bordercolor="orange">
<% =rs("T_email") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">留言时间：</font></div></td>
<td bordercolor="orange">
<% =rs("T_time") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">留言主题：</font></div></td>
<td bordercolor="orange">
<% =rs("T_title") %>
</td>
</tr><tr>
<td width=20% bordercolor="#666666" bgcolor="orange" >
<div align="center"><font color="#FFFFFF" size="4" face="隶书">留言内容：</font></div></td>
<td bordercolor="orange">
<% =rs("T_memo") %>
</td>
</tr>
</table><p>
<%
rs.MoveNext
count=count-1
Loop
rs.Close
conn.Close
%>
<p>
<table width=75% bgcolor="orange" align=center valign=top >
<tr>
<td width=20% ><font color="white" size="4" face="隶书">
当前第<% =CurrentPage %>页</font>
</td>
<td><font color="white" size="4" face="隶书">看第
<% for i = 1 to PageCount %>
<a href="index.asp?CurrentPage=<% =i %>" >(<% =i %>)</a>
<% Next %>页</font>
</td>
</tr>
</table>
</body>
</html>
运行到是没有问题，但是分页后如果点分页的页面却找出现不到网站提示
不知道是那里的问题。麻烦大家帮我看看啊。
...全文
请发表友善的回复…
发表回复
