<!--#include file="../admin/conn.asp"-->
<!--#include file="../admin/Function.asp"-->
<!--#include file="../admin/error.ini"-->
<!--#include file="Top.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<LINK href="../admin/Images/Admin_Style.Css" type=text/css rel=stylesheet>
<table width="823" border="0" cellpadding="0" cellspacing="1" bgcolor="#009ACE" class="TableLine" style="border-collapse:collapse;">
  <tr>
<td width="823" align=center valign=top bgcolor="#ffffff">
<tr>
<td height="22" colspan=9 align=center bgcolor="#FFFFFF">编辑Banner图片</td>
</tr>
<tr>
<td valign=top bgcolor="#FFFFFF">
<%
id=request("id")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(id),1,True)
If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
else
fdata=request("fdata")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(id),True)
objCountFile.Write fdata
end if
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
%>
<table width="823" border="0" cellspacing="0" cellpadding="0">
<form method=post>
<tr>
<td width="97%" height="23" align="center">
<center>文件将被保存在你安装目录下的<font color="#FF0000"><%=id%></font>里，如果您的空间不支持<font color="#FF0000">FSO</font>，请直接编辑该文件！</center>
</td>
</tr>
<tr>
<td width="97%" align="center">
<textarea name="fdata" cols="75" rows="18"><%=fdata%></textarea>
</td>
</tr>
<tr>
<td width="97%" align="center" height="60">
<input type="submit" name="save" value="确定">
<input type="reset" name="Reset" value="重置">
</td>
</tr>
</form>
</table>


</td>
</tr>
</table>
</td>
</tr>
</table>
<%
set rs=nothing%>