婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

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

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,讀取,文件,和,保存,函數,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《asp 讀取文件和保存文件函數代碼》相關的同類信息！
  • 本頁收集關于asp 讀取文件和保存文件函數代碼的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 旌德县| 大兴区| 溧阳市| 辉南县| 萨嘎县| 清徐县| 修文县| 资溪县| 金山区| 武汉市| 景德镇市| 齐齐哈尔市| 遂宁市| 枝江市| 馆陶县| 漠河县| 泸水县| 鸡泽县| 蓬溪县| 荔浦县| 道孚县| 固镇县| 小金县| 韩城市| 新昌县| 十堰市| 文昌市| 军事| 连城县| 广汉市| 射洪县| 闽侯县| 五大连池市| 德钦县| 乌兰浩特市| 定结县| 黑水县| 潮州市| 丰台区| 华蓥市| 玉溪市|