www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_playsz.asp
<!--#include file="checkadmin.inc"-->
<html>
<head>
<title>迪吧后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_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>星云舞曲网首页播放器文件菜单管理</b></font>
</td>
</tr>
<tr>
<td width="100%" valign=top class=AutoNumber3>
<p align="center"> <a href="playlisthelp.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("../bfq/js/set.js"),1,True)
If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
else
fdata=request("fdata")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath("../bfq/js/set.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="提交修改"> </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>