얼마 전, 실행 속도가 매우 느리고 방문자가 많았으며 자주 수정되지 않는 ASP 페이지가 있었는데 직접 정적으로 만들기에는 너무 게을러서 변경할 때마다 서버에서 다운로드해야 했습니다. 그래서 ASP 페이지를 HTM 페이지로 변환하는 방법을 찾아야 했습니다. . .
예전에 이런 글을 본 적이 있는데 별로 관심을 두지 않았는데 꼭 사용하고 싶을 때 적합한 것을 찾기가 어려워서 오랫동안 인터넷을 검색하다가 더 적합한 것을 찾았습니다. 코드를 작성하고 다음과 같이 수정 사항을 추가했습니다.
<%
함수 GetPage(url)
'파일 내용 가져오기
희미한 검색
검색 설정 = CreateObject("Microsoft.XMLHTTP")
검색 포함
."Get", url, False ', "", "" 열기
.보내다
GetPage = BytesToBstr(.ResponseBody)
끝
검색 설정 = 없음
끝 함수
함수 BytesToBstr(body)
희미한 객체 스트림
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write 본문
objstream.위치 = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 아무것도 설정하지 않음
함수 종료
다음 재개
Url=" http://www.sina.com.cn"' 읽을 페이지 주소
response.write "홈페이지 업데이트 시작..."
wstr = GetPage(Url)
'response.write(wstr)
'MyFile.FolderExists(server.MapPath("/html/"))가 아닌 경우
설정
'MyFile.CreateFolder(server.MapPath("/html/"))'
'end if
'저장할 페이지 주소
dizhi=server.MapPath("index.htm")
If (fs.FileExists(dizhi)) 그러면
fs.DeleteFile(dizhi)
CrFi=fs.CreateTextFile(dizhi)을 설정
하면 종료됩니다.
Crfi.Writeline(wstr)
setCrFi=아무것도 없음
fs=아무것도 설정하지 않음
response.write "...<font color=red>업데이트가 완료되었습니다!</font>"
%>
코드는 가장 간단합니다. URL(변환할 asp 주소)과 dizhi(저장할 html 주소)만 설정하면 바로 asp 파일에 저장할 수 있습니다. 그래야만 이미지, CSS, js가 작동하는지 확인할 수 있습니다.
asp->htm을 찾는 친구들에게 도움이 되었으면 좋겠습니다.