比较多人问过的问题,动态include文件
'利用FSO动态调用文件
Function include(filename)
Dim re,Content,FSO,F,aspStart,aspEnd
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(Server.MapPath(filename))
Content = F.ReadAll
F.Close
Set = Nothing
Set FSO = Nothing
Set re = New RegExp
re.pattern = "s*="
aspEnd = 1
aspStart = inStr(aspEnd,content,"<%")+2
Do While aspStart>aspEnd+1
Response.Write Mid(content,aspEnd,aspStart-aspEnd-2)
aspEnd=inStr(aspStart,content,"%>")+2
Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))
aspStart=inStr(aspEnd,content,"<%")+2
Loop
Response.Write Mid(content,aspEnd)
Set re = Nothing
End Function
删除文件
'删除文件
Function DelFile()Function DelFile(Filename)
If Filename <> "" Then
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Filename) Then
FSO.DeleteFile Filename
End If
Set FSO = Nothing
End If
End Function
判断文件是否存在
'判断文件是否存在
Function ReportFileStatus(filespec)
Dim FSO,msg
Set FSO = CreateObject("Scripting.FileSystemObject")
If (FSO.FileExists(filespec)) Then
msg = filespec & " exists."
Else
msg = filespec & " doesn't exist."
End If
ReportFileStatus = msg
End Function
使用FSO修改文件特定内容的函数
'使用FSO修改文件特定内容的函数
Function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData = Replace(FiletempData,Target,String)
Set objCountFile = objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
End Function
使用FSO写文件某一行的函数
'使用FSO写文件某一行的函数
Function FSOlinewrite(filename,lineNum,Linecontent)
If linenum < 1 Then Exit Function
Dim FSO,f,temparray,tempCnt
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(Server.MapPath(filename)) Then Exit Function
Set f = FSO.OpenTextFile(Server.MapPath(filename),1)
If Not f.AtEndofStream Then
tempcnt = f.ReadAll
f.Close
temparray = Split(tempcnt,Chr(13)&Chr(10))
If lineNum>UBound(temparray)+1 Then
Exit Function
Else
temparray(lineNum-1) = lineContent
End If
tempcnt = jo& #105;n(temparray,Chr(13)&Chr(10))
Set f = FSO.cr& #101;atetextfile(Server.MapPath(filename),true)
f.Write tempcnt
End If
f.Close
Set f = Nothing
End Function
FSO替换指定文件的字符
'FSO替换指定文件的字符
Function FSOLineEdit(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData = Replace(FiletempData,Target,String)
Set objCountFile = objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
End Function
'Response.Write FSOLineEdit("test.txt","世界","明天是一个好天去")
使用FSO读取文件内容的函数
'使用FSO读取文件某一行的函数
Function FSOlinedit(filename,lineNum)
If linenum < 1 Then Exit Function
Dim FSO,f,temparray,tempcnt
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(Server.MapPath(filename)) Then Exit Function
Set f = FSO.OpenTextFile(Server.MapPath(filename),1)
If Not f.AtEndofStream Then
tempcnt = f.ReadAll
f.Close
Set f = Nothing
temparray = Split(tempcnt,Chr(13)&Chr(10))
If lineNum>UBound(temparray)+1 Then
Exit Function
Else
FSOlinedit = temparray(lineNum-1)
End If
End If
End Function
读文件最后一行的函数
'读文件最后一行的函数
Function FSOlastline(filename)
Dim FSO,f,temparray,tempcnt
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(Server.MapPath(filename)) Then Exit Function
Set f = FSO.OpenTextFile(Server.MapPath(filename),1)
If Not f.AtEndofStream Then
tempcnt = f.ReadAll
f.Close
Set f = Nothing
temparray = Split(tempcnt,Chr(13)&Chr(10))
FSOlastline = temparray(UBound(temparray))
End If
End Function
使用FSO添加文件新行的函数
'使用FSO添加文件新行的函数
Function FSOappline(filename,Linecontent)
Dim FSO,f
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(Server.MapPath(filename)) Then Exit Function
Set f = FSO.OpenTextFile(Server.MapPath(filename),8,1)
f.Write Chr(13)&Chr(10)&Linecontent
f.Close
Set f = Nothing
End Function
建立目录的程序,如果有多级目录,则一级一级的创建
'建立目录的程序,如果有多级目录,则一级一级的创建
Function CreateDIR(ByVal LocalPath)
On Error Resume Next
LocalPath = Replace(LocalPath,"","/")
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
patharr = Split(LocalPath,"/")
path_level = UBound(patharr)
For i = 0 to path_level
If i=0 Then pathtmp=patharr(0) & "/" Else pathtmp = pathtmp & patharr(i) & "/"
cpath = Left(pathtmp,Len(pathtmp)-1)
If Not FileObject.FolderExists(cpath) Then FileObject.CreateFolder cpath
Next
Set FileObject = Nothing
If Err.Number <> 0 Then
CreateDIR = False
Err.Clear
Else
CreateDIR = True
End If
End Function
复制某目录下所有文件至指定目录
'复制某目录下所有文件至指定目录
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cur_Folder = fso.getfolder(Server.MapPath(SourcePath)) ''源文件夹
Distination_Path="c: est"
Set sub_files = Cur_Folder.files
for each each_file in sub_files
sub_file_path=each_file.name
fso.CopyFile Server.MapPath(SourcePath)&"/"&sub_file_path,Distination_Path&"/"&sub_file_path,True
Next