Wulin.com www.vevb.com은 이전에 관련 코드를 공개했지만 일부 특수 웹사이트는 완벽하지 않습니다. 최근에 고객이 시스템을 수정하도록 도왔고 이 코드가 꽤 좋다고 판단되어 모든 사람을 위해 추출했습니다. 편의. 다음과 같이 코드 코드를 복사합니다.
<%
웹폴더=/
호스트=index_cn.asp'프론트 데스크 동적 주소
폴더=/'폴더
filename=index_cn.html'정적 파일 이름 생성
Fso_info 호스트, 폴더, 파일 이름
response.write는 웹사이트의 중국어 홈페이지에 대한 정적 HTML을 생성합니다.<br />
'html 생성
기능 Fso_info(호스트,폴더,파일 이름)
호스트=http://+Request.ServerVariables(HTTP_HOST)&웹폴더&호스트
if SaveFile(&폴더&파일 이름&,&호스트&) then
응답.쓰기 &폴더&파일 이름&이(가) 성공적으로 생성되었습니다. <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이면
저장 파일 = 거짓
오류가 발생했습니다.지우기
또 다른
저장 파일 = 참
종료하면
기능 종료
%>