文件操作

最新推荐文章于 2024-09-19 16:58:12 发布

原创最新推荐文章于 2024-09-19 16:58:12 发布 · 968 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function #newline #file #产品

ASP 专栏收录该内容

16 篇文章

订阅专栏

博主进行了新闻发布，并编写了一些文件操作函数，将这些内容记录下来。涉及信息技术领域的文件操作相关内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

做了一个新闻发布，写了些文件操作函数，把他们记录在此

<%
'生成一个新文件并写入内容

Function CreateNewFile(ByVal FileName)

Set afile = fso.Createtextfile(FileName,true)
afile.writeline filecontent
afile.close
set afile = nothing

End Function

'读取模板文件内容
Function GetLyrics()

Dim TextStream
Dim S
Dim File

Set TextStream = FSO.OpenTextFile(FolderPath&tempfilename,1)

S = TextStream.ReadAll & NewLine & NewLine
TextStream.Close

GetLyrics = S

End Function

'读取某一页的内容
Function ReadFileContent(filename)

Dim TextStream
Dim S
Dim File

Set TextStream = FSO.OpenTextFile(FolderPath&filename,1)

S = TextStream.ReadAll & NewLine & NewLine
TextStream.Close

ReadFileContent = S

End Function

'检测文件是否存在
'假设已经建立fso
Function CheckFileExists(FilePath)
if fso.FileExists(FilePath) then
CheckFileExists = true
else
CheckFileExists = false
end if
End Function

'删除某文件
'假设已经建立fso
Function DeleteFile(FilePath)
if CheckFileExists(FilePath) then
Set f = fso.GetFile(FilePath)
f.Delete
set f = nothing
DeleteFile = true '文件被成功删除
else
DeleteFile = false '文件不存在
End if
End Function

'删除某一产品所有详细页
Function DeleteOneProMsg(ByVal PageUrl)
dim tempar
tempar = split(PageUrl,"|")

for i = 1 to ubound(tempar)
DeleteFile( ( FolderPath&tempar(i) ) ) '删除所有信息页
next

End Function

'更新一个产品的内容
'其实为覆盖写入
Function UpdateFile(filepath)

Dim f
Set f = fso.OpenTextFile(filepath, 2, True)
f.Write newcontent
f.close
set f = nothing
End Function