代码:

---

<style type="text/css">
<!--
a:link {
	font-family: "宋体";
	color: #000000;
	text-decoration: none;
}
a:visited {
	font-family: "宋体";
	font-size: 12px;
	color: #999999;
	text-decoration: none;
}
a:hover {
	font-family: "宋体";
	font-size: 13px;
	color: #33CC00;
	text-decoration: none;
}
td {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #000000;
}
body {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
-->
</style>

<%
''===============================================
''@name            getPageLink
''@date            2005-8-23
''@author          NetFog
''@desc            翻页样式
''===============================================

Dim demoResult,CurPage,TotalPage,Step
CurPage = Request("Page")
TotalPage = 50
Step = 9

If (CurPage = "") Or (IsNumeric(CurPage) = False) or (CurPage < 1) Then
	CurPage = 1
End If

CurPage = Cint(CurPage)

If CurPage > TotalPage Then CurPage = TotalPage

demoResult = getPageLink(CurPage,TotalPage,Step,"Page","demoPage.asp","&OtherParameter=15","<td width=20 valign=middle height=18 align=center bgcolor=""#FFFFFF"">","</td>","<td width=20 valign=middle height=18 align=center bgcolor=red>","</td>","<font face=webdings title=首页>9</font>","<font face=webdings title=尾页>:</font>","<font face=webdings title=上页>7</font>","<font face=webdings title=下页>8</font>")

Response.Write "<table border=0 cellspacing=1 bgcolor=#000000><tr>" & demoResult & "</tr></table>"

Function getPageLink(pCurPage,pTotalPage,pStep,pPageParameter,pURL,pOtherParameter,pUrlHead,pUrlFoot,pCurUrlHead,pCurUrlFoot,pFirstPageStr,pLastPageStr,pPrePageStr,pNextPageStr)
	Dim TmpResult,MiddleNumber,HasPrePage,HasNextPage,i,LinksHead,LinksFoot,OtherInfo
	MiddleNumber = FormatInt(pStep/2)
	TmpResult = ""
	HasPrePage = 0
	HasNextPage = 0
	LinksHead = ""
	LinksFoot = ""
	If pTotalPage <= pStep Then
		For i = 1 to pTotalPage
			If i = pCurPage Then 
				TmpResult = TmpResult & pCurUrlHead & i & pCurUrlFoot
			Else
				TmpResult = TmpResult & pUrlHead & "<a href=" & pURL & "?" & pPageParameter & "=" & i & pOtherParameter & ">" & i & "</a>" & pUrlFoot
			End If
		Next
	End If
	If pTotalPage > pStep Then
		If pCurPage<=MiddleNumber Then
			For i = 1 to pCurPage
				If i = pCurPage Then 
					TmpResult = TmpResult & pCurUrlHead & i & pCurUrlFoot
				Else
					TmpResult = TmpResult & pUrlHead & "<a href=" & pURL & "?" & pPageParameter & "=" & i & pOtherParameter & ">" & i & "</a>" & pUrlFoot
				End If
			Next
			For i = pCurPage+1 To pStep
				TmpResult = TmpResult & pUrlHead & "<a href=" & pURL & "?" & pPageParameter & "=" & i & pOtherParameter & ">" & i & "</a>" & pUrlFoot
			Next
		ElseIf pCurPage>MiddleNumber Then
			For i = pCurPage-MiddleNumber+1 To pCurPage
				If i = pCurPage Then 
					TmpResult = TmpResult & pCurUrlHead & i & pCurUrlFoot
				Else
					TmpResult = TmpResult & pUrlHead & "<a href=" & pURL & "?" & pPageParameter & "=" & i & pOtherParameter & ">" & i & "</a>" & pUrlFoot
				End If
			Next
			If pCurPage+pStep-MiddleNumber < pTotalPage Then
				For i = pCurPage + 1 To pCurPage+pStep-MiddleNumber
					TmpResult = TmpResult & pUrlHead & "<a href=" & pURL & "?" & pPageParameter & "=" & i & pOtherParameter & ">" & i & "</a>" & pUrlFoot
				Next
			Else
				For i = pCurPage + 1 To pTotalPage
					TmpResult = TmpResult & pUrlHead & "<a href=" & pURL & "?" & pPageParameter & "=" & i & pOtherParameter & ">" & i & "</a>" & pUrlFoot
				Next
			End If
		End If
	End If
	If pCurPage > 1 Then HasPrePage = 1
	iF pCurPage < pTotalPage Then HasNextPage = 1
	If HasPrePage = 1 Then
		LinksHead = LinksHead & pUrlHead & "<a href=" & pURL & "?" & pPageParameter & "=1" & pOtherParameter & ">" & pFirstPageStr & "</a>" & pUrlFoot & pUrlHead & "<a href=" & pURL & "?" & pPageParameter & "=" & pCurPage-1 & pOtherParameter & ">" & pPrePageStr & "</a>" & pUrlFoot
	Else
		LinksHead = LinksHead & pUrlHead & pFirstPageStr & pUrlFoot & pUrlHead & pPrePageStr & pUrlFoot
	End If
	If HasNextPage = 1 Then
		LinksFoot = LinksFoot & pUrlHead & "<a href=" & pURL & "?" & pPageParameter & "=" & pCurPage+1 & pOtherParameter & ">" & pNextPageStr & "</a>" & pUrlFoot & pUrlHead & "<a href=" & pURL & "?" & pPageParameter & "=" & pTotalPage & pOtherParameter & ">" & pLastPageStr & "</a>" & pUrlFoot
	Else
		LinksFoot = LinksFoot & pUrlHead & pNextPageStr & pUrlFoot & pUrlHead & pLastPageStr & pUrlFoot
	End If
	TmpResult = LinksHead & TmpResult & LinksFoot
	getPageLink = TmpResult
End Function

Function FormatInt(vInt)
	Dim TempStrLeft,TempStrRight,DotPos,TempStrInt
	TempStrInt = Cstr(vInt)
	DotPos = InStr(TempStrInt,".")
	If DotPos = 0 Then FormatInt = vInt : Exit Function
	TempStrLeft = FormatNumber(Left(TempStrInt,DotPos-1),0)
	TempStrRight = FormatNumber("0." & Right(TempStrInt,Len(TempStrInt)-DotPos),6)
	If TempStrRight>=0.5 Then
		FormatInt = TempStrLeft + 1
	Else
		FormatInt = TempStrLeft
	End If
End Function
%>

---