영삼넷IT 강국 = 김영삼 블로그에 오신걸 환영합니다.

데브피아에서 함희수(hhs93)님이 쓰신글입니다.

굉장히 유용한 팁입니다. 웹사이트가 느려지는 경우가 과도한 트래픽아니면, 잦은 디비연결 요구거든요.

그래서 대부분의 메인페이지는 디비연결을 최소화 하기 위해서 순수한 html로 띄워놓습니다. 변경되는

내용은 배치처리로 반영하구요. 밑에서 부터 원문입니다.

출처: http://www.devpia.com 

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

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

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

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

사이트 방문자가 많은 경우에
메인에 디비로 연결해서 하게 되면은 서버에 부하를 많이 주게 됩니다
그래서 일반적으로 배치를 돌려서 파싱된 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

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

지금까지 초보였습니다.