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

    sTableName = Request("table_name")
    Set adox = Server.CreateObject("ADOX.Catalog")
    adox.ActiveConnection = Conn
    echo "<textarea cols=70 rows=8>" & adox.Procedures(sTableName).Command.CommandText & "</textarea><br>"
    if err <> 0 then
        echo err.description
        exit sub
    end if
end sub


'==================================================================分页导航
'分页导航
sub showNavBar (rs,page,pageUrl,pageSize)
    page = cint(page)
    %>
    <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
    <tr>
      <% if request("primarykey") <> "" and request("table_name") <> "" then %>
      <td align="left">当前表：<font color=red><%=request("table_name")%></font>    
      <a href="?key=edit&table_name=<%=request("table_name")%>&primarykey=<%=request("primarykey")%>&action=add">插入新记录</a> 
      </td>
      <% end if %>
      <td align="right">
        <%
        echo "共有" & rs.recordCount & "条纪录 当前" & page & "/" & rs.PageCount & "页"
        if page > 1 then
            echo "<a href='" & pageUrl & "&page=1&pageSize="&pageSize&"'>首页</a> " 
            echo "<a href='" & pageUrl & "&page=" & page - 1 & "&pageSize="&pageSize&"'>上页</a> "
        end if
        if (rs.PageCount > 1 and page < rs.PageCount) then
            echo "<a href='" & pageUrl & "&page=" & page + 1 & "&pageSize="&pageSize&"'>下页</a> "