ASP페이지를 정적인 HTML파일로 만들기

 

태요 사이트에서 올렸는데요..

여기에도 한번 올려봅니다.

다들 아시는 내용이 아닌지..???

삭제하라면 삭제 하겠습니다.

 

사이트 방문자가 많은 경우에
메인에 디비로 연결해서 하게 되면은 서버에 부하를 많이 주게 됩니다
그래서 일반적으로 배치를 돌려서 파싱된 htm파일로 만들어서
그냥 htm파일을 실행하게 합니다.
간단하게 하는 방법이니 참고 하세요.


Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") 
objWinHttp.Open "GET", "실행할 asp파일경로(예.http://www.aaa.com/index.asp)", false
objWinHttp.Send() 
returnmsg = fnStreamBinaryToString(objWinHttp.ResponseBody, "euc-kr")
set objWinHttp = nothing

dim CurrentDirectory
CurrentDirectory=server.MapPath("/")&"\"'저장할 파일 경로
Userfilename=CurrentDirectory & "index.htm"
dim objFso
set objFso=server.CreateObject("Scripting.Filesystemobject")
set objFiler=objFso.CreateTextFile (Userfilename, true)
set objFiler=nothing

dim objFile
set objFile=objFSO.OpenTextFile(Userfilename,8,true)
objFile.WriteLine returnmsg
objFile.close	
set objFso=nothing


Function fnStreamBinaryToString(Binary, CharSet)
 Const adTypeText = 2
 Const adTypeBinary = 1

 '//Create Stream object
 Dim BinaryStream 'As New Stream
 Set BinaryStream = CreateObject("ADODB.Stream")
 '//Specify stream type - we want To save text/string data.
 BinaryStream.Type = adTypeBinary
 '//Open the stream And write text/string data To the object
 BinaryStream.Open
 BinaryStream.Write Binary
 '//Change stream type To binary
 BinaryStream.Position = 0
 BinaryStream.Type = adTypeText
 '//Specify charset For the source text (unicode) data.
 If Len(CharSet) > 0 Then
  BinaryStream.CharSet = CharSet
 Else
  BinaryStream.CharSet = "us-ascii"
 End If
 '//Open the stream And get binary data from the object
 fnStreamBinaryToString = BinaryStream.ReadText
End Function

위와 같이 사용하시면 어떨지 모르겠네요..

지금까지 초보였습니다.

출처 : 데브피아