我有两个表一个类型表type(这个表中的内容可以是后台修改的),一个是数据表photo
类型表为
id typename
12 风景
13 建筑
14 园林

photo表
id typeid filename filepath
35 12 20061228122310.jpg ..\files\
36 13 20061228122410.jpg ..\files\
37 12 20061228122510.jpg . .\files\
38 14 20061228122610.jpg ..\files\
39 12 20061228122710.jpg ..\files\
40 13 20061228122810.jpg..\files\


怎样显示图片为这样的格式
风景
.....显示 tpyeid =12图片




建筑

.....显示 tpyeid =13图片



园林
.....显示 tpyeid =14图片




如果后台还在增加图片类型那就循环显示
请问这怎样实现呢?急急急呀!!!!!!!!!

以type表做循环，然后查询photo表的typeid得到图片。
如
Dim rsType'定义Type表的记录集
Dim rsPhoto'定义Photo表的记录集
Set rsType=con.Execute("select * from [type]")'获得type表的所有记录
'循环整个type表的数据
Do Until rsType.EOF
'根据typeid查询出photo表当前记录等于typeid的所有记录
Set rsPhoto=con.Execute("select * from [photo] where typeid="&rsType("typeid"))
IF Is Not rsPhoto.EOF Then'非空判断
'循环查询到的图片
Response.Write rsType("typename")&"<br>"
Do Until rsPhoto.EOF
Response.Write "<img src='"&rsPhoto("filename")&"' width=300px; height=500px; ></img><br>"
rsPhoto.MoveNext
Loop
End IF
rsPhoto.Close
Set rsPhoto=Nothing
rsType.MoveNext
Loop
rsType.Close
Set rsType=Nothing
'注意:上面的con为ADODB.Connection对象，楼主需替换为自己程序里的数据库连接对象才能使用。

[此贴子已经被作者于2006-12-29 11:12:17编辑过]