www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_playad.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("../js/pad.js"),1,True) If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll else fdata=request("fdata") Set objCountFile=objFSO.CreateTextFile(Server.MapPath("../js/pad.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>