Function StreamToChar(StrStream)
set stream=CreateObject("ADODB.Stream")
stream.Type=1
stream.Mode=3
stream.Open
stream.Write Strstream
stream.Position= 0
stream.Type= 2
stream.Charset="GB2312"
StreamToChar= stream.ReadText
stream.Close
set stream=nothing
End Function
set obj = Server.CreateObject("msxml2.XmlHttp")
obj.open "get", "http://www.hebca.com", false
obj.send
response.Write StreamToChar(obj.responseBody)
博客展示了ASP中Stream函数的使用。定义了StreamToChar函数,用于将流转换为字符,设置流的类型、模式等属性,最后读取文本。还创建了XMLHTTP对象获取网页内容,并使用该函数处理响应体输出。
719

被折叠的 条评论
为什么被折叠?



