<% '保存JS Function SaveFile(jsfile,jsarea) 'On Error Resume Next SaveFile = False Dim fso, f, FilePath FilePath = server.MapPath("jsfile/" & jsfile) Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(FilePath, 2, True) f.Write jsarea f.Close Set fso = Nothing If Err Then Err.Clear : SaveFile = False Else SaveFile = True End Function '打开读取JS Function OpenFile(jsfile) 'On Error Resume Next Dim fso, f, jsarea, FilePath FilePath = server.MapPath("jsfile/" & jsfile) Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(FilePath, 1, True) do while not f.AtEndOfLine jsarea = jsarea & vbcrlf & f.ReadLine loop f.Close Set fso = Nothing OpenFile = jsarea End Function '*************************** '名称:FSO操作类 '描述:FSO操作类 '*************************** Class FsoCls Private Fso'//对象 Public FsoObj'//公共接口对象 '//初始化,构造函数 Private Sub Class_Initialize Set Fso=CreateObject("Scripting.FileSystemObject") Set FsoObj=Fso End Sub '//结束,释构函数 Private Sub Class_Terminate Set Fso=Nothing Set FsoObj=Nothing End Sub '判断文件是否存在,存在则返回True,否则返回False '参数FileDir为文件的绝对路径 Function IsFileExists(ByVal FileDir) If Fso.FileExists(FileDir) Then IsFileExists=True Else IsFileExists=False End If End Function '读取文件内容,存在则返回文件的内容,否则返回False '参数FileDir为文件的绝对路径 Function GetFileText(ByVal FileDir) If IsFileExists(FileDir) Then Dim F Set F=Fso.OpenTextFile(FileDir) GetFileText=F.ReadAll Set F=Nothing Else GetFileText=False End If End Function '创建一个文件并写入内容 '操作成功返回True,否则返回False Function CreateFile(ByVal FileDir,ByVal FileContent) 'If IsFileExists(FileDir) Then ' CreateFile=False ' Exit Function 'Else Dim F Set F=Fso.CreateTextFile(FileDir) F.Write FileContent CreateFile=True F.Close 'End If End Function '删除一个文件,成功返回True,否则返回False '参数FileDir为文件的绝对路径 Function DelFile(ByVal FileDir) If IsFileExists(FileDir) Then Fso.DeleteFile(FileDir) DelFile=True Else DelFile=False End If End Function '拷贝文件 Function CopyFile(ByVal FileName1,ByVal FileName2) If IsFileExists(FileName1) Then Fso.CopyFile FileName1,FileName2,true CopyFile=True Else CopyFile=False End If End Function End Class %>