gpt4 book ai didi

asp 读取文件和保存文件函数代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章asp 读取文件和保存文件函数代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

'*************************************  '读取文件  '*************************************  Function LoadFromFile(ByVal File)  Dim objStream  Dim RText  RText = Array(0, "")  Set objStream = Server.CreateObject("ADODB.Stream")  With objStream  .Type = 2  .Mode = 3  .Open  .Charset = "utf-8"  .Position = objStream.Size  On Error Resume Next  .LoadFromFile Server.MapPath(File)  If Err Then  RText = Array(Err.Number, Err.Description)  LoadFromFile = RText  Err.Clear  Exit Function  End If  RText = Array(0, .ReadText)  .Close  End With  LoadFromFile = RText  Set objStream = Nothing  End Function  '*************************************  '保存文件  '*************************************  Function SaveToFile(ByVal strBody, ByVal File)  Dim objStream  Dim RText  RText = Array(0, "")  Set objStream = Server.CreateObject("ADODB.Stream")  With objStream  .Type = 2  .Open  .Charset = "utf-8"  .Position = objStream.Size  .WriteText = strBody  On Error Resume Next  .SaveToFile Server.MapPath(File), 2  If Err Then  RText = Array(Err.Number, Err.Description)  SaveToFile = RText  Err.Clear  Exit Function  End If  .Close  End With  RText = Array(0, "保存文件成功!")  SaveToFile = RText  Set objStream = Nothing  End Function 。

最后此篇关于asp 读取文件和保存文件函数代码的文章就讲到这里了,如果你想了解更多关于asp 读取文件和保存文件函数代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com