<!-- #include file="include/onlogin.asp" -->
<!-- #INCLUDE file="include/jk_page_cute.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim id,asort,atype,asize,awidth,aheight,aname,alink,aurl
tit="<a href='admin_adsmain.asp?'>广告管理</a>&nbsp;┋<a href='?'>论坛广告管理</a>┋&nbsp;<a href='admin_popwin.asp?nsort=popwin'>弹出广告</a>┋&nbsp;<a href='admin_adsmain.asp?action=edit'>广告分类</a>" 
response.write header(4,tit)
id=trim(request.querystring("id"))
%>
<html>
<head>
<title><%response.write web_var(web_config,1)%> - 管理页面</title>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<link rel=stylesheet href='images/joekoe.css' type=text/css>
<TABLE cellpadding=3 cellspacing=1 border=0 width=450> 
  <tr>
    <td height="30"> 
      <table cellpadding=3 cellspacing=1 border=0 width=450>
        <tr >
        <td>欢迎<font class=blue><b><%response.write session("joekoe_online_admines")%></b></font>进入管理页面</font>
        </td>
        </tr>
<%
dim objFSO
dim fdata
dim objCountFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
  Set objCountFile = objFSO.OpenTextFile(Server.MapPath("ads/text.js"),1,True)
  If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
 else
  fdata=request("fdata")
  Set objCountFile=objFSO.CreateTextFile(Server.MapPath("ads/text.js"),True)
  objCountFile.Write fdata
 end if
 objCountFile.Close
 Set objCountFile=Nothing
 Set objFSO = Nothing
%> 
<form method=post>
            <table width="98%" border="0" cellspacing="3" cellpadding="0">
              <tr>
                <td width="450" height="23">论坛随机广告编辑：<br>
                      注意：文件将被保存在你安装目录下的<font color=red>ads/test.js</font>文件里，如果您的空间不支持<font color=red>FSO</font>，请直接编辑该文件！如果您对asp代码不了解，请不要随意编辑。</font></td>
              </tr>
              <tr> 
                <td width="98%"> 
                  <textarea name="fdata" cols="90" rows="20"><%=fdata%></textarea>
                </td>
              </tr>
              <tr> 
                <td width="98%">
                  <input type="reset" name="Reset" value="重新修改">
                  <input type="submit" name="save" value="提交修改"> 当前文件路径：<b><%=Server.MapPath("ads/text.js")%></b></font></font>
                </td>
              </tr>
            </table></form>
            <p> </p></font>
            </td>
            </tr>
        </table>
        </td>
    </tr>
</table>


