ShowPage 显示“上一页 下一页”等信息的封装代码(2)

      Else
        strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a> "
        strTemp=strTemp & "<a href='" & strUrl & "page=" & TotalPage & "'>尾页</a>"
      end if
       strTemp=strTemp & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & TotalPage & "</strong>页 "
        strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/页"
    if ShowAllPages=True then
        strTemp=strTemp & "  转到第<input type='text' name='page' size='3' maxlength='5' value='" & CurrentPage & "' onKeyPress=""if (event.keyCode==13) window.location='" & strUrl & "page=" & "'+this.value;""'>页"
         'strTemp  = strTemp &" <Input type=""button""  onClick=""window.location.href='" & strUrl & "page='+document.all.page.value;""  name=button1  value=GO >"
    end if
    strTemp=strTemp & "</td></tr></table>"
    ShowPage=strTemp
end function