ASP分页格式

page=trim(request.form("page"))

sqlTemp=""

session("sqlSearch")=sqlTemp&""

rsM.open session("sqlSearch"),connM,1,1
        countYes=true

if rsM.eof then
            Response.write "0215-|-"

%>
<table class="tableMa" cellspacing="1px" cellpadding="0">
    <tr>
        <th>暂无数据</th>
    </tr>
</table>
<%

countYes=false‘无消息
            Response.end

else
            rsM.PageSize = 10
            rsPageCount = rsM.PageCount
            flag = page - rsPageCount
            If Page < 1 or flag >0 then Page = 1
            rsM.AbsolutePage = Page
            recordcount = rsM.recordcount
        end if
        response.write "0507-|-"
%>

<table class="tableMa" cellspacing="1px" cellpadding="0">
    <tr>
        <th>ID</th>
    </tr>

<%
        i=1
        do while not rsM.eof and i<11

%>
    <tr class="<%=classContent%>">
        <td><%=rsM("ID")%></td>

<%
        i=i+1
        rsM.movenext
        loop
        if countYes then   
%>

　　<tr>

　　分页

　　</tr>

</table>
<%
        end if
        rsM.close
        connM.close