php ado.stream,adostreame例子

adostreame例子

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'@ Object.Open(Source,[Mode],[Options],[UserName],[Password])

'@ [Mode] 指定打开模式

'1 adModeRead

'3 adModeReadWrite

'4194304 adModeRecursive

'16 adModeShareDenyNone

'4 adModeShareDenyRead

'8 adModeShareDenyWrite

'12 adModeShareExclusive

'0 adModeUnknown

'2 adModeWrite

'@ [Options] 指定打开的选项

'1 adOpenStreamAsync

'4 adOpenStreamFromRecord

'-1 adOpenStreamUnspecified%

'@ Object.Read(Bytes) 读取指定长度的二进制内容,不指定则读取全部

'@ Object.ReadText(Chars) 读取指定长度的文本,不指定则读取全部

'@ Object.Write(Buffer) 将指定内容装入对像中

'@ Object.Write(Data,[Options]) 将指定的文本数据装入对像中

'@ [Options] 写入的选项,可不指定

'0 adWriteChar

'1 adWriteLine

'@ Object.SaveToFile(FileName,[Options])

'@ SaveToFile 存取选项

'1 adSaveCreateNotExist

'2 adSaveCreateOverWrite

'@ Object.Flush 将缓存中的数据强制输出

'@ Object.setEOS() 将数据流设置为空

'@ Object.SkipLine(n) 跳过n行

'@ EOS 返回对像内数据是否为空

'@ LineSeparator 指定换行格式

'13 adCR

'-1 adCRLF

'10 adLF

'@ Type 指定或返回的数据类型

'1 adTypeBinary

'2 adTypeText

'@ Size 返回对像内数据的大小

'@ State 返加对像状态是否打开

'@ Charset 指定字符集

'@

'@ Lilo

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function LocalRead(xPath,xChar)

On Error Resume Next

Set xStream = Server.CreateObject("ADODB.Stream")

With xStream

.Type = 1

.Mode = 3

.Open

.Position = 0

.LoadFromFile xPath

.Position = 0

.Type = 2

.Charset = xChar

LocalRead = .ReadText()

End With

End Function

Function LocalBinRead(xPath)

On Error Resume Next

Set xStream = Server.CreateObject("ADODB.Stream")

With xStream

.Type = 1

.Mode = 3

.Open

.Position = 0

.LoadFromFile xPath

.Position = 0

LocalBinRead = .Read

End With

End Function

Function ToChar(xConn,xChar)

On Error Resume Next

Set xStream = Server.CreateObject("ADODB.Stream")

With xStream

.Type = 1

.Mode = 3

.Open

.Position = 0

.Write xConn

.Position = 0

.Type = 2

.Charset = xChar

ToChar = .ReadText()

End With

End Function

Function RemoteRead(xPath)

On Error Resume Next

Set xmlDoc=Server.CreateObject("MSXML2.XMLHTTP")

xmlDoc.Open "GET",xPath,False

xmlDoc.Send()

If xmlDoc.readyState<>4 Then

Exit Function

End If

RemoteRead=xmlDoc.responseBody

Set xmlDoc=Nothing

End Function

Function LocalSave(xConn,xSave,xChar)

On Error Resume Next

Set xStream = Server.CreateObject("ADODB.Stream")

With xStream

.Type = xChar

.Open

If xChar = 1 Then .Write xConn Else .WriteText xConn

.SaveToFile xSave,2

.Close()

End With

Set xStream=Nothing

End Function

Function URLEncoding(vstrIn)

strReturn = ""

For i = 1 To Len(vstrIn)

ThisChr = Mid(vStrIn,i,1)

If Abs(Asc(ThisChr)) < &HFF Then

strReturn = strReturn & ThisChr

Else

innerCode = Asc(ThisChr)

If innerCode < 0 Then

innerCode = innerCode + &H10000

End If

Hight8 = (innerCode And &HFF00)\ &HFF

Low8 = innerCode And &HFF

strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)

End If

Next

URLEncoding = strReturn

End Function

%>

'@ 读取远程数据,可以是2进制,也可以是文本

xBody = RemoteRead("http://lilo.name/photo/index.asp")%

'@ 利用Stream转换字符集

'Response.write ToChar(xBody,"GB2312")

'@ 读取并显示本地2进制数据

Response.ContentType="Image/Gif"

Response.BinaryWrite LocalBinRead("D:\LiloWeb\WWWRoot\asp\001.gif")

Response.Flush

'@ 读取并输出本地文本数据

'Response.write LocalRead("D:\LiloWeb\WWWRoot\asp\001.txt","GB2312")

%>

%

%