📄 admin_message_re.asp

📁 商业网站/图片管理系统/投票系统/新闻管理系统/
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<%
if request.cookies("admin_OK")="" then
	response.redirect("admin_login.html")
end if
%>
<!-- 前台留言及显示 -->
<%
dim db
db=0
%>
<!-- #include file="../config/db.asp" -->
<!-- #include file="../config/function.inc.asp" -->
<%
'----------------------------定义变量------------------------
dim sql,rst,myErrors

'-----------------------------rst纪录设置--------------------
set rst=server.createobject("adodb.recordset")

'----------------------------提交回复-----------------------
if request.querystring("act")="add" then
 sql="select * from shop_message where m_id="&request.querystring("id")
 rst.open sql,conn,1,3
 rst("m_recontent")=request.form("m_recontent")
 rst.update
 rst.close
 set myErrors=conn.errors
 if myErrors.count=0 then
 	msgboxU "回复留言成功！"
 else
 	msgboxU "回复留言失败！原因：" & myErrors.item(0).description
 end if
end if
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="../css/mycss.css" rel="stylesheet" type="text/css" />
</head>

<body>
<%
if request.querystring("id")="" then
	msgboxU "参数错误"
	response.end()
else
	sql="select shop_message.*,shop_user.u_name from shop_message,shop_user where  shop_message.m_uid=shop_user.u_id and m_id="&request.querystring("id")
	rst.open sql,conn,1,1
	if rst.eof and rst.bof then
		msgboxU "错误记记录号参数，或者此留言未被审核或已经被删除！"
	else

%>
<div align="center">
  <table width="754" height="156" border="1" cellpadding="0" cellspacing="0" bordercolor="#333333">
    <tr>
      <td width="321" height="30" align="left" valign="middle" bgcolor="#DCDCDC">第<font color="red">[<%=rst("m_id")%>]</font>楼&nbsp;留言人:<%=rst("u_name")%></td>
      <td width="432" align="left" valign="middle" bgcolor="#DCDCDC">留言时间:<%=rst("m_adddate")%></td>
    </tr>
    <tr>
      <td colspan="2" align="left" valign="middle" bgcolor="#ECECEC">标题:<%=rst("m_title")%></td>
    </tr>
    <tr>
      <td height="49" colspan="2" align="left" valign="middle" bgcolor="#DCDCDC">内容:<%=rst("m_content")%></td>
    </tr>
    <tr>
      <td height="38" colspan="2" align="left" valign="middle" bgcolor="#ECECEC">回复:<%=rst("m_recontent")%></td>
    </tr>
    <tr>
      <td height="16" colspan="2" align="left" valign="middle">&nbsp;</td>
    </tr>
  </table>
<%
	end if
end if
rst.close
%>
  <br />
  <form id="form1" name="form" method="post" action="admin_message_re.asp?act=add&id=<%=request.querystring("id")%>">
    <table width="754" height="177" border="1" cellpadding="0" cellspacing="0" bordercolor="#333333">
      <tr>
        <td width="81" height="151" align="left" valign="top">回复内容：</td>
        <td width="667" align="left" valign="top"><textarea name="m_recontent" cols="80" rows="10" id="m_recontent"></textarea></td>
      </tr>
      <tr>
        <td colspan="2" align="center" valign="middle"><input type="submit" name="Submit" value="提交回复" /></td>
      </tr>
    </table>
  </form>
  <p>&nbsp;</p>
</div>
<%
set rst=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明

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