📄 hope.asp

📁 这个就是受到众人喜爱的许愿墙了
💻 ASP
字号:
<%@  language="VBSCRIPT" codepage="936" %>
<%
response.buffer=true
response.expires=0
Response.CacheControl="no-cache"
%>
<%
if Session("isAdmin")<>true Then
    Response.Write "<script>location.href='adminlogin.asp';</script>"
    Response.End
End if
%>
<!--#include file="conn.asp"-->
<%
On Error Resume Next
DIM startime,endtime
'统计执行时间
startime=timer()
%>
<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">
<!--
body,table,td {font-size:9pt}
a {font-size:12px;color:#000000;text-decoration: none}
INPUT {
	BORDER-TOP-WIDTH: 1px;
	PADDING-RIGHT: 1px;
	PADDING-LEFT: 1px;
	BORDER-LEFT-WIDTH: 1px;
	FONT-SIZE: 12px;
	BORDER-LEFT-COLOR: #cccccc;
	BORDER-BOTTOM-WIDTH: 1px;
	BORDER-BOTTOM-COLOR: #cccccc;
	PADDING-BOTTOM: 1px;
	BORDER-TOP-COLOR: #cccccc;
	PADDING-TOP: 1px;
	HEIGHT: 18px;
	BORDER-RIGHT-WIDTH: 1px;
	BORDER-RIGHT-COLOR: #cccccc;
	BACKGROUND-COLOR: #F2F8FF
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">

    <script>
function del ()  //用于判断记录有没有选中的函数
{ 
	var flag=true;
	var temp="";
	var tmp;
	if((document.form1.delid.length+"")=="undefined") 
	{tmp=1}
	else
	{
		tmp=document.form1.delid.length
	}
	
	if (tmp==1)
	{
		if (document.form1.delid.checked)
		{ 
			flag=false; 
			temp=document.form1.delid.value
		}
	}
	else
	{
		for (i=0;i<document.form1.delid.length;i++) 
  		{
			if (document.form1.delid[i].checked)
			{
				if (temp=="")
				{flag=false;temp=document.form1.delid[i].value}
  				else
  				{flag=false;temp = temp +","+ document.form1.delid[i].value}
  			}
  		}
  	}
	
  	if (flag)
  	{ alert("对不起，你还没有选择！")}
  	else
  	{         
  		if (confirm("确实要删除？"))
		{      
  			window.location="dele.asp?HopeID=" + temp;
		}
	}
	return !flag;
}
    </script>

    <script language="Javascript">
function checkall(all)
{ 
	var a = document.getElementsByName("delid"); 
	for (var i=0; i<a.length; i++) a[i].checked = all.checked;
}
    </script>

    <form method="POST" id="form1" name="form1">
        <table width="800" border="1" cellspacing="0" cellpadding="4" align="center" bordercolordark="#FFFFFF"
            bordercolorlight="#CCCCCC">
            <tr align="center">
                <td width="60">
                    ID</td>
                <td width="80">
                    许愿人姓名</td>
                <td width="*">
                    内容(显示前10个字)</td>
                <td width="150">
                    IP地址</td>
                <td width="150">
                    时间</td>
                <td width="50">
                    管理</td>
                <td width="50">
                    <input type="checkbox" name="chkall" value="on" onclick="checkall(this)" id="Checkbox2">选中所有<input
                        type="button" name="btnDelete" value="删除" style='font-family: 宋体; font-size: 9pt;'
                        onclick="del()" id="Button1">
                </td>
            </tr>
            <%
sql="select * from love order by HopeID desc"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1

dim pages
pages=Request("pages")

if pages="" then
	pages=1
else
	pages=cint(pages)
end if
if pages<1 then pages=1
rs.PageSize=30
if rs.recordcount>0 then
	if pages>rs.PageCount then pages=rs.PageCount
	rs.AbsolutePage=pages
end if

If  rs.eof and rs.bof Then%>
            <tr>
                <td>
                    暂无记录</td>
            </tr>
            <% 
Else     
    i=0
	do while not rs.eof  and i<rs.PageSize
	i=i+1
	bgColor="#FFFFFF"
	if i mod 2=0 then bgColor="#DFEFFF"
            %>
            <tr bgcolor="<%=bgColor%>">
                <td width="60" align="center">
                    <%=rs("HopeID")%>
                </td>
                <td width="80" align="center">
                    <%=rs("HopeAuthor")%>
                </td>
                <td width="150" align="center">
                    <%=left(rs("HopeContent"),10)%>
                </td>
                <td width="100" align="center">
                    <%=rs("IP")%>
                </td>
                <td width="100" align="center">
                    <%=rs("HopeDate")%>
                </td>
                <td align="center">
                    <a href="dele.asp?HopeID=<%=rs("HopeID")%>" onclick="return confirm('确认要删除此行信息吗？')">
                        删除</a></td>
                <td>
                    <input type="checkbox" name="delid" value="<%=rs("HopeID")%>"></td>
            </tr>
            <%
    	rs.movenext
	loop	
End If

            %>
        </table>
    </form>
    <table width="760" border="0" cellspacing="2" cellpadding="2" align="center">
        <tr>
            <td>
                <div align="right">
                    <font color="#000000">&nbsp; 第</font><font color="#ff0000"><%=pages%></font><font
                        color="#000000">页</font>&nbsp;<font color="#000000"> <a href="?pages=1" style="text-decoration: none">
                            <font color="#000000">首页</font></a> <a href="?pages=<%=pages-1%>" style="text-decoration: none">
                                <font color="#000000">上页</font></a> <a href="?pages=<%=pages+1%>" style="text-decoration: none">
                                    <font color="#000000">下页</font></a> <a href="?pages=<%=rs.pagecount%>"" " style="text-decoration: none">
                                        <font color="#000000">尾页</font></a> 共<%=rs.pagecount%>页</font></div>
            </td>
        </tr>
    </table>
    <table width="760" border="0" align="center" cellpadding="2" cellspacing="2">
        <tr>
            <td align="center">
                <%endtime=timer()%>
                本页面执行时间：<%=round((endtime-startime)*1000,3)%>&nbsp;毫秒</td>
        </tr>
    </table>
</body>
</html>
<%
iRs=NULL
ors=NULL
Set ors=NoThing
%>
⌨️ 快捷键说明

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