<% ' ' ' 何故か ' %> <% main() Sub main() Dim FPage FPage = HomeAliasSL & "data/page" Dim objFS Set objFS = Server.CreateObject("Scripting.FileSystemObject") 'テンポラリフォルダ作成 If Not(ObjFS.FolderExists(Server.MapPath(FPage))) Then ObjFS.CreateFolder(Server.MapPath(FPage)) End If '演習フォルダ作成 If Not(ObjFS.FolderExists(Server.MapPath(FPage) & "/" & EnshuCD)) Then ObjFS.CreateFolder(Server.MapPath(FPage) & "/" & EnshuCD) End If '会社フォルダ作成 If Not(ObjFS.FolderExists(Server.MapPath(FPage) & "/" & EnshuCD & "/" & KaisyaCD)) Then ObjFS.CreateFolder(Server.MapPath(FPage) & "/" & EnshuCD & "/" & KaisyaCD) End If 'HTML標準出力をファイルに取得 Dim OutDir OutDir = Server.MapPath(FPage) & "/" & EnshuCD & "/" & KaisyaCD Dim OutFile OutFile = "test.html" 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") & Replace(Request.ServerVariables("URL"), ".asp", "_sub.asp") & "?" & Request.ServerVariables("QUERY_STRING") Dim HttpPram HttpPram = "-u ""Mozilla/4.0 (compatible; MSIE 6.0; Windows XP)"" -t 30 -d " & OutDir & " -o " & OutFile & " -j sjis " & SrcURL If (objFS.FileExists(OutDir & "\" & OutFile)) Then objFS.DeleteFile OutDir & "\" & OutFile, true End If Dim objBASP Set objBASP = Server.CreateObject("BASP21") Dim rc rc = objBASP.W3get(HttpPram) Response.Write(rc) Dim WaitCnt Set objBASP = Nothing 'Exit Sub 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") & ":80" & Replace(Request.ServerVariables("URL"), ".asp", "_sub.asp") & "?" & Request.ServerVariables("QUERY_STRING") SrcURL = "http://kaihatsu:6802" & Replace(Request.ServerVariables("URL"), ".asp", "_sub.asp") & "?" & Request.ServerVariables("QUERY_STRING") Response.Write(SrcURL) 'Exit Sub 'asp内からaspのページを呼び出すことができない! 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 %>