MenuBar
ASP(Active Server Pages)メモ †
'Memo/ASP/' には、下位層のページがありません。
他のサイトのコンテンツを取得する †
<%
'指定urlにGETでパラメータを送信するサンプル
Dim oXmlHttp, url
url = "http://hoge/phpinfo.php"
url = url & "?ua=" & Request.ServerVariables("HTTP_USER_AGENT")
'以下、どれかが使えるはず(システムdll依存)
Set oXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
'Set oXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
'Set oXmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
'Set oXmlHttp = Server.CreateObject("MSXML2.XMLHTTP.2.6")
'Set oXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
'Set oXmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0")
'Set oXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
'Set oXmlHttp = Server.CreateObject("MSXML2.XMLHTTP.4.0")
'http get 非同期モードで取得
Call oXmlHttp.open("GET", url, False)
Call oXmlHttp.send()
' httpステータス 200なら成功
Response.Write(oXmlHttp.status)
' httpレスポンス
Response.Write(oXmlHttp.responseText)
%>