<!--#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_Bless"
	.PrimaryKey = "ID" 
	.Fields = "ID,UID,H_title,H_date,H_sort,H_Mood,H_Content,H_font" '显示字段
	.PageSize = 26
	.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%>" />
<style><!--@import url(inc/index.css);--></style>
<style><!--@import url(inc/layer.css);--></style>
<script type="text/javascript" src="inc/index.js"></script>
</head>

<body>
<div id="header">
<img src="images/LoveLogo.jpg" style=" width:180px; height:82px; border:none;" />
</div>

<div id="menu">
	<a href="index.asp"><img src="images/btn_index.gif" alt="爱墙首页" /></a>
	<a href="user/Bless_add.asp" target="_blank"><img src="images/btn_add.gif" alt="发表字条" /></a>

</div>

<div id="decoration"></div>
<div id="main">
		<%
					if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					for i=0 to intList
					T=I
					T = Int(400*Rnd+25)
					L = Int(700*Rnd+10)
					Z = Int(50*Rnd+2)
					Myucuser=conn.execute("select ucuser from H_user where id="&arrlist(1,i)&"")("ucuser")
					
		%>
		
		<div id='Layer<%=arrlist(0,i)%>' class='Style<%=arrlist(7,i)%>' style='left:<%=L%>px;top:<%=t%>px;z-index:<%=Z%>' onmousedown='Move(this,event)'><p class='Num'>字条编号:<%=arrlist(0,i)%>&nbsp;&nbsp;&nbsp;<%call H_Bless(arrlist(4,i))%><img src='images/close.gif' alt='关闭' onclick='Close(<%=arrlist(0,i)%>)' /></p><p class='Detail'><img src='images/icon_<%=arrlist(5,i)%>.gif' /><span class='Head'><%=left(arrlist(2,i),16)%></span><br /><%=left(arrlist(6,i),100)%></p><p class='Sign'><%=Myucuser%></p><p class='Date'><%=arrlist(3,i)%></p></div>"
		
   <%
					next
				end if
				%>

	<div id="shout">
		↓↓↓分页
		<%
					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
					%>
	</div>
</div>

<div id="footer">
</div>

</body>
</html>
