
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：仕入売上書類（HTML出力用）
'	作成日	：2012/02/03
'	作成者	：小野 美樹夫
'	概要	：ShiireUriageSyoruiは標準出力のみなので
'			：fd_syorui_output_sub.aspで出力したものを
'			：XMLHTTPオブジェクトで取得しファイルに保存する。
'################################################
'-->
'
'	何故か
'
%>

<%
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
%>