default.asp

许愿墙（仿QQ爱墙）V15免费版

<!--#include file="_conn.asp" -->
<%
Dim id,Sql,Rs,I,T,L,Z
	id=request("id")
Call Header(id)
%>
<div id="main">
	<script type="text/javascript" src="inc/index.js"></script>
	<%
	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 
	Set Rs=Conn.Execute(Sql)
		Rs.PageSize=PAGE_SIZE
	Randomize
	For I=1 To Rs.PageSize
		If Rs.Eof Then Exit For
		T=Int(380*Rnd+120)
		L=Int(740*Rnd+10)
		Z=Rs.PageSize-I
		Response.Write "<div id=""Layer"&Rs("ID")&""" class=""Face"&Rs("Face")&""" style=""top:"&T&"px;left:"&L&"px;z-index:"&Z&""" onmousedown=""Move(this,event)"" ondblclick=""Show("&Rs("ID")&")""><p class=""Num"">字条编号："&Rs("ID")&"<img src=""images/close.gif"" alt=""关闭"" onclick=""Close("&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>"
		Rs.MoveNext
	Next
	Rs.Close
	Set Rs=Nothing
	Conn.Close
	Set Conn=Nothing
	%>	
</div>
<%
Call Footer()
%>