在线数据库管理工具(db007) v1.5(28)

            echo "<a href='" & pageUrl & "&page=" & rs.pageCount & "&pageSize="&pageSize&"'>末页</a> "
        end if
        echo "转到:第"
        echo "<select name='select2' onChange='location.href=this.value;'>"
        dim i
        for i = 1 to rs.PageCount
            echo "<option value='"& pageUrl &"&pageSize="&pageSize&"&page="& i & "' "
            if i = cint(page) then echo "selected"
            echo ">"& i &"</option>"
        next
        echo "</select>页"
        %>
        </td>
    </tr>
    </table>
    <%
end sub


'==================================================================显示查询
sub showselect(sql)
    dim page,pageUrl,strdel,geturl                    
    pageSize = request("pageSize")             '设置每页显示的记录数
    if pageSize = "" or not isNumeric(pageSize) then pageSize = 50

    '判断是否删除
    if request("keylog") <> "" then
        strdel = "delete from " & request("table_name") & " where " & request("primarykey") & "=" & request("keylog")
        response.Write strdel
        conn.execute(strdel)
        geturl = "?" & replace(request.QueryString,"&keylog="&request("keylog"),"")
        response.Redirect geturl
    end if

    page = request("page")           '设置当前显示的页数