?? reply.asp
字號:
<!--#include file="conn.asp"-->
<%if session("admin")="" 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 + -