<!--#include file="_conn.asp" -->
<!--#include file="inc/function.asp"-->
<script type="text/javascript" src="inc/index.js"></script>
<%
Dim id,it,Sql,Rs,I,T,L,Z,PC,RC
id=request("id")
If id Then it=" - "&id&"号字条"
Call Header(it)
%>
<div id="main">
	<%
	If id="" Then
		Sql="Select * From LOVE Order By ID DESC"
	Else
		Sql="Select * From LOVE Where ID<="&CLng(id)&" Order By ID DESC"
	End If 
	Randomize
	Set Rs=Server.CreateObject("ADODB.RecordSet")
		Rs.PageSize=PAGE_SIZE
		Rs.CacheSize=Rs.PageSize
		Rs.Open Sql,Conn,1,1
	Dim Page
		If Request("page")="" Then
			Page=1
		Else
			Page=Request("page")
		End If
		If Not(Rs.Eof And Rs.Bof) Then Rs.AbsolutePage=Page
	For I=1 To Rs.PageSize
		If Rs.Eof Then Exit For
		T=Int(280*Rnd+100)
		L=Int(740*Rnd+10)
		Z=Rs.PageSize-I
		Response.Write "<div id=""Layer"&Rs("ID")&""" style=""top:"&T&"px;left:"&L&"px;z-index:"&Z&""" class=""cf"" onmousedown=""Move(this,event)"" ondblclick=""Show("&Rs("ID")&")""><img src=""images/close.gif"" alt=""关闭"" onclick=""Close("&Rs("ID")&")"" class=""close"" /><div class=""Face"&Rs("Face")&"""><p class=""Num"">字条编号："&Rs("ID")&"</p><p class=""Detail""><img alt="""" src=""images/icon"&Rs("Icon")&".gif"" /><span class=""Head"">"&Rs("Pick")&"</span><br />"&Rs("Info")&"</p><p class=""Sign"">"&Rs("Send")&"</p><p class=""Date"">"&Rs("PostDate")&"</p></div></div>"
		Rs.MoveNext
	Next
	PC=Rs.PageCount
	RC=Rs.RecordCount
	Rs.Close
	Set Rs=Nothing
	Conn.Close
	Set Conn=Nothing
	%>
	<div id="shout">
		<%
	Response.Write "5分钟前有 "&RC&" 人来网吧许愿墙，许愿祝福 "
	%>
	</div>
</div>
<%
If request("id") Then response.write "<script type=""text/javascript"">Show("&request("id")&");</script>"
Call Footer()
%>
