📄 admin_msm.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="admin_dn.asp" -->
<!--#include file="mail_inc.asp" -->
<%
if Trim(Request.QueryString("w"))="save" then
sql="update msm set bak='"&request("bak")&"' where id="&request("id")
conn.execute(sql)
%>
<script language="VBScript" type="text/VBScript">
msgbox "提交成功"
</script>
<%
if page_jmail then
call SendMail(Request.Form("mail"),"问题已回复",request("bak"))
end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="image/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="5" topmargin="5">
<p>答复问题：</p>
<p> </p>
<%
sql="select * from msm where id="&request("id")
rs.open sql,conn,1,1
if not rs.eof then
%>
<form name="form1" method="post" action="admin_msm.asp?w=save">
<table width="80%" height="202" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="22%">提问者：</td>
<td width="78%"><%=rs("userid") %>
<input name="id" type="hidden" id="id" value="<%=request("id")%>"></td>
</tr>
<tr>
<td>问 题：</td>
<td><%=rs("body") %>
<input name="mail" type="hidden" id="mail" value="<%=rs("mail")%>"></td>
</tr>
<tr>
<td>回 答：</td>
<td><textarea name="bak" cols="40" rows="5" id="bak"><%=rs("bak")%></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="确定回复"></td>
</tr>
</table>
</form>
<%
else
Response.Write("你查询的记录不存在")
end if
%>
<p align="center"><a href="javascript:history.back(2)">-返回前页-</a></p>
<p align="center"> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -