<!--#include file="conn.Asp"-->
<!--#include file="function.Asp"-->
<%CheckAdmin3%>
<html>
<head>
<title>888wang.com DJ后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
      <table border="1" width="100%" cellspacing="0" cellpadding="0" class="tdbg">
                  <tr>
            <td width="100%" height="20" align=center class=topbg><font color=#ffffff size=3><b>失败D音娱乐网首页播放器文件菜单管理</b></font>
</td>
          </tr>
<tr>
<td width="100%" valign=top class=AutoNumber3>
<p align="center"> <a href="888wang_djList_help.asp" target=_"blank" title="修改帮助!"> 
<font color="#FF0000">此页修改帮助说明</font> 
</a><%
dim objFSO
dim fdata
dim objCountFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
Set objCountFile = objFSO.OpenTextFile(Server.MapPath("../bj/js/data.js"),1,True)
If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
else
fdata=request("fdata")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath("../bj/js/data.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 width="100%" class=AutoNumber2> 
<p align="center"> 
<textarea name="fdata" cols="75" rows="16"><%=fdata%></textarea>
</td>
</tr>
<tr> 
<td width="100%" class=title>
<p align="center">
<input type="reset" name="Reset" value="重新修改">
<input type="submit" name="save" value="提交修改">&nbsp;&nbsp;</td>
</tr>
</table></form>
</td>
</tr>
</table>
</td>
</tr>
</table>
 </td>　</form>
</td>
          </tr>
          </form>
      </table>
    </td>
    <td align=center valign=top width="5" ></td>
  </tr>
  <tr>
    <td width=750 valign=top colspan="5"></td>
    </tr>
</table>
</div>






