标题: [求助]上次真的是谢谢大家了！还要麻烦大家，新问题！ [打印本页] 作者: 海的无奈 时间: 2010-1-13 01:47 标题: [求助]上次真的是谢谢大家了！还要麻烦大家，新问题！ 我遇了到一个连锁性读取不同数据库资料的问题，具体思路如下： 先通过条件“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”变动，我应该怎么些才是正确的？ 不知道小妹这样说的明白不？各位大虾知道我的意思了吗？怎么样写才能实现呢？在线等大家的帮助了！^_^作者: 天语悠悠 时间: 2010-1-13 01:47
学美术的MM吧,我很乐意帮你,
不过我真没明白你的意思作者: 藍麥可兒 时间: 2010-1-13 01:47
你是哪里的?如果和我在一个城市见面后帮你行吗?
不通过语言交流可能会很麻烦作者: ㄣ紸縡のoァ 时间: 2010-1-13 01:47
怎么论坛变成泡妞的地方呀。听说有~~~~~所以赶来。我的QQ是45023587。如果不漂亮就别打扰我了。我很忙~~~`作者: 封xin封mg 时间: 2010-1-13 01:47
我是湖南的，我现在是在湖南的一个交友网站， 是这样的，每个会员上传的照片，都存放在一个表中， 搜索的条件是搜索会员的资料表，当搜索到一个会员后，再通过该会员的会员名字，到图片表中读取会员照片。 这样明白了吗？ 盖茨他爹 你是那里的啊？真的很高兴，上次就是你帮我，谢谢了！还有谢谢 0987作者: 风声鹤唳 时间: 2010-1-13 01:47
你可以将这些写成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%>作者: 紫恋 时间: 2010-1-13 01:47
function rs2loop(rsid)中的“rsid”是怎么定义过来的呢？ “rs2.close:set rs2=nothing”这句是不是应该放在“'不存存数据时...”这行下面？作者: 遗失ぜ的ァ美 时间: 2010-1-13 01:47
我看楼主是不是把RS和RS2弄混了？作者: 敬你永远遗忘 时间: 2010-1-13 01:47
以下是引用zuiman在2005-6-14 20:46:33的发言： function rs2loop(rsid)中的“rsid”是怎么定义过来的呢？ “rs2.close:set rs2=nothing”这句是不是应该放在“'不存存数据时...”这行下面？
rsid是函数rs2loop的参数,不用定义 rs2.close:set rs2=nothing放在最后面就是当有数据时它会执行这句,没有数据时也会执行这句,如果你把它放到不存在数据时下面,这样,你在存在数据时也要写这句,我这样子写也就省了写两句啦~