 |
|
| 相册公告 |
 |
|
<%dim jj1
jj1=1
sql="select top 10 * from gg"
set rss=connphoto.execute(sql)
if rss.eof then
response.write("暂无公告")
else
do while not rss.eof and jj1<=10
response.write("  ")
response.write(""&left(rss("title"),15)&"")
if jj1<10 then
response.write("
")
end if
jj1=jj1+1
rss.movenext
loop
rss.close
end if
%>
|
|
 |
 |
推荐相册 |
 |
|
<%
dim i
i=1
sql="select top 3 * from xc where tj=1 and filename<>'' and xcdj<>2 order by id desc"
set rss=connphoto.execute(sql)
if rss.eof then
response.write("| 没有推荐相册显示 | ")
else
%>
<%do while not rss.eof and i<=3%>
|
|
<%
if i<>3 then
response.write(" | ")
end if
i=i+1
rss.movenext
loop%>
<%
end if
rss.close
%>
|
|
|
 |
最新相册 |
 |
|
|
<%
sql="select * from xc where filename<>'' and xcdj<>3 order by id desc"
set rss=connphoto.execute(sql)
if rss.eof then
response.write("| 暂无最新相册显示 | ")
else
%>
<%
i=1
do while not rss.eof and i<=20
%>
|
|
<%
rss.movenext
if i mod 5=0 then
response.write(" ")
if not rss.eof then
response.write("")
end if
end if
i=i+1
loop
if i<>21 then
response.write(" ")
end if
end if
rss.close%>
|
|
|
|
|
|
|
<%dim u8,uu8,um8
uu8=" | "
u8=1
sql="select * from links where logo<>'' order by id"
rs.open sql,connphoto,1,1
if not rs.eof then
u8=0
um8=1
uu8=uu8&""
do while not rs.eof
uu8=uu8&"![]("&rs("logo")&") | | "
rs.movenext
if um8 mod 8=0 then
uu8=uu8&" "
if not rs.eof then
uu8=uu8&""
end if
end if
um8=um8+1
loop
end if
rs.close
sql="select * from links where logo='' order by id"
rs.open sql,connphoto,1,1
if not rs.eof then
u8=0
uu8=uu8&" | "
um8=1
do while not rs.eof
uu8=uu8&"| "&rs("title")&" | | "
rs.movenext
if um8 mod 8=0 then
uu8=uu8&" "
if not rs.eof then
uu8=uu8&""
end if
end if
um8=um8+1
loop
end if
rs.close
uu8=uu8&" | "
if u8<>1 then
response.write(uu8)
end if%>
|
