一个 test.mdb 里有这样一个表：pinpai

现在要按下面的要求列出所有的品牌，但不能重复列举。

　

......

......

......

　

有什么方法，既简单又准确的达到要求呢？？？各位朋友都来集思广益呀。。。！！正确的结果应该是：

aaa.jpg	AAA	bbb.jpg	BBB
	AAA的介绍		BBB的介绍
ccc.jpg	CCC	ddd.jpg	DDD
	CCC介绍		DDD的介绍

　

　

　

[此贴子已经被作者于2006-9-14 23:00:40编辑过]

没看懂题目十么意思?

pinpai_name 　　　pinpai_logo 　　　　pinpai_content 　这三个名称是“文本”的，要按照要求将他们调出来，并且不能重复。。。。。

别看简单，实际做做看，不容易的哟。。。:)

不就是连接数据库,调出数据表字段吗?难道我把题目理解错了?

实际做一做就不同了，关键是不重复地用“文本”来相应调出。。并按要求排列。。实际做一做看，真的行吗？

简单啊,做BBS做留言本都需要这样做的,用VBS的FOR循环就可以做,或者不写代码也可以,用DW纯视窗环境下做,就是服务器行为重复区域,这样就可以实现按顺序调出记录了.

相信你。。。兄弟，那么给大家一个你认为最好的代码出来，好吗？：）

不知道这个论坛能不能把积分悬赏的。。。。如果能的话，我悬赏最佳代码！！

<%
Dim pinpai_name
pinpai_name=""
Dim RowHtmlA
Dim RowHtmlB
RowHtml="<tr>"
RowHtml=RowHtml&" <td width=160 rowspan=2 valign=top>{RowALogo}</td>"
RowHtml=RowHtml&" <td width=141 height=23 valign=top>{RowAName}</td>"
RowHtml=RowHtml&" <td width=161 rowspan=2 valign=top>{RowBLogo}</td>"
RowHtml=RowHtml&" <td width=167 valign=top>{RowBName}</td>"
RowHtml=RowHtml&"</tr>"
RowHtml=RowHtml&"<tr>"
RowHtml=RowHtml&"<td height=83 valign=top>{RowAContent}</td>"
RowHtml=RowHtml&"<td valign=top>{RowBContent}</td>"
RowHtml=RowHtml&"</tr>"
Dim IsMoveNext
RNex=1
For iPage=0 To rs.PageSize
Dim RespHtml=RowHtml
IF rs("pinpai_name")<>pinpai_name Then
pinpai_name=rs("pinpai_name")
IF RNex<>2 Then
RespHtml=replace(RespHtml,"{RowALogo}",rs("pinpai_logo"))
RespHtml=replace(RespHtml,"{RowAName}",rs("pinpai_name"))
RespHtml=replace(RespHtml,"{RowAContent}",rs("pinpai_content"))
Else
RespHtml=replace(RespHtml,"{RowBLogo}",rs("pinpai_logo"))
RespHtml=replace(RespHtml,"{RowBName}",rs("pinpai_name"))
RespHtml=replace(RespHtml,"{RowBContent}",rs("pinpai_content"))
Response.Write RespHtml
End IF
End IF
rs.MoveNext
IF RNex<>2 Then
RNex=RNex+1
Else
RNex=1
End IF
IF rs.EOF Then
Exit For
End IF
Next
%>
如果是分页的话，楼主可以试试如此循环对不对，个人没有试过，不保证一定正确。

[此贴子已经被作者于2006-9-15 10:18:42编辑过]

版主首先出手，很感动，发现这个论坛几个版主责任心和编写能力都很强。。。。。