书画经典－故宫博物院上海博物馆古代书画藏品展

<% dim id '编号 dim strSQL 'sql语句 dim typeid '类型编号 dim tname '类别名称 dim dataArray '查询数组 dim dataCount '记录数量 dim i dim k dim columns '显示行数 typeid = request("id") if typeid = "3" then tname = "元代书画" elseif typeid = "2" then tname = "两宋书画" else typeid = "1" tname = "两晋隋唐书画" end if strSQL = "select zpid,ndzt,mc,zz,tp from zp where nd = " & typeid & " order by sx,zpid" SQLQuery strSQL,false dataArray = objRst.getRows dataCount = ubound(dataArray,2) columns = (dataCount-1)/3+1 %> 书画经典－故宫博物院上海博物馆古代书画藏品展

【两晋隋唐书画】

【两宋书画】

【元代书画】

> 展览精品> <%=tname%>

<% for i=0 to columns %> <% for k=i*3 to i*3+2 if k<=dataCount then %> <% end if next %> <% for k=i*3 to i*3+2 if k<=dataCount then %> <% end if next %> <% next %>


<%=dataArray(1,k)%> <%=dataArray(3,k)%> <%=dataArray(2,k)%>

<% closeConnection true %>