📄 index.asp
字号:
<td height="25" align="center" width="120" bgcolor="#EFEFEF">新密码：</td>
<td width="186" bgcolor="#EFEFEF">
<input name="newpass" type="password" id="newpass" maxlength="16" class="input" size="20"></td>
</tr>
<tr>
<td height="25" align="center" width="120" bgcolor="#EFEFEF">确 认：</td>
<td width="186" bgcolor="#EFEFEF">
<input name="confirm" type="password" id="confirm" maxlength="16" class="input" size="20"></td>
</tr>
<tr>
<td height="40" colspan="2" align="center" bgcolor="#EFEFEF"><input name="Submit" type="submit" id="Submit" value=" 修改 " class="button"> <input name="reSet" type="reSet" id="reSet" value=" 重置 " class="button"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<br><br><br>
<%
case "reply"
checkadmin
If id="" then
Response.Write "<script>alert('非法操作：回复留言的ID参数不能为空！');this.location.href='Index.asp';</SCRIPT>"
Response.End
End If
Set mRs=conn.execute("SELECT * FROM [book] WHERE id="&id)
If mRs.eof then
Response.Write "<script>alert('留言不存在！');this.location.href='Index.asp';</SCRIPT>"
Response.End
End If
reply=mRs("reply")
reply=htmlencode2("reply")
%>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="647" bgcolor="#CCCCCC" align="center">
<tr bgcolor="F3F3F3">
<td width="643">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25"> · 回复留言： ·</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="F3F3F3">
<td width="643">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form name="form1" method="post" action="<% =filename %>?action=Reply&id=<% =id %>">
<tr>
<td width="43" height="37" align="center" bgcolor="#EFEFEF">留言：</td>
<td>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td style="word-wrap: word-break; word-break: break-all;"><% =mRs("Info") %></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#EFEFEF">回复：</td>
<td height="100" rowspan="2" bgcolor="#EFEFEF">
<textarea name="Reply" rows="6" cols="97" class="button"><% =Reply %></textarea></td>
</tr>
<tr>
<td height="70" bgcolor="#EFEFEF"></td>
</tr>
<tr>
<td height="20" colspan="2" align="center" bgcolor="#EFEFEF"><input name="Submit1" type="submit" id="Submit" value=" 回复留言 " class="button"> <input name="reSet" type="reSet" id="reSet4" value=" 重新输入 " class="button"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<br><br><br>
<%
Set mRs=nothing
case Else
%>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="499" bgcolor="#CCCCCC" align="center">
<tr bgcolor="F3F3F3">
<td width="625">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="624">
<tr>
<td height="25" width="624" style="border-bottom-style: solid; border-bottom-width: 1">
<p align="center"><img border="0" src="bn.jpg"></td>
</tr>
<tr>
<td height="25" width="624" style="border-top-style: solid; border-top-width: 1" bgcolor="#D6E75A"> · 写留言 ·</td>
</tr>
</table>
</td>
</tr><style type=text/css>
<!--
BODY{cursor:url(01.cur);}
-->
</style>
<tr bgcolor="F3F3F3">
<td width="625">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" bgcolor="#F2F8CB">
<form name="form2" method="post" action="<% =filename %>?action=add">
<tr>
<td width="48" align="center">昵称：</td>
<td width="148">
<input name="Name" type="text" class="input" size="20"><font color="#FF0000"> *</font></td>
<td width="46" align="center">内容：</td>
<td rowspan="4" width="376">
<p align="center">
<textarea name="Info" rows="9" cols="57" class="button"></textarea><font color="#FF0000"> *</font></td>
</tr>
<tr>
<td align="center">Q Q：</td>
<td><input name="Qq" type="text" class="input" size="20"><font color="#FF0000"> *</font></td>
<td></td>
</tr>
<tr>
<td align="center">邮箱：</td>
<td><input name="Mail" type="text" class="input" size="20"><font color="#FF0000"> *</font></td>
<td></td>
</tr>
<tr>
<td colspan="3" align="center">
<input type="submit" name="Submit2" value=" 添加留言 " class="button"> <input name="reSet" type="reSet" value=" 重新输入 " class="button"></td>
</tr>
<tr>
<td height="23"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="620" bgcolor="#CCCCCC" align="center">
<tr bgcolor="F3F3F3">
<td width="625">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="624">
<tr>
<td width="518" height="25" bgcolor="#D6E75A"> · 留言列表 ·</td>
<td width="104" bgcolor="#D6E75A"><%
If session("admin")<>"" then
Response.Write" <a href='"&filename&"?action=modpass' style='color:black'>修改帐号</a> "
Response.Write" <a href='"&filename&"?action=logout' style='color:black'>退出管理</a>"
Else
Response.Write" <a href='"&filename&"?action=login' style='color:black'>管理员登录</a>"
End If
%></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="F3F3F3">
<td width="625">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<%
count=8'留言显示条数
sql="select * from [book] order by id desc"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
mRs.pagesize=count
rc=mRs.recordcount
pgnm=mRs.pagecount
page=Request.Querystring("page")
If page<>"" then page=clng(page)
If page="" or page=0 then page=1
If page>pgnm then page=pgnm
If pgnm>1 then mRs.absolutepage=page
do while not mRs.eof and count>0
count=count-1
%>
<tr>
<td>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="624" bgcolor="#F2F8CB">
<tr>
<td width="5%" height="25" align="center"><font color="#006699" face="wingdings">2</font></td>
<td width="71%">昵称为：<b>
<% =mRs("Name") %></b>在<font color="#006699"><% =mRs("Time") %></font>的留言：
<%
If session("Admin")<>"" then
Response.Write" <a href='"&filename&"?action=reply&id="&mRs("id")&"' style='color:red'>回复</a>"
Response.Write" <a href='"&filename&"?action=del&id="&mRs("id")&"' style='color:red'>删除</a>"
End If
%>
</td>
<td width="24%">
<%
If mRs("Mail")<>"" then
Response.Write" <a target=""_blank"" href='mailto:"&mRs("Mail")&"'><font color=""#006699"" face=""wingdings"">+</font></a>"
End If
If mRs("Qq")<>"" then
Response.Write" <a target=_blank href=""http://wpa.qq.com/msgrd?V=1&Uin="&mRs("Qq")&"&Site=去听音乐吧&Menu=yes""><font color=""#006699"" face=""wingdings"">''</font></a>"
End If
%>
</td>
</tr>
<tr>
<td height="1" colspan="3" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td height="32"></td>
<td colspan="2">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr onMouseOver="javascript:this.bgColor='#FDFEEF';" onMouseOut="javascript:this.bgColor='#f2f8cb';">
<td style="word-wrap: word-break; word-break: break-all;"><% =mRs("Info") %>
<%
If mRs("reply")<>"" then
Response.Write"<span style='color:#006699'><br><b>管理员回复：</b><br>"&mRs("Reply")&"</span>"
End If
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
mRs.movenext
loop
mRs.close
Set mRs=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="322" bgcolor="#CCCCCC" align="center" height="21">
<tr bgcolor="F3F3F3">
<td width="318" height="10">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="625" height="20">
<tr>
<td height="20" align="center" width="625" bgcolor="#D6E75A">共有
<% =rc %>条留言，页次：<% =page %>/<% =pgnm %>
<% If page>1 and pgnm>1 then %>
<a href="?page=1">第一页</a>
<a href="?page=<% =page-1 %>">上一页</a>
<%
End If
If page<pgnm and pgnm>1 then
%>
<a href="?page=<% =page+1 %>">下一页</a>
<a href="?page=<% =pgnm %>">最未页</a>
<% End If %>
</td>
</tr>
</table>
</td>
</tr>
<% End select %>
<tr bgcolor="F3F3F3">
<td width="318" height="5" align="center">
<table border="1" cellpadding="0" style="border-collapse: collapse" width="624" bordercolor="#F2F8CB" height="20">
<tr>
<td width="624" height="20" align="center" bgcolor="#F2F8CB">Copyright © 2005 <a target='_blank' href='http://7st.cn'>去听音乐吧</a> All Rights Reserved
<SCRIPT LANGUAGE=JavaScript src="Counter.asp"></SCRIPT></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -