<%
Response.CacheControl = "no-cache"
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/Admin_Style.css">
<title>福建音乐视听网 管理中心</title>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="topbg"> 
    <td height="22" colspan="2"  align="center"><strong>分 辨 地 址 管 理</strong></td>
  </tr>
<tr>
<td height="30"> 
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr> 
<td width="100%" valign=top>
<%
dim objFSO
dim data
dim objCountFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
Set objCountFile = objFSO.OpenTextFile(Server.MapPath("../play/path.asp"),1,True)
If Not objCountFile.AtEndOfStream Then data = objCountFile.ReadAll
else
data=request("data")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath("../play/path.asp"),True)
objCountFile.Write data
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="97%" align=center> 
<textarea name="data" cols="130" rows="25"><%=data%></textarea>
</td>
</tr>
<tr> 
<td width="97%" align=center>
<input type="submit" name="save" value="提交修改">
<input type="reset" name="Reset" value="重新修改">
</td>
</tr>
</table></form>
</td>
</tr>
</table></td></tr></table></center></body></html>