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

主頁 > 知識庫 > asp下用ADODB.Stream代替FSO讀取文本文件

asp下用ADODB.Stream代替FSO讀取文本文件

熱門標簽:中國辦理電信400電話 調(diào)度系統(tǒng)外呼 宜賓語音外呼系統(tǒng)軟件 電銷機器人源碼網(wǎng)盤下載 伊春外呼業(yè)務(wù)系統(tǒng) 綿陽防封電銷卡價格 電銷機器人教育 福建外呼增值業(yè)務(wù)線路 河北智能外呼系統(tǒng)軟件
'文件內(nèi)容讀取.
復(fù)制代碼 代碼如下:

Function LoadFile(ByVal File)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write "div align='center'>非常遺憾,您的主機不支持ADODB.Stream,不能使用本程序/div>"
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile Server.MapPath(File)
If Err.Number>0 Then
Response.Write "div align='center'>文件font color='#ff0000'>"File"/font>無法被打開,請檢查是否存在!/font>/div>"
Err.Clear
Response.End
End If
.Charset = "GB2312"
.Position = 2
LoadFile = .ReadText
.Close
End With
Set objStream = Nothing
End Function 

'存儲內(nèi)容到文件
復(fù)制代碼 代碼如下:

Sub SaveToFile(ByVal strBody,ByVal File)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write "div align='center'>非常遺憾,您的主機不支持ADODB.Stream,不能使用本程序/div>"
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Open
.Charset = "GB2312"
.Position = objStream.Size
.WriteText = strBody
.SaveToFile Server.MapPath(File),2
.Close
End With
Set objStream = Nothing
End Sub

調(diào)用示例
復(fù)制代碼 代碼如下:

%
WriteFile "aaa.txt", "www.jb51.net", "utf-8"
Response.Write ReadFile("aaa.txt", "utf-8")
%>
您可能感興趣的文章:
  • 使用asp下的adodb.stream 下載文件而不是打開
  • asp之基于adodb.stream的文件操作類
  • asp adodb.stream對象的方法/屬性
  • ASP下通過Adodb.Stream實現(xiàn)多線程下載大文件

標簽:河池 優(yōu)質(zhì)小號 新鄉(xiāng) 銅川 電商邀評 那曲 蘇州 延邊

巨人網(wǎng)絡(luò)通訊聲明:本文標題《asp下用ADODB.Stream代替FSO讀取文本文件》,本文關(guān)鍵詞  asp,下用,ADODB.Stream,代替,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp下用ADODB.Stream代替FSO讀取文本文件》相關(guān)的同類信息!
  • 本頁收集關(guān)于asp下用ADODB.Stream代替FSO讀取文本文件的相關(guān)信息資訊供網(wǎng)民參考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推薦文章
    主站蜘蛛池模板: 收藏| 石首市| 大埔区| 文水县| 田林县| 荃湾区| 南靖县| 五河县| 文水县| 聂拉木县| 和田县| 米易县| 莱阳市| 香格里拉县| 肇庆市| 蒙自县| 峨边| 青浦区| 尚义县| 嘉定区| 辉南县| 同江市| 土默特左旗| 道孚县| 牙克石市| 西乌| 南皮县| 梅州市| 信宜市| 蚌埠市| 莒南县| 宾阳县| 陆川县| 福鼎市| 正宁县| 简阳市| 咸阳市| 洮南市| 文水县| 呼伦贝尔市| 台南市|