📄 reply.asp
字号:
<!--#include file="conn.asp"-->
<%if session("shopxpadmin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_guestshop where id="&request("id"),conn,3,2
if request("action")<>"save" then
%>
<html>
<head>
<title>回复</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT language=JavaScript>
function CheckInput(){
if(form.reply.value==''){
alert("回复内容不能为空！");
form.reply.focus();
return false;
}
if(form.reply.value.length>50){
alert("回复内容不能超过50个字符！");
form.reply.focus();
return false;
}
return true;
}
</SCRIPT>
<link href="../css.css" rel="stylesheet" type="text/css">
</head>
<body>
<form action="reply.asp?action=save&id=<%=request("id")%>" method="post" name="form" id="form">
<p> </p>
<table class=log_table width="450" border="0" align="center" cellpadding="0" cellspacing="5">
<tr>
<td align="center"> <table width="100%" border="0" class=log_titlewidth="100%">
<tr>
<td> 回复留言：</td>
</tr>
<tr>
<td>
<%
Function unHtml(content)
ON ERROR RESUME NEXT
unHtml=content
IF content <> "" Then
unHtml=Server.HTMLEncode(unHtml)
unHtml=Replace(unHtml,vbcrlf,"<br>")
unHtml=Replace(unHtml,chr(9)," ")
unHtml=Replace(unHtml," "," ")
End IF
IF Err.Number <>0 Then
unHtml= "HTML转换中出错请联系管理员<br>"
Err.Clear
End IF
End Function
%>
<%=unHtml(rs("content"))%></td>
</tr>
<tr>
<td><strong> 管 理 员 回 复 </strong></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="65%"> 回复<font color="#990033"><%=rs("name")%></font>的留言</td>
<td rowspan="2"><div align="right"></div></td>
</tr>
<tr>
<td> 不超过255个字符！</td>
</tr>
</table></td>
</tr>
<tr>
<td valign="middle"> 回复内容： <br>
<textarea name="reply" cols="58" rows="8" class="wenbenkuang" id="reply"></textarea>
</td>
</tr>
<tr>
<td height="30">
<input type="submit" class="go-wenbenkuang" value="回复" name="button">
<input name="Submit2" type="reset" class="go-wenbenkuang" id="Submit2" value="重置">
</td>
</tr>
</table>
</form>
<%
else
if request.form("reply")="" then
response.write"<SCRIPT language=JavaScript>alert('对不起，公告内容不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
rs("reply")=Server.HTMLEncode(request.form("reply"))
rs.update
rs.close
set rs=nothing
response.redirect "viewfk.asp"
end if
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -