在KS_Cls/Kesion.PublicCls.asp,这个文件里找到

Public Function ReturnPageStyle(PageStyle)

ReturnPageStyle = " 分页样式"
ReturnPageStyle = ReturnPageStyle & " <select name=""PageStyle"" style=""width:70%;"" class=""textbox"">"
ReturnPageStyle = ReturnPageStyle & " <option value=1"
If PageStyle=1 Then ReturnPageStyle = ReturnPageStyle & " Selected"
ReturnPageStyle = ReturnPageStyle & ">①首页 上一页 下一页 尾页</option>"
ReturnPageStyle = ReturnPageStyle & " <option value=2"
If PageStyle=2 Then ReturnPageStyle = ReturnPageStyle & " Selected"
ReturnPageStyle = ReturnPageStyle & ">②共N页/N篇 [1] [2] [3]</option>"
ReturnPageStyle = ReturnPageStyle & " <option value=3"
If PageStyle=3 Then ReturnPageStyle = ReturnPageStyle & " Selected"
ReturnPageStyle = ReturnPageStyle & ">③<< < > >></option>"

ReturnPageStyle = ReturnPageStyle & " <option value=3"
If PageStyle=3 Then ReturnPageStyle = ReturnPageStyle & " Selected"
ReturnPageStyle = ReturnPageStyle & ">③<< < > >></option>"

'上面为加的第四种样式

ReturnPageStyle = ReturnPageStyle & " </select>"

相应的找到

'动态显示分页
Function GetPageList(FileName,PageStyle,CurrPage,TotalPage, ShowTurnToFlag)

Case 3
If CurrPage=1 Then
PageStr="<font face=webdings>9</font> <font face=webdings>7</font>"
ElseIf CurrPage=2 Then
PageStr="<a href=""" & FileName & """ title=""首页""><font face=webdings>9</font></a> <a href=""" & FileName & """ title=""上一页""><font face=webdings>7</font></a>"
Else
PageStr="<a href=""" & FileName & """ title=""首页""><font face=webdings>9</font></a> <a href=""" & FileName & "&Page="& CurrPage - 1 &""" title=""上一页""><font face=webdings>7</font></a> "
End If
If CurrPage=TotalPage Then
PageStr=PageStr & " <font face=webdings>8</font> <font face=webdings>:</font>"
Else
PageStr=PageStr & " <a href=""" & FileName & "&Page=" & CurrPage + 1 & """ title=""上一页""><font face=webdings>8</font></a> <a href=""" & FileName & "&Page=" & TotalPage & """><font face=webdings>:</font></a> "
End If

下面加上

case 4

if ......你想要的样子,参照上面的 Case 3 中内容

end if