佳木斯湛栽影视文化发展公司
主頁 > 知識庫 > asp 讀取文件和保存文件函數(shù)代碼

asp 讀取文件和保存文件函數(shù)代碼
熱門標(biāo)簽：科大訊飛語音識別系統(tǒng) 團購網(wǎng)站 服務(wù)器配置 銀行業(yè)務(wù) 電子圍欄 阿里云 Linux服務(wù)器 Mysql連接數(shù)設(shè)置
'*************************************
'讀取文件
'*************************************

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

標(biāo)簽：蚌埠 衡水 大理 江蘇 廣元 棗莊 衢州 萍鄉(xiāng)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp 讀取文件和保存文件函數(shù)代碼》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    三穗县| 邳州市| 类乌齐县| 葫芦岛市| 沈丘县| 登封市| 甘南县| 容城县| 石首市| 黔西| 普兰店市| 大方县| 甘南县| 桦川县| 宝兴县| 阿拉尔市| 于都县| 西华县| 南召县| 太湖县| 宿州市| 瑞金市| 游戏| 吉林市| 宁晋县| 万山特区| 海丰县| 家居| 古丈县| 长岭县| 东辽县| 都昌县| 玉树县| 宁化县| 耿马| 莱芜市| 泸西县| 库伦旗| 秦皇岛市| 栾城县| 确山县|