📄 liuyanff.asp
字号:
<!--#include file="mdb.asp"-->
<%
exec="select * from book where ID="&request.querystring("ID")
set rs=server.createobject("adodb.recordset")
'##检查cookies中的密码,错误侧自动返回
set rsadm=server.createobject("adodb.recordset")
sqladm="select * from admin"
rsadm.open sqladm,conn,1,1
if request.cookies("adminok")<>rsadm("pwd") or request.cookies("adminok")="" or request.cookies("user")<>rsadm("user") or request.cookies("user")="" then
response.redirect "glydl.asp"
end if
'###检查结束
rs.open exec,conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>回复留言</title>
</head>
<body background="newpic/bg.gif">
<p align="center"><font size="6" color="#008000">回复第<%=rs("ID")%>条留言</font></p>
<div align="center">
<table border="1" width="95%" id="table1" style="border-collapse: collapse" height="211">
<tr>
<td width="156" align="center" height="26">姓名：</td>
<td width="198" align="center" height="26"> <%=rs("name")%></td>
<td width="152" align="center" height="26">性别：</td>
<td width="217" align="center" height="26"><img src =pic/<%=rs("sex")%>.gif></td>
</tr>
<tr>
<td width="156" align="center" height="25">邮箱：</td>
<td width="198" align="center" height="25"><a <%=rs("email")%> href="mailto:<%=rs("email")%>"><%=rs("email")%></td>
<td width="152" align="center" height="25">主页：</td>
<td width="217" align="center" height="25"><a href="<%=rs("url")%>"> <%=rs("url")%></td>
</tr>
<tr>
<td width="156" align="center" height="27">OICQ：</td>
<td width="198" align="center" height="27"> <%=rs("OICQ")%></td>
<td width="152" align="center" height="27">留言时间：</td>
<td width="217" align="center" height="27"> <%=rs("time")%></td>
</tr>
<tr>
<td width="156" align="center" height="26">留言内容：</td>
<td width="561" colspan="3" height="26">
<%
Dim sContent
sContent=RS("ly")
sContent=Replace(sContent,"<","<")
sContent=Replace(sContent,">",">")
sContent=Replace(sContent,Chr(13) & Chr(10),"<Br>")
sContent=Replace(sContent,chr(32)," ")
Response.Write(sContent)
%></td>
</tr>
<tr>
<td width="156" height="26">
<p align="center">原有回复内容：</td>
<td width="561" colspan="3" height="26"> <%=rs("lyff")%></td>
</tr>
<tr>
<td width="156" height="81">
<p align="center">回复：</td>
<td width="569" height="81" colspan="3">
<form method="POST" action="writelyff.asp">
<p align="center"><textarea rows="5" name="lyff" cols="78"></textarea><input type="submit" value="提交" name="B1">
<input type="hidden" name="ID" value="<%=request.querystring("ID")%>">
<input type="reset" value="重置" name="B2">
<a href="admlookly.asp">返回</a></p>
</form>
</td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -