📄 default.asp

📁 爱情许愿墙
💻 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>爱墙|酷酷爱墙：最好的免费爱墙|酷酷爱墙程序|酷酷爱墙程序下载</title>
<meta name="Author" content="酷酷网，KuKoo.Net" />
<meta name="Keywords" content="酷酷爱墙程序 酷酷爱墙程序下载  免费爱墙 Lovewall 酷酷爱墙许愿树程序源码 酷酷许愿墙程序下载 爱墙网 爱情许愿树 许愿树源码" />
<meta name="Description" content="通过酷酷爱墙贴一张爱墙许愿墙字条，来爱墙网种一棵许愿树和情人树，无论爱墙怎么样，爱墙都永久保留您在爱墙和许愿树程序上的免费爱息" />
<style><!--@import url(inc/index.css);--></style>
<style><!--@import url(inc/layer.css);--></style>
<script type="text/javascript" src="inc/index.js"></script>
<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>
	<img src="images/text_search.gif" alt="爱墙程序" />
    <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="decoration"></div>
<div id="main">
	<%
	Dim Sql
		Sql="Select * From [KuKoo_LoveWallPosts] Order By KuKoo_WishID DESC"
	Dim Rs
    Set Rs=Server.CreateObject("ADODB.RecordSet")	
		Rs.PageSize=Kukoo_IndexNum
		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,RecordCount
		PageCount=Rs.PageCount
		RecordCount=rs.recordcount
	Dim I,T,L,Z
	For I=1 To Rs.PageSize
		If Rs.Eof Then
			Exit For
		End If
		Randomize
		T = Int(400*Rnd+25)
		L = Int(700*Rnd+10)
		Z = Int(50*Rnd+2)
		QQ=Rs("KuKoo_SenderQQ")
		if Trim(QQ) <> "" and QQ <> 0 then
		QQ="QQ:<a href='tencent://message/?uin="&QQ&"&Site=1&Menu=yes' title='点击与他/她交谈'>"&QQ&"</a>"
		else
		QQ=""
		end if
		response.write "<div id='Layer"&Rs("KuKoo_WishID")&"' class='Style"&Rs("KuKoo_Face")&"' style='left:"&L&"px;top:"&T&"px;z-index:"&Z&"' onmousedown='Move(this,event)' ondblclick='goUrl("&Rs("KuKoo_WishID")&")'><p class='Num'>字条编号:"&Rs("KuKoo_WishID")&"&nbsp;&nbsp;&nbsp;人气:"&Rs("KuKoo_hits")&"<img src='images/close.gif' alt='关闭' onclick='Close("&Rs("KuKoo_WishID")&")' /><img src='images/support.gif' alt='支持' onclick='support("&Rs("KuKoo_WishID")&")' /></p><p class='Detail'><img src='images/icon_"&Rs("KuKoo_Icon")&".gif' /><span class='Head'>"&Rs("KuKoo_Picker")&"</span><br />"&Rs("KuKoo_WishContent")&"</p><p class='Sign'>"&Rs("KuKoo_Sender")&"&nbsp;&nbsp;&nbsp;"&QQ&"</p><p class='Date'>"&Rs("KuKoo_WishDate")&"</p></div>"
		Rs.MoveNext
	Next
	RS.Close
	Set RS=Nothing
	Conn.Close
	Set Conn=Nothing
	%>

	<div id="shout">
		↓↓↓<%=ad%><img src="images/lol.gif" alt="KuKoo.Net" />5分钟前<%=RecordCount%>人爱墙许愿&nbsp;&nbsp;
		<script type="text/javascript" src="inc/PageList.js"></script>
		<script>PageListBar(<%=PageCount%>,<%=Page%>,"")</script>
	</div>
</div>

<div id="footer">
<!--#include file="foot.asp" -->
<%=Kukoo_Reserve%>
</div>
<%=Bottom%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -