我有一个JS文件,现在想写一个ASP来管理JS文件,ASP能读取到这个JS文件,能编辑，能保存。应该怎么写呢？

参照读写TXT文件的方法
用FSO

hams能不能提供一个实例呢？谢谢

顶上去

'加载指定文件
Function LoadFile(url)

 Dim stream

 On Error Resume Next

 Set stream = Server.CreateObject("ADODB.Stream")

 With stream
   .Type = 2
   .Mode = 3
   .Open
   .LoadFromFile url
   .Charset = "gb2312"
   .Position = 2
   LoadFile = .ReadText
   .Close

 End With

 Set stream = Nothing
End Function

'保存文件
function writeFile(str,path)
  dim stream
  writeFile = 1
  On Error Resume Next
  set stream = server.CreateObject("adodb.stream")
  with stream
    .type = 2
    .mode = 3
    .charset = "gb2312"
    .open
    .position = 0
    .writetext str
    .saveToFile path,2
    .Close
  end with
  If Err.Number<>0 then writeFile = 0:err.clear
  set stream = nothing
end function

dim content
content = LoadFile(Server.MapPath("lele.js"))  '加载文件内容
if writeFile(content,Server.MapPath("/lele")) = 1 then response.write "编辑成功"  '返回0为写入失败。

提供两个函数给楼主参考。。

谢谢,不过我还是不明白如何使用?

dim content
content = LoadFile(Server.MapPath("lele.js"))  '加载文件内容

这里加载指定的js文件保存到  content变量里。。
赋值到textarea里就可以了。。

<textarea name="lele"><%=content%></textarea>

给textarea指定内容。。提交时与平时的form表单相同。。
入库时是用  rs("xxxx") = content..
你要写文件可以用  if writeFile(content,Server.MapPath("/lele")) = 1 then response.write "编辑成功"  '返回0为写入失败。

上面两个函数，能实现你想在网页里在线编辑js文件保存的功能了。

给你例子参考：


[ 本帖最后由 lele2007 于 2011-1-8 11:54 编辑 ]

收到的鲜花

• gupiao175 于 2011-01-13 16:12 送鲜花  7朵   附言：好文章！

谢谢！

如何指定保存文件的编码，例如ANSI/ UTF-8格式

.Charset = "gb2312"
这里可以直接指定。 如：.Charset = "UTF-8"