간단한 소개 : 일반적으로 웹 사이트의 홈페이지에는 가장 많은 방문이 있습니다. 웹 사이트의 홈페이지가 매우 느리게 열리면 고객이 웹 사이트를 서로 떠나게됩니다. 일반적으로 복잡한 작업으로 얻은 데이터를 캐시하거나 데이터베이스를 쿼리하거나 정적 웹 페이지를 생성하여 웹 응용 프로그램의 성능을 향상시킵니다. 이번에는 홈페이지의 출력을 문자열로 직접 캐시하고 정기적으로 업데이트하여 홈페이지의 적시에 영향을 미치지 않고 성능을 관리합니다. 여기서는 일부 VBS 사용자 정의 클래스, 응용 프로그램 객체, XMLHTTP 객체 및 ADODB.Stream 객체를 사용합니다. 관련 지식을 이해하기 위해 정보를 확인할 수 있습니다.
이 페이지와 동일한 디렉토리에 캐시하려는 페이지를 갖는 것이 가장 좋습니다. 그렇지 않으면 상대 경로가있는 일부 사진을 표시 할 수 없습니다. 또한 캐시 된 일부 페이지는 코드를 잡았습니다. 이 문제를 해결하는 방법을 모르겠습니다. 응답 할 때 인코딩 유형을 설정해야 할 수도 있습니다.
코드 사본은 다음과 같습니다.
<%
Dimwawa, 스타트 타임, 종료 시간
startime = timer ()
setwawa = newcls_cache
wawa.reloadtime = 0.5
wawa.cachename = "wawa"
wawa.name = "xmlinfoindex"
ifwawa.objisempty () thencachexmlinfoindex ()
응답 .writewawa.value
endtime = timer ()
응답. "<br> 실행 시간 :"& formatnumber ((endtime-startime)*1000,5) & "MS."
subcachexmlinfoindex ()
DimbodyText, XML
setxml = server.createobject ( "microsoft.xmlhttp")
'다음 주소를 홈페이지의 파일 주소로 바꾸십시오. http : //로 시작하여 절대 경로를 사용하면 상대 경로를 작성할 수 없습니다.
xml.open "get", "http : //onlytiancai/bak/vote/infoindex.asp", false
xml.send
BodyText = XML.ResponseBody
bodytext = bytestobstr (bodytext, "gb2312")
wawa.value = bodytext
setxml = 아무것도 없습니다
Endsub
functionbyTestObstr (body, cset)
Dimobjstream
setobjstream = server.createobject ( "adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writebody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
setobjstream = 아무것도