激情久久久_欧美视频区_成人av免费_不卡视频一二三区_欧美精品在欧美一区二区少妇_欧美一区二区三区的

服務器之家:專注于服務器技術及軟件下載分享
分類導航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術|正則表達式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

香港云服务器
服務器之家 - 編程語言 - ASP教程 - asp 讀取文件和保存文件函數代碼

asp 讀取文件和保存文件函數代碼

2019-09-14 20:45asp之家 ASP教程

對于asp下的不用fso,使用adodb.stream對象實現文件的保存與讀取,避免一些虛擬主機不支持fso的機器。

'************************************* 
'讀取文件 
'************************************* 

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

延伸 · 閱讀

精彩推薦
562
主站蜘蛛池模板: 国产免费v片 | 毛片在哪里看 | www.射| 国产一区二区视频精品 | 久久久久久久久久久久免费 | 超久久| 久久伊人国产精品 | 国产日韩一区二区三区在线观看 | av视在线| 久久成人午夜视频 | 国产精品免费麻豆入口 | 日本a∨精品中文字幕在线 国产精品片www48888 | 免费久久久久久 | 成人免费观看av | 欧美精品亚洲人成在线观看 | hd性videos意大利复古 | 激情亚洲一区二区 | 欧美日韩国产综合网 | 黄色高清免费 | 男女羞羞视频在线观看免费 | av日韩一区二区三区 | 亚洲一区在线国产 | 精品人人人人 | 亚洲欧美日韩中文在线 | 中文字幕涩涩久久乱小说 | 成人免费av在线播放 | 国产一国产一级毛片视频在线 | 九九热精品在线视频 | 中文字幕一区二区三区四区 | 久久国产在线观看 | 欧日韩在线视频 | 免费一级欧美 | 91麻豆精品国产91久久久点播时间 | 日日操日日操 | jizzjizz中国人少妇中文 | 亚洲日本韩国精品 | 国产精品久久久久久久久久久久午夜 | 亚洲最新无码中文字幕久久 | 精品国产91久久久久久浪潮蜜月 | 成人福利在线 | 日本在线播放一区二区 |