<!--#include file="inc/config.asp"-->
<!--#include file="inc/ListPager.asp"-->
<!--#include file="inc/sub.asp"-->
<%
	'''''''本系统无限分类解决方案
Dim nTime : nTime = Timer()
Dim arrParam
arrParam = split(Request.QueryString("ListParam"), ",")
Dim conn, myListPager
Set conn = server.CreateObject("ADODB.Connection")
conn.open conndata
Set myListPager = new ListPager
with myListPager
	.Connection = conn
	.Table = "H_pic"
	.PrimaryKey = "ID" 
	.Fields = "ID,UID,H_name,Rdate,H_pic" '显示字段
	.PageSize = 30
	.AddOrder "ID"," desc"
	.Cache = 10	
	.Init()
end with
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=W_title%>,网站首页</title>
<meta name="keywords" content="<%=W_keywords%>" />
<meta name="description" content="<%=W_description%>" />
<link href="images/css.css" rel="stylesheet" type="text/css" /></head>
<body>
<!--#include file="top.asp"-->
<table width="950" height="24" border="0" align="center" cellpadding="0" cellspacing="0" style=" border-left: #9FCD36 1px solid; border-right: #9FCD36 1px solid; ">
  <tr>
    <td width="2%" background="images/new2.gif">&nbsp;</td>
    <td width="11%" align="center" style="border-left: #CDCDCD 1px solid; border-right: #CDCDCD 1px solid; border-top: #CDCDCD 1px solid;">相片</td>
    <td width="87%" background="images/new2.gif">&nbsp;</td>
  </tr>
</table>
<table width="950" height="338" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
  <tr>
    <td align="left" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" style="padding-top:10px; padding-bottom:10px;">
                <tr>
			<%
					
					if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					for i=0 to intList
					n=n+1
%>	
                  <td  style="padding-left:5px; padding-top:5px;"><table width="120" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#DBDACE">
                      <tr>
                        <td bgcolor="#FFFFFF"><table width="75" height="100" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px;">
                            <tr>
                              <td height="30"><a href="pic_read.asp?id=<%=arrlist(0,i)%>" target="_blank"><img src="UpLoadUC/<%=arrlist(4,i)%>" width="100" height="75" /></a></td>
                            </tr>
                            <tr>
                              <td><%=left(arrlist(2,i),10)%></td>
                            </tr>
                        </table></td>
                      </tr>
                  </table></td >
				  
				  
             	  <%
	if n mod 6=0 then response.write("</tr><tr>")
	next
				end if
				
	%>
                </tr>
              </table></td>
  </tr>
  <tr>
    <td height="30" align="left" bgcolor="#FFFFFF" style="padding-left:20px; padding-right:20px;">
	<%
					with myListPager
							Response.Write("<script type=""text/javascript"" src=""../inc/styles/ListStyle.js""></script>")
							Response.Write("<script type=""text/javascript"">pageTurn(" & .RecordCount & ", " & .PageSize & ", " & .PageCount & ", " & .CurrentPage & ", """ & .QueryString & """);</script>")
					end with
					%></td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<!--#include file="end.asp"-->
</body>
</html>
