Asp分页Function

'///****************************分页的function*****************************************'//参数说明'//Sql:查询所需的Sql语句'//PageSize:每页显示的记录个数'//Colspan:表格的列数'//bgcolor:显示翻页的背景色'//Str:Y是为后台显示，其他为前台显示'//Country：C时为显示中文翻页,其他显示英文翻页'************************************************************************************Public SUB Show_Page_Html(Sql,PageSize,Colspan,bgcolor,Str,Country)'分页 Dim MaxPerPage,Rs,gstBookiD,totalPut,CurrentPage,TotalPages,i,j IF NOT Isempty(Request("Page")) THEN '这个page是后面的select里面的 CurrentPage=Cint(Request("Page")) '这里一定要转换成int否则不行！！ ELSE CurrentPage=1 END IFSet Rs=Server.CreateObject("Adodb.RecordSet")Rs.Open Sql,Conn,1,1,1I=1IF Rs.RecordCount=0 THEN WITH P.E("<tr>").E("<td colspan="&Colspan&"><center><font color=Red><B>没有记录</B></font></center></td>").E("</tr>")END WITHIF Str="Y" THENRESPONSE.ENDEND IFELSE Rs.PageSize=PageSize TotalPut=Rs.RecordCount '记录总数 TotalPage=Rs.PageCount MaxPerPage=Rs.PageSize IF CurrentPage>TotalPage THEN CurrentPage=TotalPage END IF IF CurrentPage=1 THEN Call ShowContent(Rs,TotalPut,MaxPerPage)'显示读取的记录 Call Show_Page_Js(TotalPut,MaxPerPage,5,Colspan,bgcolor,Country)'JS显示翻页 ELSE IF (CurrentPage-1)*MaxPerPage<totalPut THEN Rs.move(CurrentPage-1)*MaxPerPage Dim BookMark BookMark=Rs.BookMark '移动到开始显示的记录位置 Call ShowContent(Rs,TotalPut,MaxPerPage)'显示读取的记录 Call Show_Page_Js(TotalPut,MaxPerPage,5,Colspan,bgcolor,Country)'JS显示翻页 END IF END IF Rs.Close END IF SET Rs=Nothing 'Conn.Close 'SET Conn=NothingEND SUB

'**********************************************************'翻页的function '**********************************************************Public SUB Show_Page_Js(TotalPut,PageSize,L_R,Colspan,bgcolor,Country)'JS显示翻页

Response.Write("<tr bgcolor='#"&bgcolor&"' class='unnamed1'>")Response.Write("<td colspan='"&Colspan&"' class='unnamed1'> <div align='center' class='unnamed1'>")IF Request.QueryString("Page")="" THENPageNow=1ELSEPageNow=Request.QueryString("Page")END IFResponse.Write(""&Chr(60)&"Script Language=JavaScript"&Chr(62)&"")IF Country="C" THENResponse.Write("ShowoPage("&Chr(34)&""&Chr(34)&","&Chr(34)&""&Chr(34)&","&Chr(34)&"页次<font color='black'><B>："&Chr(34)&","&Chr(34)&"</B></font> / "&Chr(34)&","&Chr(34)&"<font color='black'><B>"&Chr(34)&","&Chr(34)&"</B></font> "&Chr(34)&","&Chr(34)&"本页记录：<font color='black'><B>"&Chr(34)&","&Chr(34)&"</B></font>&nbsp;"&Chr(34)&","&Chr(34)&"&nbsp;总记录<font color='black'><B>："&Chr(34)&","&Chr(34)&"</B></font>&nbsp;&nbsp;"&Chr(34)&","&Chr(34)&"<font face=webdings>9</font>"&Chr(34)&","&Chr(34)&"<font face=webdings>7</font>"&Chr(34)&","&Chr(34)&"<font face=webdings>8</font>"&Chr(34)&","&Chr(34)&"<font face=webdings>:</font>"&Chr(34)&","&Chr(34)&"&nbsp;&nbsp;跳转:"&Chr(34)&","&Chr(34)&"<font color='black'><B>"&Chr(34)&","&Chr(34)&"</B></font>"&Chr(34)&","&Chr(34)&"<font color='red'><B>"&Chr(34)&","&Chr(34)&"</B></font>"&Chr(34)&","&Chr(34)&""&Chr(34)&","&Chr(34)&""&Chr(34)&","&Chr(34)&""&Chr(34)&","&Chr(34)&""&Chr(34)&","&TotalPut&","&PageSize&","&L_R&","&PageNow&")")ELSEResponse.Write("ShowoPage("&Chr(34)&""&Chr(34)&","&Chr(34)&""&Chr(34)&","&Chr(34)&"Page/PageCount<font color='black'><B>："&Chr(34)&","&Chr(34)&"</B></font> / "&Chr(34)&","&Chr(34)&"<font color='black'><B>"&Chr(34)&","&Chr(34)&"</B></font> "&Chr(34)&","&Chr(34)&"Records：<font color='black'><B>"&Chr(34)&","&Chr(34)&"</B></font>&nbsp;"&Chr(34)&","&Chr(34)&"&nbsp;RecordCount<font color='black'><B>："&Chr(34)&","&Chr(34)&"</B></font>&nbsp;&nbsp;"&Chr(34)&","&Chr(34)&"<font face=webdings>9</font>"&Chr(34)&","&Chr(34)&"<font face=webdings>7</font>"&Chr(34)&","&Chr(34)&"<font face=webdings>8</font>"&Chr(34)&","&Chr(34)&"<font face=webdings>:</font>"&Chr(34)&","&Chr(34)&"&nbsp;&nbsp;Go:"&Chr(34)&","&Chr(34)&"<font color='black'><B>"&Chr(34)&","&Chr(34)&"</B></font>"&Chr(34)&","&Chr(34)&"<font color='red'><B>"&Chr(34)&","&Chr(34)&"</B></font>"&Chr(34)&","&Chr(34)&""&Chr(34)&","&Chr(34)&""&Chr(34)&","&Chr(34)&""&Chr(34)&","&Chr(34)&""&Chr(34)&","&TotalPut&","&PageSize&","&L_R&","&PageNow&")")END IFResponse.Write(""&Chr(60)&""&Chr(47)&"Script"&Chr(62)&"")Response.Write("</div></td>")Response.Write("</tr>")END SUB

/***************************分页的js***************************/

var url,re,CurrentPage,FirstPageUrl,PrevPageUrl,NextPageUrl,LastPageUrl,CurrPage,PageCount,prevpage,nextpage,PageStart,PageEnd,i,ipage; url=""+document.location; if (url.indexOf("Page=")==-1) { CurrPage=1; } else { re=/(/S.*)(Page=/d*)(/S.*|/S*)/g; CurrentPage=url.replace(re,"$2"); url=url.replace("&"+CurrentPage,""); url=url.replace(CurrentPage+"&",""); url=url.replace(CurrentPage,""); CurrentPage=CurrentPage.replace("Page=","") //var re=/(?:/S{1,}Page=|/D.*)/g; //var CurrentPage=url.replace(re,""); //url=url.replace("&page="+CurrentPage,""); //url=url.replace("page="+CurrentPage+"&",""); //url=url.replace("page="+CurrentPage,""); CurrPage=CheckNum(CurrentPage,1) } if (url.indexOf("?")==-1) { url=url+"?"; } else { url=url+"&"; } url=url.replace("?&","?"); url=url.replace("&&","&"); function isInt(value){var i=parseInt(value,10);if(!isNaN(value)){if(i==value){return 1; //是一个整数}else{return 2; //是一个浮点数}}else{return 0; //不是数字}}function CheckNums(iform){if(isInt(iform.page.value)!=1){alert('页码必须为整数!');iform.btnGo.disabled=true;return false;} else{iform.btnGo.disabled=false;}}

function GoUrl(iform){ url=url+'&Page=' url=url.replace("?&","?"); url=url.replace("&&","&"); ipage=iform.page.value; lurl=url+ipage;window.location=""+lurl+"";}

function isNumberString (InString,RefString){if(InString.length==0) return (false);for (Count=0; Count < InString.length; Count++) {TempChar= InString.substring (Count, Count+1);if (RefString.indexOf (TempChar, 0)==-1)return (false);}return (true);}function CheckNum(str,num){ str=""+str; if (str.length>=1) { mynum=parseInt(str); if (isNaN(mynum)) { mynum=num; } } else { mynum=num; } return (mynum);}

function CheckPage() { url=url+'&Page=' url=url.replace("?&","?"); url=url.replace("&&","&"); ipage=document.iform.page.value; ipage=CheckNum(ipage,1) if (ipage>=PageCount) { ipage=PageCount; } else if (ipage<=1) { ipage=1; } else { ipage=ipage; } document.iform.action=url+ipage; document.iform.submit();} function ShowoPage(Tabstart,Tabend,CurrPageFont1,CurrPageFont2,PageCountFont1,PageCountFont2,PrePageFont1,PrePageFont2,RecCountFont1,RecCountFont2,FirstFont,PrevFont,NextFont,LastFont,Jump,PageNumFont1,PageNumFont2,PageNumFont3,PageNumFont4,LinkFont1,LinkFont2,LinkFont3,LinkFont4,RecCount,RecPerPage,PageNum,pageInt) { if (RecCount%RecPerPage==0) { PageCount=RecCount/RecPerPage; } else { PageCount=(parseInt(RecCount/RecPerPage)+1); } prevpage=parseInt(CurrPage-1); if (prevpage<1) { prevpage=1; } nextpage=parseInt(CurrPage+1) if (nextpage>PageCount) { nextpage=PageCount; }if (CurrPage==1&&PageCount==1) { CurrPage=1; FirstPageUrl="<font color=#999999>"+LinkFont3+FirstFont+LinkFont4+"</font>"; PrevPageUrl="<font color=#999999>"+LinkFont3+PrevFont+LinkFont4+"</font>"; NextPageUrl="<font color=#999999>"+LinkFont3+NextFont+LinkFont4+"</font>"; LastPageUrl="<font color=#999999>"+LinkFont3+LastFont+LinkFont4+"</font>"; } else if (CurrPage<=1) { CurrPage=1; FirstPageUrl="<font color=#999999>"+LinkFont3+FirstFont+LinkFont4+"</font>"; PrevPageUrl="<font color=#999999>"+LinkFont3+PrevFont+LinkFont4+"</font>"; NextPageUrl="<A href=/""+url+"Page="+nextpage+"/">"+LinkFont1+NextFont+LinkFont2+"</A>"; LastPageUrl="<A href=/""+url+"Page="+PageCount+"/">"+LinkFont1+LastFont+LinkFont2+"</A>"; } else if (CurrPage>=PageCount) { CurrPage=PageCount; FirstPageUrl="<A href=/""+url+"Page=1/">"+LinkFont1+FirstFont+LinkFont2+"</A>"; PrevPageUrl="<A href=/""+url+"Page="+prevpage+"/">"+LinkFont1+PrevFont+LinkFont2+"</A>"; NextPageUrl="<font color=#999999>"+LinkFont3+NextFont+LinkFont4+"</font>"; LastPageUrl="<font color=#999999>"+LinkFont3+LastFont+LinkFont4+"</font>"; } else { CurrPage=CurrPage; FirstPageUrl="<A href=/""+url+"Page=1/">"+LinkFont1+FirstFont+LinkFont2+"</A>"; PrevPageUrl="<A href=/""+url+"Page="+prevpage+"/">"+LinkFont1+PrevFont+LinkFont2+"</A>"; NextPageUrl="<A href=/""+url+"Page="+nextpage+"/">"+LinkFont1+NextFont+LinkFont2+"</A>"; LastPageUrl="<A href=/""+url+"Page="+PageCount+"/">"+LinkFont1+LastFont+LinkFont2+"</A>"; } if (CurrPage-PageNum<=1) { PageStart=1; } else { PageStart=CurrPage-PageNum; } if (CurrPage+PageNum>=PageCount) { PageEnd=PageCount; } else { PageEnd=CurrPage+PageNum; } if(pageInt>=PageCount) { RecPerPage=RecCount-RecPerPage*(PageCount-1); } document.write (""+Tabstart); document.write (CurrPageFont1+CurrPage+CurrPageFont2+PageCountFont1+PageCount+PageCountFont2+PrePageFont1); document.write (RecPerPage+PrePageFont2+RecCountFont1+RecCount+RecCountFont2+FirstPageUrl+PrevPageUrl); for (i=PageStart;i<=PageEnd;i++) { if (i==CurrPage) { document.write ("&nbsp;"+PageNumFont3+i+PageNumFont4+"&nbsp;"); } else { document.write ("&nbsp;<A href=/""+url+"Page="+i+"/">"+PageNumFont1+i+PageNumFont2+"</A>&nbsp;"); } } document.write (NextPageUrl+LastPageUrl+Jump); document.write ("<INPUT type=/"text/" name=/"page/" size=/"2/" οnblur=/"CheckNums(this.form)/" onmaxlength=/"7/" style=/"border: 1px solid #000000;font-size: 12px;color: #000000;width:40px;height: 18px;/" id=/"page/" value=/""+pageInt+"/"> <INPUT type=/"button/" Onclick=/"GoUrl(this.form)/" style=/"border: 1px solid #000000;font-size: 12px;color: #000000;height: 18px;/" value=/"Go/" disabled name=/"btnGo/">"+Tabend+""); }

/****************************调用的例子******************************/

<% StrSQL = "SELECT * FROM depot ORDER BY enterdate DESC"Call Show_Page_Html(StrSQL,16,10,"f4f4f4","Y","C")SUB ShowContent(Rs,TotalPut,MaxPerPage) Dim i Dim k k=(TotalPut-MaxPerPage*(CurrentPage-1))+1 i=0

%>

<table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr bgcolor="#666666"> <td width="60%" height="16"><strong><font color="#FFFFFF">===出入库管理===</font></strong></td> <td width="40%" align="right"> <table width="41%" border="0" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#339FF0"> <div align="center"><a href="input_room.asp"><font color="#FFFFFF" size="3">货物入库开单&gt;&gt;</font></a></div></td> </tr> </table></td> </tr> <tr> <td colspan="2"><table width="100%" border="0" cellpadding="2" cellspacing="1" bordercolor="#CCCCCC" class=table> <tr bgcolor="#FFFFFF"> <td width="19%" height="22"> <div align="center"><strong><font size="2">入库时间</font></strong></div></td> <td width="37%"> <div align="center"><strong><font size="2">入库单位</font></strong></div></td> <td width="21%"> <div align="center"><strong><font size="2">货物名称</font></strong></div></td> <td width="12%"> <div align="center"><strong><font size="2">货物状态</font></strong></div></td> <td width="11%"> <div align="center"><strong><font size="2">出入库操作</font></strong></div></td> </tr> <% DO WHILE NOT (Rs.EOF OR ERR OR Rs.BOF) k=k-1 if(i mod 2=0) thenclasstype = "tr1"elseclasstype = "tr2"end if%> <tr bgcolor="#F0EFD0"> <td><font size="2"> <% = rs("enterdate") %> </font></td> <td><font size="2"> <a href="input_item.asp?id=<%=rs("id")%>"> <% = rs("enterunit") %> </a> </font></td> <td><font size="2"> <% = rs("proname") %> </font></td> <td><div align="center"><font size="2"> <% IF rs("enterdate") <> "" THENResponse.Write("货已入库")ELSEIF(rs("enterdate") <> "" AND rs("outdate") <> "") THENResponse.Write("货已出库")END IF%> </font></div></td> <td valign="bottom"> <div align="center"><font size="2"><% if (rs("enterdate")<> "" AND rs("outdate") <> "") then %><font color="#FF0000" size="2">货已出库</font><% else%> <a href="out_room.asp?id=<%=rs("id")%>"><img src="images/out_room.jpg" width="72" height="17" border="0"></a> <%end if%> </font></div></td> </tr> <%I=I+1 IF I>=MaxPerPage THEN EXIT DO '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出 Rs.MoveNextLoop END SUB %>