asp读取js文件，编辑JS文件，保存JS文件 - 编程论坛

#2

hams2011-01-07 08:01

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

#3

biny12011-01-07 12:36

回复 2楼 hams

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

#4

xy2bl2011-01-07 12:48

顶上去

#5

lele20072011-01-07 13:23

程序代码：

'加载指定文件
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为写入失败。

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

#6

biny12011-01-08 00:18

回复 5楼 lele2007

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

#7

lele20072011-01-08 11:21

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 编辑 ]

#8

biny12011-01-11 19:18

回复 6楼 biny1

谢谢！

#9

bluegone2011-01-12 17:56

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

#10

lele20072011-01-13 00:41

回复 9楼 bluegone

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

#11

cd_8805222011-05-24 16:02

以下是引用lele2007在2011-1-13 00:41:38的发言：

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

您好，为什么我现在现在了你的案例，修改保存后提示成功了，但是好像没修改成功，JS文件没变动！