楼主是不是想要查询列表中所有表的记录条数,这100多个表结构一样的吧??
如果是,那么好办了。
首先说一下你可以小睡一会儿的原因:因为每次你都去open一次连接,关闭一次连接,想象一下吧,连续打开关闭100多次数据库连接,别说查询了,光打开关闭连接就够你睡一会儿了。
你需要做的是,把这100多条sql语句联合起来,然后用union:
select distinct 村,乡镇 from 文本1
union
select distinct 村,乡镇 from 文本2
然后在最外面加一个select显示你要的结果,这样就是一条sql语句,只是union多了一些,但是无伤大雅,只要你的表数据不是几十万那样的。。。
如果不是上述问题,那就得研究一下脚本优化的问题了。
<%
dim curpage
curpage=request("curpage")
if curpage="" then curpage=1 '取得当前页码,如果返回为空,就默认第一页
%>
<%
'--------------------------------------------
'打开记录集
set rs=servercreateobject("adodbrecordset")
sql="select from 表"
rsopen sql,conn,1,1
'--------------------------------------------
rspagesize=10 ‘设置每页显示10条
rsabsolutepage=curpage ‘设置游标页码等于当前页码
if not rseof then '记录集不为空
for i= 1 to rspagesize ’循环显示数据
if rseof then '显示过程中随着游标下移,一旦记录到最后就立刻退出循环
exit for
end if
%>
<%=rs("a")%> 内容1
<%=rs("b")%> 内容2
<%=rs("c")%> 内容3
<%=rs("d")%> 内容4
<%
rsmovenext ‘游标下移
next
%>
<%if curpage=1 then%>第一页<%else%><a href="curpage=1">第一页</a><%end if%>
<%if curpage=1 then%>上一页<%else%><a href="curpage=<%=curpage-1%>">上一页</a><%end if%>
<%if rspagecount<curpage+1 then%>下一页<%else%><a href="curpage=<%=curpage+1%>">下一页</a><%end if%>
<%if rspagecount<curpage+1 then%>尾页<%else%><a href="curpage=<%=rspagecount%>" >尾页</a><%end if%><br />
<%
else
responsewrite "<tr><td>暂时没有内容</td></tr>"
end if
rsclose
%>
你那语句不对
应该是:
<marquee
direction="up"
scrollamount="2"
height="260"
onMouseOver="thisstop();"
onMouseOut="thisstart();"><%Call
List_Pindao("NewsData2","A0001",12,33,0)%></marquee>
这里的<%Call
List_Pindao("NewsData2","A0001",12,33,0)%>可以根据自己的情况修改。
以上就是关于SQL 循环查100多个表全部的内容,包括:SQL 循环查100多个表、ASP 从 sql 数据库读取数据循环显示在页面并且分页、读取SQL数据库信息并逐条向上滚动公告显示 我想显示前十条后循环 现在我实现了一条 其他的不知怎样搞等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)