为什么我的dll组件在asp中调用会提示“拒绝访问”?
xunua 2005-09-16 01:22:12 为什么我写的用xmlhttp抓取网页代码的DLL组件,如果在另一个VB程序里调用就好使,而在asp中调用就报错呢?提示
<p>msxml4.dll</font> <font face="宋体" size=2>错误 '80070005'</font>
<p>
<font face="宋体" size=2>拒绝访问。
</font>
组件的代码
'获取网页HTML代码
Public Function getHTML(byVal url as string) As String
Dim strHTML As String
Dim xml As New ServerXMLHTTP40
strHTML = ""
xml.Open "GET", url, False
xml.setRequestHeader "CONTENT-TYPE", "text/html"
xml.setRequestHeader "Charset", "GB2312"
xml.Send
strHTML = streamToChar(xml.responseBody)
getHTML = strHTML
Set xml = Nothing
End Function
'使用ADO.Stream来实现转换二进制与字符的转换'
Private Function streamToChar(ByVal StrStream)
Dim stream As New 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