我遇了到一个连锁性读取不同数据库资料的问题，具体思路如下： 　　先通过条件“a1”近似 数据库 “ziliao1” 中字段 “zhiliao1_01”得到一个记录集 　　再通过数据库“zhiliao1”中一条记录中的字段“zhiliao1_02” 这个条件 　　再次读取数据库 “ziliao2” 中 与条件相符合的一条数据 我是这样写的 <%dim a1,b1,page,pagesize,pagecount a1=80

pagesize = 5 page = request("page") if page ="" or isnull(page) then page = 1 if not isnumeric(page) then page = 1 page = cint(page)

set rs=Server.CreateObject("ADODB.RecordSet") rs.open "SELECT * from ziliao1 where ziliao1_01 like ' "&a1&"' '",conn,3,3

rs.pagesize = pagesize pagecount = rs.pagecount if page < 1 then page = 1 elseif page > pagecount then page = pagecount end if

b1=rs("zhiliao1_02") set rs2=Server.CreateObject("ADODB.RecordSet") rs2.open "SELECT * from zhiliao2 where zhiliao2_01 like '"&b1&"' ",conn,3,3 %> 页面显示的程序如下： <% if not rs.eof then ' 重复 rs.absolutepage = page end if %> <% dim i for i = 1 to pagesize if rs.eof then exit for %> <%=rs("zhiliao1_01")%> <%=rs("zhiliao1_02")%> <%=rs("zhiliao1_03")%> <%=rs("zhiliao2_01")%> <%=rs("zhiliao2_02")%> <% rs.movenext() next %> 运行之后，记录集“rs”的重复能够实现，但是第二个记录集重复之，都是一个条件的来的 因为，条件“b1”是根据记录集“rs”变动，我应该怎么些才是正确的？ 不知道小妹这样说的明白不？各位大虾知道我的意思了吗？ 怎么样写才能实现呢？在线等大家的帮助了！^_^

学美术的MM吧,我很乐意帮你,
不过我真没明白你的意思

你是哪里的?如果和我在一个城市见面后帮你行吗?

不通过语言交流可能会很麻烦

怎么论坛变成泡妞的地方呀。听说有~~~~~所以赶来。我的QQ是45023587。如果不漂亮就别打扰我了。我很忙~~~`

我是湖南的，我现在是在湖南的一个交友网站， 是这样的，每个会员上传的照片，都存放在一个表中， 搜索的条件是搜索会员的资料表，当搜索到一个会员后，再通过该会员的会员名字，到图片表中读取会员照片。 这样明白了吗？ 盖茨他爹 你是那里的啊？真的很高兴，上次就是你帮我，谢谢了！还有谢谢 0987

[此贴子已经被作者于2005-6-14 18:43:01编辑过]

你可以将这些写成1个函数 如下: <%dim a1,b1,page,pagesize,pagecount a1=80

pagesize = 5 page = request("page") if page ="" or isnull(page) then page = 1 if not isnumeric(page) then page = 1 page = cint(page)

set rs=Server.CreateObject("ADODB.RecordSet") rs.open "SELECT * from ziliao1 where ziliao1_01 like ' "&a1&"' '",conn,3,3

rs.pagesize = pagesize pagecount = rs.pagecount if page < 1 then page = 1 elseif page > pagecount then page = pagecount end if%> <% if not rs.eof then ' 重复 rs.absolutepage = page end if %> <% dim i for i = 1 to pagesize if rs.eof then exit for %> <%=rs("zhiliao1_01")%> <%=rs("zhiliao1_02")%> <%=rs("zhiliao1_03")%> <%=rs("zhiliao2_01")%> <%=rs("zhiliao2_02")%> <%'这里调用要显示的信息,如会员照片 Call rs2loop(rs("zhiliao1_02"))%> <% rs.movenext() next %> <% '用来循环输出的函数... function rs2loop(rsid) set rs2=Server.CreateObject("ADODB.RecordSet") rs2.open "SELECT * from zhiliao2 where zhiliao2_01 like '"&rsid&"' ",conn,3,3 if not(rs2.eof and rs2.bof) then do while not rs2.eof .....'存在数据时循环 loop else '不存存数据时... end if rs2.close:set rs2=nothing end function%>

function rs2loop(rsid)中的“rsid”是怎么定义过来的呢？ “rs2.close:set rs2=nothing”这句是不是应该放在“'不存存数据时...”这行下面？

我看楼主是不是把RS和RS2弄混了？

rsid是函数rs2loop的参数,不用定义 rs2.close:set rs2=nothing放在最后面就是当有数据时它会执行这句,没有数据时也会执行这句,如果你把它放到不存在数据时下面,这样,你在存在数据时也要写这句,我这样子写也就省了写两句啦~