Script House는 이전에 관련 코드를 공개했지만 일부 특수 웹사이트는 완벽하지 않습니다. 최근 고객이 시스템을 수정하도록 도왔고 이 코드가 꽤 좋다고 판단되어 모두의 편의를 위해 추출했습니다.
다음과 같이 코드 코드를 복사합니다.
<%
웹폴더="/"
host="index_cn.asp"'프론트 데스크 동적 주소
폴더="/"'폴더
filename="index_cn.html"'정적 파일 이름 생성
Fso_info 호스트, 폴더, 파일 이름
response.write "웹사이트의 중국어 홈페이지에 대한 정적 HTML 생성을 완료했습니다.<br />"
'html 생성
기능 Fso_info(호스트,폴더,파일 이름)
호스트="http://"+Request.ServerVariables("HTTP_HOST")&웹폴더&호스트
if SaveFile(""&folder&filename&"",""&host&"") then
response.Write ""&폴더&파일 이름&"이 성공적으로 생성되었습니다. <br />"
또 다른
Response.write ""&folder&filename&"이 <font color='#FF0000'></font>을 생성하지 못했습니다. 파일 이름에 특수 문자가 포함되어 있을 수 있습니다.<br />"
종료하면
기능 종료
'파일 생성
함수 SaveFile(LocalFileName,RemoteFileUrl)
희미한 광고, 검색, GetRemoteData
오류 발생 시 다음 재개
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP") '//바이러스 백신 소프트웨어에 의한 우발적인 종료를 방지하기 위해 단어를 분할합니다.
검색 포함
.Open "Get", RemoteFileUrl, False, "", ""
.보내다
GetRemoteData = .ResponseBody
끝
검색 설정 = 없음
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") '//바이러스 백신 소프트웨어에 의한 우발적인 종료를 방지하기 위해 단어를 분할합니다.
광고 포함
.유형 = 1
.열려 있는
.GetRemoteData 쓰기
.SaveToFile 서버.MapPath(로컬파일 이름), 2
.취소()
.닫다()
끝
광고 설정 = 없음
오류 <> 0이면
저장 파일 = 거짓
오류가 발생했습니다.지우기
또 다른
저장 파일 = 참
종료하면
기능 종료
%>