有没有会用ASP制作翻页功能的大虾，帮帮忙看看程序！！！有点急，先谢谢！！

[tzh127]

先看看我的程序片段：
<td width="101%" valign="top" height="461">
<table border="1" bordercolor="#008000" width="520">
<tr>
<td bgcolor="#008080" style="BACKGROUND-COLOR: #6699cc" width="510">电子期刊一览</td>
</tr>
<% do while not (rs.EOF or err)%>
<tr>
<td width="510" >
<br>
文章名：<%=rs(1)%><br>
所属目录<一>：<%=rs("parent1name")%><br>
出版日期：<%=rs(3)%><br>
内容：<%=rs("memo")%>
</td>
</tr>
<% rs.MoveNext
loop %>
<tr>
<td width="510" colSpan="2">　</td>
</tr>
</table>
</td>
</tr>
</table>
我想为上述代码添加翻页功能，可是不成功！！求个位帮忙解脱一下！！

[mmq980211]

你的意思我不太清楚。是不是一种特效？
GOOD GOOD STUDY
DAY DAY UP

[eduxh]

下面是个例子，仅供参考：
strconn = "Driver={SQL server};Description=sqldemo;SERVER=127.0.0.1;UID=sa;PWD=rsgl;DATABASE=rsgl"
Dim recordperpage,abspagenum,totalpages,absrecordnum,rs,sql
dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open strconn
recordperpage=8
If Request.ServerVariables("Content_Length") = 0 Then
absPageNum = 1
Else
absPageNum = CInt(Request.Form("PressPageNum"))
If Request.Form("Submit") = "上一页" Then
absPageNum = absPageNum - 1
ElseIf Request.Form("Submit") = "下一页" Then
absPageNum = absPageNum + 1
End If
End If

[supermanhu]

如果你的数据库连接成功建立，则：
'判断是否为首页
<%
if request.QueryString("currentpage")>1 then
%>
<a href=data.asp?currentpage=1>首页</a>
<a href=data.asp?currentpage=<%=request.QueryString("currentpage")-1%>>上一页</a>
<%
else
response.write("首页 上一页")
end if

'判断是否为尾页
if cint(request.QueryString("currentpage"))=rs.pagecount then
response.write("下一页 尾页")
else
%>
<a href=data.asp?currentpage=<%=request.QueryString("currentpage")+1%>>下一页</a>
<a href=data.asp?currentpage=<%=rs.pagecount%>>尾页</a>
<%
end if
rs.close
conn.close
%>
当然在翻页的时候，你要把你所要用的参数都进行传递，不然就会出错！

[danjingwu]

我也来凑凑热闹！呵呵！

set rst=server.CreateObject("adodb.recordset")
dim sql
const numperpage=20
dim curpage,totalpage
curpage=1
sql="写上你的SQL语句"

rst.Open sql,conn,adOpenStatic
rst.PageSize =numperpage
totalpage=rst.PageCount

if isnumeric(Request.Form("pageno")) then
curpage=cint(Request.Form("pageno"))
end if

if curpage<1 then
curpage=1
end if

if curpage>totalpage then
curpage=totalpage
end if

if not rst.eof then
rst.absolutepage=curpage
end if
%>

<script language="JavaScript" type="text/JavaScript">
<!--
function fucCheckNUM(NUM)
{
var i,j,strTemp;
strTemp="0123456789";
if ( NUM.length== 0)
return 0
for (i=0;i<NUM.length;i++)
{
j=strTemp.indexOf(NUM.charAt(i));
if (j==-1)
{
//说明有字符不是数字
return 0;
}
}
//说明是数字
return 1;
}

function turnpage(ID)
{
document.topage.pageno.value =ID;
document.topage.submit();
}

function check(theForm)
{
if(!fucCheckNUM(theForm.pageno.value))
{
alert("对不起，页数必须为整数！");
theForm.pageno.focus();
return false;
}
return true;
}
//-->
</script>

…… //楼主贴出来的代码

//下面是翻页代码段
<tr>
<td align="center" class="f2">
<%if curpage>1 then%>
<a href="Javascript:turnpage('<%=curpage-1%>');">
<%end if%>
上一页</a>
<%if curpage<totalpages then%>
<a href="Javascript:turnpage('<%=curpage+1%>');">
<%end if%>
下一页</a> 当前第<%=curpage%>页，共<%=totalpages%>页 转到第
<input type="text" name="pageno" size="2">页
<input type="submit" name="Button" value="Go">
</td>
</tr>

这段代码，我已经在实践上用上了，绝对可以用
如果不放心，可以到下面的网址看效果
http://www.yigang.com/china/chi_products.asp
http://www.yonghang.com/products.asp