07/09/04 04:01:34
Set oHTTP = CreateObject("MSXML2.XMLHTTP")
oHTTP.Open "GET", "infoseekのCGI", False
oHTTP.Send
strSource = ohttp.responseText
MsgBox strSource
↑は.vbsだと普通に実行できるですが
<script language="VBScript">
Set oHttp = CreateObject("MSXML2.XMLHTTP")
oHttp.Open "GET", "infoseekのCGI", False
oHttp.Send
strSource = ohttp.responseText
MsgBox strSource
</script>
として.htaで実行しようとするとoHTTP.Sendのところで
「アクセスが拒否されました」とエラーが出ます。
これはinfoseekのCGIが他サイトから呼び出せないのと関係あるんでしょうか？
また、何か解決方法は無いものでしょうか？