📄 kukoowishlist.asp
字号:
<!--#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>爱墙字条列表 - 最好的免费爱墙|仿QQ爱墙程序|ASP爱墙程序下载</title>
<meta name="Author" content="酷酷网，KuKoo.Net" />
<meta name="Keywords" content="酷酷爱墙程序 ASP爱墙程序下载 仿QQ爱墙程序 免费爱墙 Lovewall 完美爱墙许愿树程序源码 爱墙程序下载 爱墙博客 爱情许愿树 许愿树源码" />
<meta name="Description" content="酷酷爱墙是互联网最好的免费爱墙网，所开发的ASP爱墙程序也是最安全零漏洞的完美爱墙程序，比什么QQ爱墙、天涯爱墙程序强得离谱^ǒ^" />
<style><!--@import url(inc/list.css);--></style>
<script type="text/javascript" src="inc/common.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="default.asp"><img src="images/btn_index.gif" alt="爱墙首页" /></a>
<a href="KuKoowriteWish.asp"><img src="images/btn_add.gif" alt="发表字条" /></a>
<a href="KuKoowishList.asp"><img src="images/btn_list.gif" alt="字条列表" /></a>
<a href="KuKoowishList.asp?flag=rank"><img src="images/rank.gif" alt="帖排行" /></a>
<a href="about.htm"><img src="images/btn_code.gif" alt="爱墙程序" /></a>
<input name="sKey" id="sKey" class="input" type="text" value="爱墙号" size="7" onclick="this.value = '';" />
<input type="image" src="images/btn_search.gif" onclick="FindLove()" alt="搜索" />
</div>
<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("flag")="rank" then
Sql="Select * From [KuKoo_LoveWallPosts] Order By KuKoo_hits DESC"
Else
If request("KuKoo_WishID")="" Then
Sql="Select * From [KuKoo_LoveWallPosts] Order By KuKoo_WishID DESC"
Else
Dim KuKoo_WishID
KuKoo_WishID=CLng(Trim(request("KuKoo_WishID")))
Sql="Select * From [KuKoo_LoveWallPosts] Where KuKoo_WishID="&KuKoo_WishID
End If
End If
Dim Rs
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.PageSize=Kukoo_WishPage
Rs.CacheSize=Rs.PageSize
Rs.Open Sql,Conn,1,1
Dim Page
If Request("Page")="" Then
Page=1
Else
Page=Clng(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("KuKoo_WishID")%></td>
<td class="ListInfo">
<%
response.write "<img src='images/support.gif' style='cursor:hand;' alt='支持' onclick='support("&Rs("KuKoo_WishID")&")' /> <a href='KuKooWish.asp?KuKoo_WishID="&Rs("KuKoo_WishID")&"' style='color:#2A2A2A;'>"&Rs("KuKoo_WishContent")&"（"&Rs("KuKoo_Sender")&"爱墙</a>"
If session("KuKooLogin")<>"" Then response.write " "&Rs("KuKoo_WishIP")&" <a href='admin.asp?cmd=del&KuKoo_WishID="&Rs("KuKoo_WishID")&"'><img src='images/close.gif' alt='删除字条' /></a>"
response.write "）"
%>
</td>
<td class="ListSend"><%=Rs("KuKoo_Sender")%></td>
<td class="ListPick"><%=Rs("KuKoo_Picker")%></td>
<td class="ListDate"><%=Rs("KuKoo_WishDate")%></td>
</tr>
<%
Rs.MoveNext
Next
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
<tr>
<td colspan="5" class="PageList">
<a href="KuKoowriteWish.asp"><img src="images/btn_diy.gif" /></a><%If session("KuKooLogin")<>"" Then response.write "<a href='login.asp?q=q'><img src='images/lol.gif' alt='修改密码'></a>"%>
<span class="Page">（共有<%=RecordCount %>个字条） <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">
<!--#include file="foot.asp" -->
<%=Kukoo_Reserve%>
</div>
<%=Bottom%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -