사이트 방문자가 많을때 메인에 디비에서 불러오는 정보가 많으면서버에 부하를 많이 주게 됩니다.
파싱된 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
위와 같이 사용하시면 어떨지 모르겠네요..
