⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 index.asp

📁 这个就是受到众人喜爱的许愿墙了
💻 ASP
字号:
<%@  language="VBSCRIPT" codepage="936" %>
<!--#include file="inc/conn.asp"-->
<%
On Error Resume Next
dim searchauthor,searchcontent
searchauthor=trim(request.Form("searchauthor"))
searchcontent=trim(request.Form("searchcontent"))
%>
<html>
<head>
    <title>特瑞飞许愿墙</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <meta http-equiv="PRAGMA" content="NO-CACHE">
    <style type="text/css">
<!--
table {word-break:break-all;}
td {
	font-size: 12px;
	color: #000000;
	line-height: 18px;
}
.sbody {
	PADDING-RIGHT: 18px; PADDING-LEFT: 18px; BACKGROUND: PADDING-BOTTOM: 10px; WIDTH: 220px; LINE-HEIGHT: 18px; PADDING-TOP: 20px; TEXT-ALIGN: left
}
-->
</style>

    <script language="javascript" src="js/control.js"></script>

</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0" leftmargin="0" rightmargin="0"
    bottommargin="0">
    <!--#include file = "top.inc"-->
    <!--显示许愿内容开始-->
    <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
            <td>
                <%
if searchauthor="" and searchcontent="" then
	sql="select * from love order by HopeID desc"
else
	sql="select * from love where HopeAuthor like '%"&searchauthor&"%' and HopeContent like '%"&searchcontent&"%' order by HopeID desc"
end if

set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1

if rs.eof and rs.bof then
                %>
                <table width="100%" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                        <td width="17%" valign="bottom" align="center">
                            <b><font color="#333333">还没有任何留言</font></b>
                        </td>
                    </tr>
                </table>
                <%
else
	do while not rs.eof
		Randomize
		LeftPx = Int((750-10+1)*Rnd+20)
	    TopPx = Int((790-100+1)*Rnd+50)
                %>
                <!--循环显示许愿内容-->
                <div id='Hope<%=rs("HopeID")%>' style='position: absolute; left: <%=leftpx%>px; top: <%=toppx%>px;
                    z-index: <%=rs("cid")%>; height: 164px' onmousedown='getFocus(this)'>
                    <table border="0" cellspacing="0" cellpadding="0" width="220">
                        <tr>
                            <td style='cursor: move;' onmousedown='BeginMoveDiv(Hope<%=rs("HopeID")%>)' background="images/<%=right(rs("HopeColor"),6)%>1.gif"
                                height="45">
                            </td>
                        </tr>
                        <tr>
                            <td style='cursor: move;' width='100%' onmousedown='BeginMoveDiv(Hope<%=rs("HopeID")%>)'
                                background="images/<%=right(rs("HopeColor"),6)%>2.gif">
                                <p align="center">
                                    第[<%=rs("HopeID")%>]条&nbsp;<%=rs("HopeDate")%>&nbsp;&nbsp;&nbsp;<a style='cursor: hand;'
                                        onclick='closediv()'>×</a>
                            </td>
                        </tr>
                        <tr>
                            <td background="images/<%=right(rs("HopeColor"),6)%>2.gif">
                                <div class='sbody'>
                                    <%=rs("HopeContent")%>
                                </div>
                            </td>
                            <tr>
                                <td id="tagBPic" background="images/<%=right(rs("HopeColor"),6)%>3.gif" height="65">
                                    <table border="0" width="200" id="table3" cellspacing="0" cellpadding="0">
                                        <tr>
                                            <td width="100" align="center">
                                                <img border="0" src="images/<%=rs("Pic")%>.gif"></td>
                                            <td width="100" align="center">
                                                <%=Rs("HopeAuthor")%>
                                            </td>
                                        </tr>
                                    </table>
                                </td>
                            </tr>
                    </table>
                </div>
                <%
rs.movenext
loop

rs.close
end if
                %>
            </td>
        </tr>
    </table>
    <!--显示许愿内容结束-->
</body>
</html>

⌨️ 快捷键说明

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