[求助]上次真的是谢谢大家了！还要麻烦大家，新问题！ - ASP

海的无奈

电梯直达

1^#

发表于 2010-1-13 01:47:21 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我遇了到一个连锁性读取不同数据库资料的问题，具体思路如下：　　先通过条件“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”变动，我应该怎么些才是正确的？不知道小妹这样说的明白不？各位大虾知道我的意思了吗？怎么样写才能实现呢？在线等大家的帮助了！^_^

收藏0

使用道具举报

天语悠悠

2^#

发表于 2010-1-13 01:47:25 | 只看该作者

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

回复支持反对

使用道具举报

藍麥可兒

3^#

发表于 2010-1-13 01:47:28 | 只看该作者

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

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

回复支持反对

使用道具举报

ㄣ紸縡のoァ

4^#

发表于 2010-1-13 01:47:32 | 只看该作者

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

回复支持反对

使用道具举报

封xin封mg

5^#

发表于 2010-1-13 01:47:38 | 只看该作者

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

回复支持反对

使用道具举报

风声鹤唳

6^#

发表于 2010-1-13 01:47:41 | 只看该作者

你可以将这些写成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%>

回复支持反对

使用道具举报

紫恋

7^#

发表于 2010-1-13 01:47:45 | 只看该作者

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

回复支持反对

使用道具举报

遗失ぜ的ァ美

8^#

发表于 2010-1-13 01:47:48 | 只看该作者

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

回复支持反对

使用道具举报

敬你永远遗忘

9^#

发表于 2010-1-13 01:47:52 | 只看该作者

以下是引用zuiman在2005-6-14 20:46:33的发言： function rs2loop(rsid)中的“rsid”是怎么定义过来的呢？ “rs2.close:set rs2=nothing”这句是不是应该放在“'不存存数据时...”这行下面？
rsid是函数rs2loop的参数,不用定义 rs2.close:set rs2=nothing放在最后面就是当有数据时它会执行这句,没有数据时也会执行这句,如果你把它放到不存在数据时下面,这样,你在存在数据时也要写这句,我这样子写也就省了写两句啦~

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册