📄 index.asp
字号:
</table>
</td>
</tr>
<tr bgcolor="F3F3F3">
<td>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form name="form1" method="post" action="<% =filename %>?action=modpassed">
<tr>
<td height="25" align="center" width="120" bgcolor="#EFEFEF">登录名：</td>
<td width="186" bgcolor="#EFEFEF"><input name="User" type="text" id="User" value="<% =session("admin") %>" size="20" maxlength="16" readonly class="input"></td></tr>
<tr>
<td height="25" align="center" width="120" bgcolor="#EFEFEF">旧密码：</td>
<td width="186" bgcolor="#EFEFEF"><input name="oldpass" type="password" id="oldpass" maxlength="16" class="input"></td></tr>
<tr>
<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"></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"></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
Name=mRs("Name")
Qq=mRs("Qq")
Mail=mRs("Mail")
Info=mRs("Info")
reply=mRs("reply")
reply=htmlencode2("reply")
%>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="768" bgcolor="#CCCCCC" align="center">
<tr bgcolor="F3F3F3">
<td>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25"> · 回复留言： ·</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="F3F3F3">
<td>
<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><input name="Name" type="text" class="input" value="<% =mRs("Name") %>"></td>
</tr>
<tr>
<td width="43" height="37" align="center" bgcolor="#EFEFEF">Q Q：</td>
<td><input name="Qq" type="text" class="input" value="<% =mRs("Qq") %>"></td>
</tr>
<tr>
<td width="43" height="37" align="center" bgcolor="#EFEFEF">邮箱：</td>
<td><input name="Mail" type="text" class="input" value="<% =mRs("Mail") %>"></td>
</tr>
<tr>
<td width="43" height="37" align="center" bgcolor="#EFEFEF">留言：</td>
<td><textarea name="Info" rows="9" cols="57" class="button"><% =mRs("Info") %></textarea></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="768" bgcolor="#CCCCCC" align="center">
<tr bgcolor="F3F3F3">
<td>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25"> · 写留言 ·</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="F3F3F3">
<td>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form name="form2" method="post" action="<% =filename %>?action=add">
<tr>
<td width="100" align="center">昵称：</td>
<td width="166"><input name="Name" type="text" class="input"><font color="#FF0000"> *</font></td>
<td width="48" align="center">内容：</td>
<td rowspan="4" width="447">
<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"><font color="#FF0000"> *</font></td>
<td></td>
</tr>
<tr>
<td align="center">邮箱：</td>
<td><input name="Mail" type="text" class="input"><font color="#FF0000"> *</font></td>
<td></td>
</tr>
<tr>
<td width="317" 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="768" bgcolor="#CCCCCC" align="center">
<tr bgcolor="F3F3F3">
<td>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25"> · 留言列表 ·</td>
<td width="150"><%
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>
<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="100%">
<tr>
<td width="5%" height="25" align="center"><font color="#006699" face="wingdings">2</font></td>
<td width="65%">昵称为：<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="30%">
<%
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='#FFFFFF';" onmouseout="javascript:this.bgColor='#EFEFEF';">
<td style="width: 700;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="768" bgcolor="#CCCCCC" align="center">
<tr bgcolor="F3F3F3">
<td>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25" align="center">共有<% =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>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td align="center"><br>Copyright © 2005－2007 <a target='_blank' href='http://www.wm126.com'>乌蒙design</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 + -