<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
<link href="../images/css.css" rel="stylesheet" type="text/css">
</head>



<%
				  dim top,hangpicnum
sql = "SELECT style,css  FROM yangshi " 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='3' class='x'><tr><td>最新更新情况，截止到"&now()&"共有<b> "&rs.RecordCount&" </b>张图片</td></tr></table>"
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5'>"
top=1
if rs.bof and rs.eof then 
response.write "<tr><td align='center'>没有任何文件</tr></td>" 
else
Response.Write"<tr align='center'>"
do while not rs.eof
   for hangpicnum=1 to 5
   if rs.eof then exit for
   Response.Write"<td width='33%'>"
   Response.Write"<table align=center border=0 cellpadding=5 cellspacing=0 class='picborder'><tbody><td><a href='"&rs("css")&"' target='_blank'><img src='"&rs("css")&"' border='0' width='100' height='100'></a></td></tbody></table><br><a href='"&rs("css")&"' target='_blank'>"&rs("style")&"</a></td>"
  rs.movenext
  top=top+1
  next
  Response.Write"</tr>"
 if top>9 then exit do
loop
end if
rs.Close
set rs=nothing
Response.Write"</table>"
%>
</body>

</html>
