<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<html>
<head>
<title>首页文字广告地址管理</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<style type="text/css">
<!--
.toptext {color: #FFFFFF}
body,td,th {
	font-size: 12px;
}
-->
</style>
</head>
<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF"> 
  <tr class="title">
    <td height="30"> 
      <table cellpadding=2 cellspacing=1 border=0 width=100%>
        <tr class="title">
        <td height="27" colspan="3" align="center" background="images/button_bg.jpg"><font color="#FFFFFF"><b>首页文字广告管理</b></font></td>
        </tr>
            <tr >              
          <td width="100%" valign=top bgcolor="#FFFFFF" class=tdbg>
<%
dim objFSO
dim fdata
dim objCountFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
  Set objCountFile = objFSO.OpenTextFile(Server.MapPath("../Js/Link.Js"),1,True)
  If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
 else
  fdata=request("fdata")
  Set objCountFile=objFSO.CreateTextFile(Server.MapPath("../Js/Link.Js"),True)
  objCountFile.Write fdata
 end if
 objCountFile.Close
 Set objCountFile=Nothing
 Set objFSO = Nothing
%> 
<form method=post>
            <table width="100%" border="0" cellspacing="3" cellpadding="0">
              <tr> 
                <td class=tdbg width="97%" height="23">                      <div align="center">注意：文件将被保存在你首页JS目录下的<font color=red>Js/Link.Js</font>文件里，如果您的空间不支持<font color=red>FSO</font>，请直接编辑该文件！<br>
                  　　　如果您对html和js代码不了解，请只修改链接地址，其他不要随意编辑。</div></td>
              </tr>
              <tr> 
                <td class=tdbg width="97%"> 
                  <div align="center">
                    <textarea name="fdata" cols="130" rows="20"><%=fdata%></textarea>
                  </div></td>
              </tr>
              <tr> 
                <td class=tdbg width="97%">
                  <div align="center">
                    <input type="reset" name="Reset" value="重新修改">
                    <input type="submit" name="save" value="提交修改"> 
                  <br> <br>当前文件路径：<b><%=Server.MapPath("../Js/Link.Js")%></b>
                  </div></td>
              </tr>
            </table>
            </form>
            </td>
            </tr>
      </table>
    </td>
  </tr>
</table>