<% ' ' ' 何故か ' %> <% main() Sub main() 'HTML標準出力をファイルに取得 Dim objHttp On Error Resume Next Set objHttp = Server.CreateObject("MSXML2.XMLHTTP") If (Err.Number <> 0) Then Set objHttp = Server.CreateObject("MSXML.XMLHTTPRequest") End If On Error GoTo 0 If objHttp Is Nothing Then Response.Write("XMLHTTP オブジェクトを作成できませんでした") Exit Sub End If Dim SrcURL 'SrcURL = "http://" & Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") & Replace(Request.ServerVariables("URL"), ".asp", "_sub.asp") & "?" & Request.ServerVariables("QUERY_STRING") SrcURL = "http://" & Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") & Replace(Request.ServerVariables("URL"), ".asp", "_sub.asp") & "?" & Request.ServerVariables("QUERY_STRING") Response.Write(SrcURL) Exit Sub objHttp.Open "GET", SrcURL, False objHttp.setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT" 'キャッシュ抑制 objHttp.Send If objHttp.Status >= 200 And objHttp.Status < 300 Then Dim TmpHTML TmpHTML = objHttp.responseText 'Response.Write(TmpHTML) Set objHttp = Nothing Exit Sub Else Response.Write("HTML文書データ取得に失敗しました" & vbCrLf & vbCrLf & objHttp.Status) Exit Sub End If End Sub %>