如何让每一页显示多条记录,多出来的自动翻页放一页去【asp吧】

原代码如下:
现在一页只显示一条记录,也删除不掉己有的记录.想改成:每一页显示20条记录的.再可以把先前发布的信息删除.如何改?
<%
conn.close
set conn=nothing
Function TalentsList()
     Dim idCount
     Dim pages
     pages = 20
     Dim pagec
     Dim page
     page = CLng(request("Page"))
     Dim pagenc
     pagenc = 2
     Dim pagenmax
     Dim pagenmin
     Dim datafrom
     datafrom = "Qianbo_Talents"
     Dim datawhere
     If Result = "Search" Then
         datawhere = "where TalentsName like '%" & Keyword &_
         "%' "
     Else
         If SortPath<>"" Then
             datawhere = "where Instr(SortPath,'"&SortPath&"')>0 "
         Else
             datawhere = ""
         End If
     End If
     Dim sqlid
     Dim Myself, PATH_INFO, QUERY_STRING
     PATH_INFO = request.servervariables("PATH_INFO")
     QUERY_STRING = request.ServerVariables("QUERY_STRING")'
     If QUERY_STRING = "" Or InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") = 0 Then
         Myself = PATH_INFO & "?"
     Else
         Myself = Left(PATH_INFO & "?" & QUERY_STRING, InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") -1)
     End If
     Dim taxis
     taxis = "order by id desc"
     Dim i
     Dim rs, sql
     sql = "select count(ID) as idCount from ["& datafrom &"]" & datawhere
     Set rs = server.CreateObject("adodb.recordset")
     rs.Open sql, conn, 0, 1
     idCount = rs("idCount")
     If(idcount>0) Then
     If(idcount Mod pages = 0)Then
     pagec = Int(idcount / pages)
Else
     pagec = Int(idcount / pages) + 1
End If
sql = "select id from ["& datafrom &"] " & datawhere & taxis
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 1, 1
rs.pagesize = pages
If page < 1 Then page = 1
If page > pagec Then page = pagec

If pagec > 0 Then rs.absolutepage = page
For i = 1 To rs.pagesize
     If rs.EOF Then Exit For
     If(i = 1)Then
     sqlid = rs("id")
Else
     sqlid = sqlid &","&rs("id")
End If
rs.movenext
Next
End If
If(idcount>0 And sqlid<>"") Then
sql = "select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 0, 1
While(Not rs.EOF)
response.Flush()
response.Clear()
Response.Write "<tr>" & vbCrLf
Response.Write "<td nowrap class=""forumRow"">"&rs("ID")&"</td>" & vbCrLf
Response.Write "<td nowrap class=""forumRow"">"&Guest(rs("MemID"), rs("Linkman"))&"</td>" & vbCrLf
If StrLen(rs("TalentsName"))>33 Then
     Response.Write "<td title="&rs("TalentsName")&" nowrap class=""forumRow"">"&StrLeft(rs("TalentsName"), 30)&"</td>" & vbCrLf
Else
     Response.Write "<td title="&rs("TalentsName")&" nowrap class=""forumRow"">"&rs("TalentsName")&"</td>" & vbCrLf
End If
If StrLen(rs("Email"))>21 Then
     Response.Write "<td title="&rs("Email")&" nowrap class=""forumRow"">"&StrLeft(rs("Email"), 18)&"</td>" & vbCrLf
Else
     Response.Write "<td title="&rs("Email")&" nowrap class=""forumRow"">"&rs("Email")&"</td>" & vbCrLf
End If
If rs("ReplyTime") <> "" Then
     ReplyTime = rs("ReplyTime")
Else
     ReplyTime = "<font color=""#CC0000"">暂无回复</font>"
End If
Response.Write "<td nowrap class=""forumRow"">"&rs("AddTime")&"</td>" & vbCrLf
Response.Write "<td nowrap class=""forumRow"">"&ReplyTime&"</td>" & vbCrLf
Response.Write "<td align=""center""nowrap class=""forumRow""><a href='TalentsEdit.Asp?Result=Modify&ID="&rs("ID")&"'>查看、回复</a></td>" & vbCrLf
Response.Write "<td nowrap align='center' class=""forumRow""><input name='selectID' type='checkbox' value='"&rs("ID")&"'></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
rs.movenext
Wend
Response.Write "<tr>" & vbCrLf
Response.Write "<td colspan='8' nowrap align=""right"" class=""forumRow""><input onClick=""CheckAll(this.form)"" name=""buttonAllSelect"" type=""button"" id=""submitAllSearch"" value=""全选""> <input onClick=""CheckOthers(this.form)"" name=""buttonOtherSelect"" type=""button"" id=""submitOtherSelect"" value=""反选""> <input name='submitDelSelect' type='button' id='submitDelSelect' value='删除所选' onClick='ConfirmDel(""是否确定删除？删除后不能恢复！"");'></td>" & vbCrLf

Response.Write "</tr>" & vbCrLf
Else
     response.Write "<tr><td nowrap align='center' colspan='8' class=""forumRow"">暂无人才信息</td></tr>"
End If
Response.Write "<tr>" & vbCrLf
Response.Write "<td colspan='8' nowrap class=""forumRow"">" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td class=""forumRow"">共计：<font color='red'>"&idcount&"</font>条记录页次：<font color='red'>"&page&"</font></strong>/"&pagec&" 每页：<font color='red'>"&pages&"</font>条</td>" & vbCrLf
Response.Write "<td align='right'>" & vbCrLf
pagenmin = page - pagenc
pagenmax = page+pagenc
If(pagenmin<1) Then pagenmin = 1
If(page>1) Then response.Write ("<a href='"& myself &"Page=1'><font style='font-size: 14px; font-family: Webdings'>9</font></a> ")
If(pagenmin>1) Then response.Write ("<a href='"& myself &"Page="& page - (pagenc * 2 + 1) &"'><font style='font-size: 14px; font-family: Webdings'>7</font></a> ")
If(pagenmax>pagec) Then pagenmax = pagec
For i = pagenmin To pagenmax
     If(i = page) Then
     response.Write (" <font color='red'>"& i &"</font> ")
Else
     response.Write ("[<a href="& myself &"Page="& i &">"& i &"</a>]")
End If
Next
If(pagenmax<pagec) Then response.Write (" <a href='"& myself &"Page="& page+(pagenc * 2 + 1) &"'><font style='font-size: 14px; font-family: Webdings'>8</font></a> ")
If(page<pagec) Then response.Write ("<a href='"& myself &"Page="& pagec &"'><font style='font-size: 14px; font-family: Webdings'>:</font></a> ")
Response.Write "第<input name='SkipPage' onKeyDown='if(event.keyCode==13)event.returnValue=false' onchange=""if(/\D/.test(this.value)){alert('请输入需要跳转到的页数并且必须为整数！');this.value='"&Page&"';}"" style='width: 28px;' type='text' value='"&Page&"'>页" & vbCrLf
Response.Write "<input name='submitSkip' type='button' onClick='GoPage("""&Myself&""")' value='转到'>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
rs.Close
Set rs = Nothing
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End Function
Function Guest(ID, Linkman)
     Dim rs, sql
     Set rs = server.CreateObject("adodb.recordset")
     sql = "Select * From Qianbo_Members where ID="&ID
     rs.Open sql, conn, 1, 1
     If rs.bof And rs.EOF Then
         Guest = Linkman
     Else
         Guest = "<font color='green'>会员：</font><a href='MemEdit.Asp?Result=Modify&ID="&ID&"'>"&Linkman&"</a>"
     End If
     rs.Close
     Set rs = Nothing
End Function
%>

日	一	二	三	四	五	六

如何让每一页显示多条记录,多出来的自动翻页放一页去

扫二维码下载贴吧客户端