28,391
社区成员
发帖
与我相关
我的任务
分享
<%
set rs=server.CreateObject("adodb.recordset")
'加上一个排序,这样比较好处理相同的图书的借阅者
sql="select kc.kc_name,kc.kc_tijiao,yh.yh_name from yh,kc where yh.yh_kc1=kc.kc_name"&_
"or yh.yh_kc2=kc.kc_name order by kc_name desc"
rs.open sql,cnn,1,3
%>
<table width="650" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="25" background="pic/desktop_bar_bg.gif"> <div align="center">书目名称</div> </td>
<td height="27" background="pic/desktop_bar_bg.gif"> <div align="center">作者</div> </td>
<td background="pic/desktop_bar_bg.gif"> <div align="center">借阅者</div> </td>
</tr>
<%
rs.MoveFirst
dim tempbookname'图书名称临时变量,为后面合并借阅者用的
tempbookname=rs("ck_name")'取得第一本书的名称
dim users'借阅者的连接字符
users=rs("yh_name")'取得第一本书的第一个借阅者
dim author:author=rs("kc_tijiao")
rs.movenext'从第2条记录开始
Do While Not Rs.EOF
if rs("ck_name")=tempbookname then'同一本书则连接借阅者
users=users&","&rs("yh_name")
else'不同一本书时,输出信息,并重新设置tempbookname和users,便于重新开始统计
%>
<tr>
<td height="25" bgcolor="#FFFFFF"> <%=tempbookname%> </td>
<td height="25" bgcolor="#FFFFFF"> <%=author%> </td>
<td bgcolor="#FFFFFF"> <%=users%> </td>
</tr>
<%
'更新变量
tempbookname=rs("ck_name")
users=rs("yh_name")
author=rs("kc_tijiao")
end if
rs.MoveNext
Loop
%>
</table>
Select b.kc_name,b.kc_title,a.name from A表 a,B表 b Where a.kc_name1=b.kc_name
And b.kc_name='中学诗词选'