<Script Language='JavaScript' runat='Server'>
DB_PageSz = 10 ;
DB_List = 10 ;
DB_TimOut = 600 ;

function DB_PageShow(Conn, rs, SQL)
{
	var PageCnt = Request("PG_CNT") ;
	var result = new Array(2);
	
	Conn.CommandTimeout = DB_TimOut ;
	//rs = Server.CreateObject("ADODB.RECORDSET") ;
	
	if (rs.state == 1) rs.close ;
	
	rs.Open(SQL, Conn, 3, 1) ;
	
	
	if (!rs.EOF)
	{
		rs.pagesize = DB_PageSz ;
		if (PageCnt > rs.pagecount) PageCnt = rs.pagecount ;
		if (PageCnt == "" || isNaN(PageCnt) ) 
		{
			PageCnt = 1 ;
			rs.absolutepage = PageCnt ;
		}	else rs.absolutepage = PageCnt ;
		
		//result[]=rs ;
		result[0]=nPage_Ctrl(rs, PageCnt) ;
		result[1]=PageCnt ;
	} else {
		result[0]="" ;
	}
	return result ;
}

function nPage_Ctrl(rs, PageCnt)		
{
	// pFlag : 01(b)=有前區段 ,10(b)=有後區段
	var i=0, j=0,nSemg=0, pFlag=0 ;
	
	var OutPut="";
	PageCnt=parseInt(PageCnt, 10) ;
	
	
	// 取得區段
	nSemg = Math.floor((PageCnt-1)/DB_List) ;
	//response.write(PageCnt) ;
	
	// 設定該區段起始頁及結束頁
	if (nSemg>0) 
	{
		pStr = nSemg*DB_List+1 ;
		pFlag+=1;
	} else pStr = 1 ;
	
	pEnd = (nSemg+1)*DB_List ;
	if (pEnd>rs.pagecount)
		pEnd = rs.pagecount ;
	else pFlag+=2 ;
	
	if (pFlag&1)
		OutPut+="<a href='' onClick='JavaScript:JumpPage("+
							(PageCnt-DB_List)+
							");window.event.returnValue=false;'>-"+DB_List+"</a>  " ;
	if (PageCnt!=1)
		OutPut+="<a href='' onClick='JavaScript:JumpPage("+
							(PageCnt-1)+
							");window.event.returnValue=false;'><font face=webdings>3</font></a>  " ;		
	for (i=pStr;i<=pEnd;i++)
	{
		if (i==PageCnt)
			OutPut+="<font color=black>"+ (i) + "</font>  " ;
		else
			OutPut+="<a href='' onClick='JavaScript:JumpPage("+
							i+
							");window.event.returnValue=false;'>"+i+"</a>  " ;
	}		
	if (PageCnt!=rs.pagecount)
		OutPut+="<a href='' onClick='JavaScript:JumpPage("+
							(PageCnt+1)+
							");window.event.returnValue=false;'><font face=webdings>4</font></a>  " ;
	
	if (pFlag&2)
		OutPut+="<a href='' onClick='JavaScript:JumpPage("+
							(PageCnt+DB_List)+
							");window.event.returnValue=false;'>+"+DB_List+"</a>  " ;

	return OutPut ;
}
	

</Script>

<Script Language='VBScript' runat='Server'>
function VB_DB_PageShow(conn, rs, SQL)
	Dim temp, result 
	temp = DB_PageShow(conn, rs, SQL).join(", ") 
	resutlt = Split(temp, ", ") 
	VB_DB_PageShow = result 
end function
</Script>

<Script Language='JavaScript'>

function JumpPage(i)
{
	
	var PCT ;
	PCT=document.createElement("input") ;
	PCT.id="PG_CNT" ;
	PCT.name="PG_CNT" ;
	PCT.type="hidden" ;
	PCT.value=i ;
	// 有空改成直接用 window.event.srcElement 找父物件，直到找到 form 為止
	document.getElementsByTagName('form')[0].appendChild(PCT) ;	
	document.getElementsByTagName('form')[0].action="<%=Request.ServerVariables("script_name")%>" ;
	document.getElementsByTagName('form')[0].submit() ;
}
</Script>


					
                        
 
                         

							
                             搜尋相關Tags的文章：
							[ ASP ] , [  分頁 ] , [ 資料庫 ] , 


							
							 本篇文章發表於2008-06-14 19:59
                         
            

		    
			== 簽名檔 == 

			By Lak
Web Site: Lak4CYUT.blogspot.com