分类多行多列显示数据库中的内容（电影服务器中的部分代码）-ASP教程,数据库相关-数据库其他-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

分类多行多列显示数据库中的内容（电影服务器中的部分代码）-ASP教程,数据库相关

来源：作者：发布时间:2007-12-26 02:05:49

把电影数据库中的任何电影按类别每行三列的方式显示在一页中。

您现在的位置："><%=application("home")%>-"><%=application("homes")%>-全部影片

<%

显示类型部分代码

dim rstype,sql

sql="select typeid,type from type"

set rstype=server.createobject("adodb.recordset")

rstype.open sql,conn,1,1

do while not rstype.eof

response.write("")

response.write(" ")

response.write(" ")

response.write(" ")

rstype.movenext

loop

rstype.close

%>

" )

response.write rstype("type") 电影类型名称

response.write("

")

response.write(" ")

dim rs,strsql

strsql =" select * from film where typeid= " &rstype("typeid")&" order by dateandtime desc"

set rs = server.createobject("adodb.recordset")

rs.open strsql,conn,1,1

countrs=rs.recordcount

all=1

do while not rs.eof

response.write(" ")

for a = 1 to 3

if rs.eof then 判断是否到了查询表结尾，假如到了结尾，则显示空单元格

response.write(" ")

else

daynum=date() -rs("dateandtime")

hitsnum=rs("hits")

with response

.write(" ")

end with

rs.movenext

all=all+1

end if

next

response.write (" ")

loop

response.write ("