<%
Action=request("action")
if Action="" then 
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from webinfo"
rs.open sql,conn,1,3
%>
<form action="main.asp?adminjob=webcopy&action=save" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#A3BFE8">
  <tr>
    <td height="20" align="center" bgcolor="#E9F1F8">网站版权</td>
  </tr>
  <tr>
    <td width="23%" height="20" align="center" bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  
  <tr>
    <td height="20" align="center" bgcolor="#E9F1F8">
	<textarea name="txt_content" cols="40" rows="5" style="display:none"><%=rs("w_copy")%></textarea>
	  <iframe ID="eWebEditor" src="../webdesign/ewebeditor.asp?id=txt_content&style=webluoye" frameborder="0" scrolling="no" width="90%" HEIGHT="350">        </iframe></td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#E9F1F8"><label>
      <input type="submit" name="Submit" value="提交修改">
    </label></td>
  </tr>
</table>
</form>
<%
rs.close
set rs=nothing
%>
<%else%>
<%
wContent=request("txt_content")
if wContent="" then 
response.write "<script>alert('信息提示：\n\n内容不能为空！');history.go(-1);</Script>"
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from webinfo"
rs.open sql,conn,1,3 
rs("w_copy")=wContent
rs.update
rs.close
set rs=nothing
response.write "<script language='javascript'>alert('信息提示：\n\n操作成功!');location='main.asp?adminjob=webcopy';</script>"
end if
%>
<%end if%>