ASP 关于 Microsoft.XMLHTTP组件的问题 可能是我的思路错了，求指点一下

[3q2008Com]

if Application(appName&"d")<>"" then
Application.Contents.Remove(appName&"d")
else
Application(appName&"d")="1"
dHtml
end if


sub dHtml()
‘返回自身网页的代码
BytesToBstr(GetHtmlFormXMLHTTP("自身的URL","GET"),"utf-8")
end sub

报这个错，我知道可能是　一个死循环导致的，我想知道怎么可以解决，　就想到了上面的办法，但一样报错！！！

求助～

GetHtmlFormXMLHTTP
拒绝访问。
Դmsxml3.dll

[3q2008Com]

晕，，，　没人？还是我发错板块了？

[3q2008Com]

晕，，，　没人？还是我发错板块了？

[slawdan]

…………

1，很可能不是死循环
2，请把你的GetHTMLFormXMLHTTP的代码贴出来
3，你的Form拼错了

[3q2008Com]

Function GetHtmlFormXMLHTTP(Url,Method)
on error resume next
Dim oXMLHTTP ' As Object
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
oXMLHTTP.open Method,Url,False
If UCase(Method )="POST" then

oXMLHTTP.setrequestheader "content-type","application/x-www-form-urlencoded"
End If
oXMLHTTP.send

GetHtmlFormXMLHTTP=oXMLHTTP.responsebody
Set oXMLHTTP = Nothing
if err.number<>0 then
response.write "GetHtmlFormXMLHTTP函数出错了，错误描述："&err.description & "<br>错误来源"& err.source
response.End()
End if
End Function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function


GetHTMLFormXMLHTTP 函数应该没有问题的, 好多位置都用他!!!!

[slawdan]

这些函数都没什么问题~

可能你输入的自身URL的格式有问题~

-_-" 本人菜鸟，实在没看出来还可能会有什么问题了~

[3q2008Com]

...

[3q2008Com]

报错 如下
msxml3.dll 错误 '80070005'
拒绝访问。

换成 这个组件就OK了
现在已经提升到 "MSXML2.ServerXMLHTTP"

[3q2008Com]

..... 不是死循环, Microsoft.XMLHTTP 组件 可以自身调研 自身的页面吗?

有涉及到这方面编程的朋友帮忙解决一下 谢谢 !