|
目 录 |
<%
Dim rs1,niandai
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from niandai where youhua=1 order by pid desc",conn,1,1
do while not rs1.eof
niandai=rs1("niandai")
%>
 .gif>
|
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from paintings where time='"&niandai&"' and youhua=1 and xianshi=1 order by pid",conn,1,1
Dim jifu,i
jifu=rs.recordcount
If jifu<=3 then%>
<% For i=1 To jifu %>
|
> BORDER="0"> alt="<% = trim(rs("name"))%>,<% = trim(rs("name"))%>.<% = trim(rs("name"))%>,油画|油画艺术|中国油画|油画艺术欣赏|赵春林油画艺术|中国油画|西藏油画|藏族油画|藏族风情油画|藏区油画|雪山油画|西藏风景油画|西藏风光油画|中国藏族艺术|藏族艺术"><% = trim(rs("name"))%> |
<% rs.movenext%>
<%next%>
<%End if
%>
<%If jifu<=6 And jifu>3 then%>
<% For i=1 To 3 %>
|
> BORDER="0"> alt="<% = trim(rs("name"))%>,<% = trim(rs("name"))%>.<% = trim(rs("name"))%>,油画|油画艺术|中国油画|油画艺术欣赏|赵春林油画艺术|中国油画|西藏油画|藏族油画|藏族风情油画|藏区油画|雪山油画|西藏风景油画|西藏风光油画|中国藏族艺术|藏族艺术"><% = trim(rs("name"))%> |
<% rs.movenext%>
<%next%>
<% For i=4 To jifu %>
|
> BORDER="0"> alt="<% = trim(rs("name"))%>,<% = trim(rs("name"))%>.<% = trim(rs("name"))%>,油画|油画艺术|中国油画|油画艺术欣赏|赵春林油画艺术|中国油画|西藏油画|藏族油画|藏族风情油画|藏区油画|雪山油画|西藏风景油画|西藏风光油画|中国藏族艺术|藏族艺术"><% = trim(rs("name"))%> |
<% rs.movenext%>
<%next%>
<%End if
%>
<%If jifu<=9 And jifu>6 then%>
<% For i=1 To 3 %>
|
> BORDER="0"> alt="<% = trim(rs("name"))%>,<% = trim(rs("name"))%>.<% = trim(rs("name"))%>,油画|油画艺术|中国油画|油画艺术欣赏|赵春林油画艺术|中国油画|西藏油画|藏族油画|藏族风情油画|藏区油画|雪山油画|西藏风景油画|西藏风光油画|中国藏族艺术|藏族艺术"><% = trim(rs("name"))%> |
<% rs.movenext%>
<%next%>
<% For i=4 To 6 %>
|
> BORDER="0"> alt="<% = trim(rs("name"))%>,<% = trim(rs("name"))%>.<% = trim(rs("name"))%>,油画|油画艺术|中国油画|油画艺术欣赏|赵春林油画艺术|中国油画|西藏油画|藏族油画|藏族风情油画|藏区油画|雪山油画|西藏风景油画|西藏风光油画|中国藏族艺术|藏族艺术"><% = trim(rs("name"))%> |
<% rs.movenext%>
<%next%>
<% For i=6 To jifu-1 %>
|
> BORDER="0"> alt="<% = trim(rs("name"))%>,<% = trim(rs("name"))%>.<% = trim(rs("name"))%>,油画|油画艺术|中国油画|油画艺术欣赏|赵春林油画艺术|中国油画|西藏油画|藏族油画|藏族风情油画|藏区油画|雪山油画|西藏风景油画|西藏风光油画|中国藏族艺术|藏族艺术"><% = trim(rs("name"))%> |
<% rs.movenext%>
<%next%>
<%End if
%>
<%
rs.close
set rs=nothing
%>
<% rs1.movenext
loop
rs1.close
set rs1=nothing
%>
|