濮阳杆衣贸易有限公司

主頁 > 知識庫 > asp 讀取文件和保存文件函數(shù)代碼

asp 讀取文件和保存文件函數(shù)代碼

熱門標簽:外呼系統(tǒng)還用卡么 智能電銷機器人適用于哪些行業(yè) 武漢營銷電話機器人軟件 地圖標注服務哪家好 地圖標注宅基地 長沙防封電銷卡品牌 西寧公司外呼系統(tǒng)平臺 徐州人工智能電銷機器人好用嗎 騰訊地圖標注商戶關閉
'*************************************
'讀取文件
'*************************************

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

標簽:運城 荊門 普洱 雅安 通遼 鷹潭 巴彥淖爾 通化

巨人網(wǎng)絡通訊聲明:本文標題《asp 讀取文件和保存文件函數(shù)代碼》,本文關鍵詞  asp,讀取,文件,和,保存,函數(shù),;如發(fā)現(xiàn)本文內容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《asp 讀取文件和保存文件函數(shù)代碼》相關的同類信息!
  • 本頁收集關于asp 讀取文件和保存文件函數(shù)代碼的相關信息資訊供網(wǎng)民參考!
  • 推薦文章
    谷城县| 武义县| 蒙山县| 中牟县| 菏泽市| 江源县| 巍山| 阿尔山市| 偏关县| 璧山县| 洛隆县| 广元市| 亳州市| 旬阳县| 滕州市| 工布江达县| 皮山县| 永德县| 昌江| 邹平县| 临桂县| 科技| 塘沽区| 长海县| 兴和县| 永泰县| 霞浦县| 莱芜市| 和林格尔县| 屯留县| 黑龙江省| 桐城市| 新巴尔虎左旗| 昌图县| 凭祥市| 彝良县| 平邑县| 武清区| 正镶白旗| 浦城县| 新建县|