改下ks_cls/kesion.label.commoncls.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 & "         </select>"
 End Function

改成

'分页样式
 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 & "         </select>"
 End Function