ASP分页问题，求救！！！！

来源：百度知道 编辑：UC知道 时间：2024/05/22 17:08:14
<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="./dsnroot.asp" -->
<!-- #include file="./links.asp" -->
<%
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rs1=Server.CreateObject("ADODB.Recordset")
cn.Open mycnstr
%>

<!-- #include file="./func.inc" -->

<table width="778" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="221" colspan="2" align="center" valign="top" bgcolor="#FFFFFF">

<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20" height="36"> &

<%
if Request.QueryString("page")="" then
page=1
else
page=cint(Request.QueryString("page"))
end if
Set rs = server.CreateObject("ADODB.RecordSet")
sql = "Select * From Leaveword Order By LY_ID Desc"
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
rs.pagesize=15
rs.absolutepage=page
end if
for i=1 to rs.pagesize
if rs.eof or rs.bof then
exit for
end if
%>
<tr>
<td><%=rs("LY_name")%></td>
<td><%=rs("LY_addtime")%></td>
<td><a href="leaveword.asp?flg=del&LY_ID=<%=rs("LY_ID")%>" onClick="return confirm('您确认删除该留言。')">删除</a> <a href="leaveword.asp?Show_LY_ID=<%=rs("LY_ID")%>">查看&