📄 replyqhdj.asp

📁 购物系统(本版为正式商业版
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx15<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_qhdj 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>500){
		alert("回复内容不能超过500个字符！");
		form.reply.focus();
		return false;
	}
	
	return true;
}
</SCRIPT>
<link href="../css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {	color: #000000;
	font-weight: bold;
}
-->
</style>
</head>

<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
  <tr>
    <td width="1%">&nbsp;</td>
    <td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
        <tr>
          <td width="30%" style="font-size:14px;color:#ffffff">&nbsp;<span class="style2">缺货登记回复</span></td>
          <td width="70%" align="right">&nbsp;</td>
        </tr>
    </table></td>
  </tr>
</table>
<form action="replyqhdj.asp?action=save&id=<%=request("id")%>" method="post" name="form" id="form">
  <table  width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#9DB2D4" class=log_titlewidth="100%">
    <tr> 
      <td height="25" bgcolor="#C7D3E6">&nbsp; &nbsp;回复 <font color="<%=flzhzt%>"><%=rs("name")%></font> 
        <%if rs("sex")="boy" then%>
        先生 
        <%else%>
        小姐 
        <%end if%>
      留言：</td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#F0F3F8"> 
        <%
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),"&nbsp;&nbsp;&nbsp;&nbsp;")
		unHtml=Replace(unHtml," ","&nbsp;")
	End IF
	IF Err.Number <>0 Then
		unHtml= "HTML转换中出错请联系管理员<br>"
		Err.Clear
	End IF
End Function
%>
      &nbsp;&nbsp;&nbsp;<font color="#FF0000"><%=unHtml(rs("content"))%></font></td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#F0F3F8"><strong>&nbsp;&nbsp;&nbsp;管理员回复 </strong></td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#F0F3F8">&nbsp;&nbsp;&nbsp;回复内容： <br> 
        &nbsp;&nbsp;&nbsp; <textarea name="reply" cols="80" rows="8" class="wenbenkuang" id="textarea"></textarea>
      <input name="hfr" type="hidden" value=<%=session("admin")%>></td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#F0F3F8">&nbsp;&nbsp;&nbsp;回复<font color="#990033"><%=rs("name")%></font>的留言</td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#F0F3F8">&nbsp;&nbsp;&nbsp; 
        <input type="submit" class="go-wenbenkuang" value="回复" name="button"> 
      &nbsp;&nbsp; <input name="Submit2" type="reset" class="go-wenbenkuang" id="Submit23" 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("hfr")=request.form("hfr")
rs.update
rs.close
set rs=nothing
response.redirect "viewqhdj.asp"
end if
end if
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -