html을 생성하는 뉴스 시스템은 많지만 모두 템플릿을 사용합니다. 이 기능은 asp 페이지에서 생성된 html 코드를 html 파일로 저장하므로 원본 페이지를 변경할 필요가 없으며 쉽게 작성할 수 있습니다. HTML 시스템의 뉴스 생성. ^_^코드가 비교적 짧기 때문에 여기서는 설명하지 않겠습니다.
다음과 같이 코드 코드를 복사합니다.
<%
'대상 페이지의 include 파일, 즉 #include 페이지에 response.End()가 존재하는 경우 이 프로그램에 문제가 있습니다.
'참고: 이 파일은 20041227111723.htm이 가리키는 파일과 동일한 디렉터리에 있어야 합니다.
희미한huhchiu_rtcode
함수 get_exe_code(20041227111723.htm)
희미한 실행 코드
희미한 tmp_str
희미한 re,re1,content,fso,f,aspStart,aspEnd
희미한 ms,m
실행코드=
fso=CreateObject(Scripting.FileSystemObject) 설정
f=fso.OpenTextFile(server.mappath(20041227111723.htm))을 설정합니다.
콘텐츠=f.ReadAll
f.닫기
f=아무것도 설정하지 않음
fso=아무것도 설정하지 않음
re = 새 정규 표현식 설정
re.ignorecase = true
re.global = 사실
re.pattern = /</%/@[^/%]+/%/>
내용 = re.replace(내용,)
re.global = 거짓
re.pattern = /</!/-/-/s*/#include/s*file/s*=/s*/([^/]+)//s*/-/-/>
하다
ms = re.execute(content) 설정
ms.count<>0이면
m = ms(0)으로 설정
tmp_str = get_exe_code(m.submatches(0))
내용 = re.replace(content, tmp_str)
또 다른
나가다
종료하면
고리
m = 아무것도 설정하지 않음
ms = 아무것도 설정하지 않음
다시 패턴=^/s*=
aspEnd=1
aspStart=inStr(aspEnd,content,<%)+2
re1=new RegExp 설정
re1.ignorecase = true
re1.global = 거짓
re1.pattern = 응답/.쓰기(.+)
aspStart>aspEnd+1 동안 수행
execode = execode&vbcrlf&huhchiu_rtcode =hughchiu_rtcode&&replace(replace(Mid(content,aspEnd,aspStart-aspEnd-2),,), vbcrlf, &vbcrlf&)&&vbcrlf
aspEnd=inStr(aspStart,content,%/>)+2
tmp_str = 중간(콘텐츠,aspStart,aspEnd-aspStart-2)
하다
ms = re1.execute(tmp_str) 설정
ms.count<>0이면
m = ms(0)으로 설정
tmp_str = re1.replace(tmp_str,hughchiu_rtcode =hughchiu_rtcode&&m.submatches(0))
또 다른
나가다
종료하면
고리
m = 아무것도 설정하지 않음
ms = 아무것도 설정하지 않음
execode = execode& re.replace(tmp_str,hughchiu_rtcode =hughchiu_rtcode&)
aspStart=inStr(aspEnd,content,<%)+2
고리
re1 = 아무것도 설정하지 않음
다시=아무것도 설정하지 않음
execode = execode&vbcrlf&hughchiu_rtcode =hughchiu_rtcode&&replace(replace(Mid(content,aspEnd), , ), vbcrlf, &vbcrlf& )&&vbcrlf
get_exe_code = <%&execode&%/>
기능 종료
함수 asp2html(20041227111723.htm)
희미한 코드
코드 = 교체( 교체( 교체( get_exe_code(20041227111723.htm),hughchiu_rtcode =huhchiu_rtcode&&vbcrlf, ), <%, ), %/>, )
'응답.쓰기(코드)
실행(코드)
'응답.쓰기(hughchiu_rtcode)
asp2html =hughchiu_rtcode
함수 종료
%>
사용 예:
다음과 같이 코드 코드를 복사합니다.
fso=CreateObject(Scripting.FileSystemObject) 설정
f=fso.CreateTextFile( server.mappath( youpage.htm ), true ) 설정
f.WriteLine( asp2html(youpage.asp) )
f.닫기
f = 아무것도 설정하지 않음
fso = 아무것도 설정하지 않음