模型筛选分页加select跳转

找到\item\index.asp

最后的函数更改为：

Public Function ShowPage()

          Dim I, pageStr

  pageStr= ("<div id=""fenye"" class=""fenye""><table border='0' align='center'><tr><td>")

if (CurrPage>1) then pageStr=PageStr & "<a href=""" & GetFieldLink("p",CurrPage-1,"")& """ class=""prev"">上一页 </a>"

  if (CurrPage<>PageNum) then pageStr=PageStr & "<a href=""" & GetFieldLink("p",CurrPage+1,"") & """ class=""next"">下一页 </a>"

   pageStr=pageStr & "<a href=""" & GetFieldLink("p",1,"") & """ class=""prev"">首 页</a>"

Dim startpage,n,j,a

if (CurrPage>=7) then startpage=CurrPage-5

if PageNum-CurrPage<5 Then startpage=PageNum-10

If startpage<=0 Then startpage=1

n=0

For J=startpage To PageNum

If J= CurrPage Then

PageStr=PageStr & " <a href=""#"" class=""curr""><font color=red>" & J &"</font></a>"

Else

PageStr=PageStr & " <a class=""num"" href=""" & GetFieldLink("p",j,"")&""">" & J &"</a>"

End If

n=n+1 : if n>=10 then exit for

Next

PageStr=PageStr & " <a class=""next"" href=""" & GetFieldLink("p",pagenum,"")&""">尾页</a>"

pageStr=PageStr & " <span>共" & totalPut & "个产品,分" & PageNum & "页 </span>"

pageStr=PageStr & " 转到第<select onchange=""javascript:location.href=this.value"">"

For a=1 To PageNum

pageStr=PageStr & "<option value='" & GetFieldLink("p",a,"") & "'>" & a & "</option>"

Next

pageStr=PageStr & "</select>页"

pageStr=PageStr & "</td></tr></table>"

    PageStr = PageStr & "</td></tr></table></div>"

        ShowPage = PageStr

    End Function

End Class

%>