<html>
<head>
<title>修改JS文件内容</title>
<style type="text/css">
body,table {font-size: 12px; font-family: Tahoma, Verdana }
</style>
</head>
<body scroll=no>
<center>
<table>
<tr>
<td height="30">
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr>
<td width="100%" valign=top>
<%
dim objFSO
dim fdata
dim objCountFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
Set objCountFile = objFSO.OpenTextFile(Server.MapPath("文件名.js"),1,True)
If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
else
fdata=request("fdata")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath("文件名.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="3%"> </td>
<td width="97%">
<textarea name="fdata" cols="110" rows="20"><%=fdata%></textarea>
</td>
</tr>
<tr>
<td width="3%"></td>
<td width="97%">
<input type="reset" name="Reset" value="重新修改">
<input type="submit" name="save" value="提交修改">
</td>
</tr>
</table></form>
<p></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</body>
</html>
