ASP分页带选择页数跳转

答案：'--------------分页代码样式二 选择页数跳转---------------
'********************************************************
function showpage(totalnumber,pagecount,CurrentPage,filename)
    If instr(filename,"?")=0 Then
    filename=filename&"?"
    else
    filename=filename&"&"
    End If
    
    Response.Write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%'><tr>"
    Response.Write "<td align='left'>当前第<font color=ff6600><b>"&CurrentPage&"</b></font>页共有<font color=ff6600><B>"&pagecount&"</B></font>页共有<font color=ff6600><B>"&totalnumber&"</B></font>条信息</td>"
    Response.Write "<td align='right'>"
    If CurrentPage>1 Then
        Response.Write "【<a href=>    End If
    If CurrentPage<pagecount Then
        Response.Write "【<a href=>    End If
    response.write "<select name='jumpMenu' onChange='location.href=>    dim t
    For t= 1 To pagecount
        response.write "<option value="&filename&"page="&t&" "
        If t=CurrentPage Then
            response.write "selected"
        End If
        response.write ">第"&t&"页</option>"
    Next
    response.write "</select>"
    Response.Write "</td>"
    Response.Write "</tr></table>"
end    function 

上一个：简单ASP留言本讲解,适合新手!
下一个：ASP显示用户是否在线的方法