<!--#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="修改" >
<input type="reset" value="重置" name="B2"></td>
</tr>
</form>
</table>
<%
sub closedatabase
end sub
%>
</body>
</html>