| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 545 人关注过本帖
标题:[求助]上次真的是谢谢大家了!还要麻烦大家,新问题!
只看楼主 加入收藏
zuiman
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-6-12
收藏
 问题点数:0 回复次数:8 
[求助]上次真的是谢谢大家了!还要麻烦大家,新问题!

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

搜索更多相关主题的帖子: 麻烦 
2005-06-14 16:59
盖茨他爹
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:5255
专家分:0
注 册:2005-5-3
收藏
得分:0 
学美术的MM吧,我很乐意帮你,
不过我真没明白你的意思
2005-06-14 17:51
盖茨他爹
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:5255
专家分:0
注 册:2005-5-3
收藏
得分:0 
你是哪里的?如果和我在一个城市见面后帮你行吗?

不通过语言交流可能会很麻烦
2005-06-14 17:53
0987
Rank: 1
等 级:新手上路
帖 子:155
专家分:0
注 册:2005-4-22
收藏
得分:0 
怎么论坛变成泡妞的地方呀。听说有~~~~~所以赶来。我的QQ是45023587。如果不漂亮就别打扰我了。我很忙~~~`

我有型~~http://www.~~只是我有我风格
2005-06-14 18:01
zuiman
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-6-12
收藏
得分:0 
我是湖南的,我现在是在湖南的一个交友网站, 是这样的,每个会员上传的照片,都存放在一个表中, 搜索的条件是搜索会员的资料表,当搜索到一个会员后,再通过该会员的会员名字,到图片表中读取会员照片。 这样明白了吗? 盖茨他爹 你是那里的啊?真的很高兴,上次就是你帮我,谢谢了!还有谢谢 0987

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


2005-06-14 18:42
regedit
Rank: 5Rank: 5
等 级:贵宾
威 望:19
帖 子:950
专家分:0
注 册:2004-6-8
收藏
得分:0 

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


最新作品:百货品牌商品资讯第一门户([url]http://www./[/url]),欢迎交流
2005-06-14 19:29
zuiman
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-6-12
收藏
得分:0 
function rs2loop(rsid)中的“rsid”是怎么定义过来的呢? rs2.close:set rs2=nothing”这句是不是应该放在“'不存存数据时...”这行下面?

2005-06-14 20:46
盖茨他爹
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:5255
专家分:0
注 册:2005-5-3
收藏
得分:0 
我看楼主是不是把RS和RS2弄混了?
2005-06-15 09:55
regedit
Rank: 5Rank: 5
等 级:贵宾
威 望:19
帖 子:950
专家分:0
注 册:2004-6-8
收藏
得分:0 
以下是引用zuiman在2005-6-14 20:46:33的发言: function rs2loop(rsid)中的“rsid”是怎么定义过来的呢? rs2.close:set rs2=nothing”这句是不是应该放在“'不存存数据时...”这行下面?
rsid是函数rs2loop的参数,不用定义 rs2.close:set rs2=nothing放在最后面就是当有数据时它会执行这句,没有数据时也会执行这句,如果你把它放到不存在数据时下面,这样,你在存在数据时也要写这句,我这样子写也就省了写两句啦~

最新作品:百货品牌商品资讯第一门户([url]http://www./[/url]),欢迎交流
2005-06-15 09:56
快速回复:[求助]上次真的是谢谢大家了!还要麻烦大家,新问题!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035291 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved