asp单页更新

<!--#include file="../pub/checkuser.asp"-->
<!--#include file="../pub/conn.asp"-->
<link href="../css/default.css" rel="stylesheet" type="text/css">

<%
 if request("action")="modify" then
 '提交后取值页面
Dim sContent1, i

For i = 1 To Request.Form("content1").Count
 sContent1 = sContent1 & Request.Form("content1")(i)
Next

id=trim(request("id"))

set rs1=server.CreateObject("ADODB.recordset")
rs1.Open "select * from [server] where id=" & id & " ",conn,1,3
    rs1("server_area")=sContent1
    rs1.update
    %>
<script language="javascript">
  alert("修改成功!");
</script>

   
<%   
end if

set rs=server.CreateObject("ADODB.recordset")
rs.Open "select top 1 * from server",conn,1,3
%>
<table border="1" cellpadding="5" cellspacing="0" bgcolor="#E4E4E4" bordercolor="#FFFFFF">
 <form method="POST" action="server_area.asp" name="frmAnnounce">
  <tr>
   <td align="center" colspan="2" height="30"><b>服务范围</b></td>
  </tr>
  <tr>
   <td align="center" width="150">服务范围：</td>
   <td>
   <INPUT type="hidden" name="content1" value='<%=rs("server_area")%>'>
<IFRAME ID="eWebEditor1" src="../WebEditor/ewebeditor.asp?id=content1&style=s_coolblue" frameborder="0" scrolling="no" width="550" height="350"></IFRAME>

   </td>
  </tr>
  <tr>
   <td align="center" width="150" valign="top"></td>
   <td><input type="hidden" name="id" value="<%=rs("id")%>">
   <input type="hidden" value="modify" name="action">
   <input type="submit" value="修改" >
   &nbsp;&nbsp;&nbsp;
   <input type="reset" value="重置" name="B2"></td>
  </tr>
 </form>
</table>
<%
sub closedatabase
end sub
%>

</body>
</html>