<!--#include file="_conn.asp" -->
<!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>【网吧许愿墙】 写下您的心愿吧! 祝大家心想事成 有情人终成眷属~~</title>
<meta name="Keywords" content="网吧许愿墙" />
<meta name="Description" content=" 网吧许愿墙" />
<style><!--@import url(inc/list.css);--></style>
</head>

<body>
<div id="header">
	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="../download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0/#version=7,0,19,0/default.htm" width="160" height="73"><param name="movie" value="images/logo.swf" /><param name="quality" value="high" /><param name="wmode" value="transparent" /><embed src="images/logo.swf" quality="high" pluginspage="../www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="160" height="73"></embed>
	</object>
</div>

<form method="post" action="admin.asp" name="frmFind">
	<input type="hidden" name="cmd" value="find" />
<div id="menu">
	<a href="default.asp"><img src="images/btn_index.gif" alt="爱墙首页" /></a>
	<a href="add.asp"><img src="images/btn_add.gif" alt="发表字条" /></a>
	<a href="list.asp"><img src="images/btn_list.gif" alt="字条列表" /></a>	
    <input name="sKey" class="input" type="text" value="爱墙号" size="7" onclick="this.value = '';" />
	<input type="image" src="images/btn_search.gif" alt="搜索" />
</div>
</form>	

<div id="mainList">
	<table width="100%" border="0" cellpadding="0" cellspacing="1" class="List">
		<tr>
			<th>爱墙编号</th>
			<th>字条内容</th>
			<th>发送者</th>
			<th>接收者</th>
			<th>发送时间</th>
		</tr>
	<%
	Dim Sql
		If request("id")="" Then
			Sql="Select * From LOVE Order By Id DESC"			
		Else  
			Dim id
			id=CLng(Trim(request("id")))
			Sql="Select * From LOVE Where ID="&id
		End If 
	Dim Rs
	Set Rs=Server.CreateObject("ADODB.RecordSet")
		Rs.PageSize=LIST_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
		End If
	Dim PageCount
		PageCount=Rs.PageCount
	Dim RecordCount		
		RecordCount=Rs.recordcount
	Dim I
		For I=1 To Rs.PageSize
			If Rs.Eof Then
				Exit For
			End If
	%>  
		<tr>
			<td class="ListID"><%=Rs("ID")%></td>
			<td class="ListInfo">
			<%
			response.write Rs("Info")&"（"&Rs("Send")&"爱墙"
			If session("_ASPK")<>"" Then response.write " "&Rs("IP")&" <a href='admin.asp?cmd=del&id="&Rs("ID")&"'><img src='images/close.gif' alt='删除字条' /></a>"
			response.write "）"
			%>			
			</td>
			<td class="ListSend"><%=Rs("Send")%></td>
			<td class="ListPick"><%=Rs("Pick")%></td>
			<td class="ListDate"><%=Rs("PostDate")%></td>
		</tr>
	<%
			Rs.MoveNext 
		Next
		Rs.Close
	Set Rs=Nothing
		Conn.Close
	Set Conn=Nothing 
	%>   
		<tr>
			<td colspan="5" class="PageList">
				<a href="add.asp"><img src="images/btn_diy.gif" /></a><%If session("_ASPK")<>"" Then response.write "<a href='login.asp?q=q'><img src='images/lol.gif' alt='修改密码'></a>"%>				
				<span class="Page">（共有<%=RecordCount %>个字条）&nbsp;&nbsp;&nbsp;&nbsp;<script src="inc/PageList.js" type="text/javascript"></script><script type="text/javascript">PageListBar(<%=PageCount%>,<%=Page%>,"")</script></span>
			</td>
		</tr>
	</table>
</div>

<div id="footer">
	<h1>
		<a href="default.asp" title="爱墙首页">首页</a> | 
		<a href="add.asp" title="贴字条">贴字条</a> | 
		<a href="list.asp" title="字条列表">字条列表</a> | 
          
	</h1>
	<!-- 版权链接 -->
</div>

</body>
</html>
