asp digital pagination

<!--#include file="inc/conn.asp"--><!--#include file="inc/json.asp"--><% Response.Charset="gb2312" Function VbsUnEscape(str)Dim xx=InStr(str,"%") Do While x>0VbsUnEscape=VbsUnEscape&Mid(str,1,x-1)If LCase(Mid(str,x+1,1))="u" ThenVbsUnEscape=VbsUnEscape&ChrW(CLng("&H"&Mid(str,x+2,4)))str=Mid(str,x+6)ElseVbsUnEscape=VbsUnEscape&Chr(CLng("&H"&Mid(str,x+1,2)))str=Mid(str,x+3)End Ifx=InStr(str,"%")LoopVbsUnEscape=VbsUnEscape&strEnd FunctionDim ciid,userid,info,yzm,errInfociid=Request("ciid")userid=Request.Cookies("userid")if userid="" then userid=0info=VbsUnEscape(Request.Form("info"))if info<>"" then errInfo="评论成功！" sql="select * from ci_comment where id is null" set rs = Server.CreateObject("adodb.recordset") rs.open sql,conn,1,3 rs.addnew rs("ciid")=ciid rs("uid")=userid rs("info")=info rs("ip")=getIp rs.update rs.close set rs=nothingelse errInfo="xxx"end ifDim str,strTempdim rs,sqlset rs = Server.CreateObject("adodb.recordset")sql="select info,uid,sDate,ip from [ci_comment] where ciid="&ciid&" order by id desc"rs.open sql,conn,3,1i = 1page = Request("page")pagesize1 = 2rs.PageSize = pagesize1total = rs.RecordCountpgcount = rs.PageCountIf page = "" Or CLng(page) < 1 Then page = 1If CLng(page) > pgcount Then page = pgcountIf pgcount > 0 Then rs.AbsolutePage = page Do While (Not rs.EOF) And (i <= pagesize1) str="<table width='100%' border='0' cellspacing='0' cellpadding='5'>" str=str & "<tr>" str=str & "<td><table width='97%' border='0' align='center' cellpadding='0' cellspacing='0' class='line_xu'>" str=str & "<tr>" str=str & "<td colspan='2' valign='top' class='fenlei_jj' style='word-break:break-all'>"&rs("info")&"</td>" str=str & "</tr>" str=str & "<tr>" str=str & "<td width='19%'>&nbsp;</td>" str=str & "<td width='81%' align='right' class='zs_hui'>留言： "if rs("uid")<>0 thenset rsu = Server.CreateObject("adodb.recordset") rsu.open "select username,uflag from users where id="&rs("uid"),connuser,1,1 if not rsu.EOF Then select case rsu(1) case 0:uflag="个人" case 1:uflag="企业" case 2:uflag="商家"end select str=str & rsu(0) & " ["&uflag&"]"end ifrsu.closeset rsu=nothingelse str=str & "策典游客"end if str=str & "&nbsp;&nbsp;&nbsp;"&rs("sDate")&"</td></tr>" str=str & "</table></td>" str=str & "</tr>" str=str & "</table>" strTemp=strTemp & str rs.MoveNext i = i + 1Looprs.CloseSet rs=Nothingcloseconn strTemp=strTemp & "<table width='98%' border='0' cellspacing='0' cellpadding='0'>" strTemp=strTemp & "<tr>" strTemp=strTemp & "<td height='30' align='center'><b>"&page&"</b>/"&pgcount&" &nbsp;&nbsp;共 "&total&" 条&nbsp;" If page = 1 Then strTemp=strTemp & "上一页" Else strTemp=strTemp & "<a href=""javascript:get_page('addData.asp?page="&page-1&"&ciid="&ciid&"')"">上一页</a>" End If if pgcount>page+4 then endpage=page+4 else endpage=pgcount end if For i=page-4 To endpage if Not i<1 then if i = CInt(page) then strTemp=strTemp & " " & "<span style=""color:#FF0000;font-weight:bold"">" & i & "</span> " else strTemp=strTemp & " " & "<a href=""javascript:get_page('addData.asp?page="&i&"&ciid="&ciid&"')"">" & i & "</a> " end if end if Next If pgcount-page < 1 Then strTemp=strTemp & " 下一页" Else strTemp=strTemp & " <a href=""javascript:get_page('addData.asp?page="&page+1&"&ciid="&ciid&"')"">下一页</a>" End If strTemp=strTemp & "&nbsp;&nbsp;&nbsp;<input type='text' id='showPage' name='showPage' maxlength='10' class='inputgo'> <input type='image' src='image/GO.gif' onClick=""get_page('addData.asp?ciid="&ciid&"&page='+$('#showPage').val())"" align='absmiddle' /></td>" strTemp=strTemp & "</tr>" strTemp=strTemp & "</table>"Dim memberSet member = jsObject()member("tsxx") = errInfomember("jlzs")=totalmember("cmt")=strTempmember.Flush%>