list.asp

最新许愿墙源代码v3.1喜欢的朋友下载吧！免费也有好东西

<!--#include file="_conn.asp" -->
<!--#include file="inc/function.asp"-->
<%
Call Header(" - 字条列表"&Request("page"))
%>
<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
		Sql="Select * From LOVE Order By Id DESC"	
	Dim Rs
	Set Rs=Server.CreateObject("ADODB.RecordSet")
		Rs.PageSize=LOVE_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
	Dim I
	For I=1 To Rs.PageSize
		If Rs.Eof Then Exit For
		Response.Write "<tr class=""tr""><td class=""ListA"">"&Rs("ID")&"</td><td class=""ListB""><a href=""default.asp?id="&Rs("ID")&""">"&Rs("Info")&"</a>"
		If Session("_ASPK")="ok" 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=""ListC"">"&Rs("Send")&"</td><td class=""ListC"">"&Rs("Pick")&"</td><td class=""ListD"">"&Rs("PostDate")&"</td></tr>"	
		Rs.MoveNext		
		If Rs.Eof Or I=Rs.PageSize Then Exit For
		Response.Write "<tr><td class=""ListA"">"&Rs("ID")&"</td><td class=""ListB""><a href=""default.asp?id="&Rs("ID")&""">"&Rs("Info")&"</a>"
		If Session("_ASPK")="ok" 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=""ListC"">"&Rs("Send")&"</a></td><td class=""ListC"">"&Rs("Pick")&"</td><td class=""ListD"">"&Rs("PostDate")&"</td></tr>"
		I=I+1
		Rs.MoveNext
	Next
	Dim PageCount,RecordCount
		PageCount=Rs.PageCount
		RecordCount=Rs.RecordCount
	Rs.Close
	Set Rs=Nothing
	Conn.Close
	Set Conn=Nothing 
	%>   
	<tr>
		<td colspan="5" class="ListP">
			<%If Session("_ASPK")="ok" Then Response.Write "<a href=""login.asp?q=q"">修改密码</a> "
			Response.Write "（字条总数："&RecordCount&"） "
			Call PageBar(Int(PageCount),Int(Page))%>
		</td>
	</tr>
</table>

<%
Call Footer()
%>