<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% if session("admid")="" or Session("class")<>"1" then response.redirect"login.asp"%>
<!--#include file="conn.asp"-->
<%
 if Request.Form("action")="Edit" then
 Conn.Execute("Update EmailBook Set [body]='"&request.Form("content")&"'")
 Response.Write("<script language=javascript>alert('修改成功！');window.location='EMailBook.asp';</script>")
 response.end
 end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
.style1 {color: #FFFFFF}
-->
</style>
</head>

<body>
<%Set Rs=Conn.Execute("Select * from EmailBook")
%>
<table width="45%" align="center" cellspacing="1" bgcolor="#006D63" >
<form action="?" method="post">
  <tr>
    <td height="25" align="center" bgcolor="#006d63" class="style1">网上报名电子邮件回复信息</td>
  </tr>
  <tr>
    <td height="25" bgcolor="#FFFFFF"><textarea name="content" cols="60" rows="6" id="content"><%=Rs(1)%></textarea></td>
  </tr>
  <tr>
    <td height="25" align="center" bgcolor="#FFFFFF"><input type="submit" name="Submit" value="修改"><input type="hidden" value="Edit" name="action"></td>
  </tr>
  </form>
</table>
<%rs.Close
Set rS=nothing%>
</body>
</html>
