html을 생성하는 뉴스 시스템은 많지만 모두 템플릿을 사용합니다. 이 기능은 asp 페이지에서 생성된 html 코드를 html 파일로 저장하므로 원본 페이지를 변경할 필요가 없으며 쉽게 작성할 수 있습니다. HTML 시스템의 뉴스 생성. ^_^
코드가 비교적 짧기 때문에 여기서는 코멘트하지 않겠습니다
<%
'대상 페이지의 include 파일, 즉 #include 페이지에 response.End()가 존재하는 경우 이 프로그램에 문제가 있습니다.
'참고: 이 파일은 filename이 가리키는 파일과 동일한 디렉터리에 있어야 합니다.
희미한huhchiu_rtcode
함수 get_exe_code(파일명)
희미한 실행 코드
희미한 tmp_str
희미한 re,re1,content,fso,f,aspStart,aspEnd
희미한 ms,m
실행코드 = ""
fso=CreateObject("Scripting.FileSystemObject")를 설정합니다.
f=fso.OpenTextFile(server.mappath(파일 이름))을 설정합니다.
콘텐츠=f.ReadAll
f.닫기
f=아무것도 설정하지 않음
fso=아무것도 설정하지 않음
re = 새 정규 표현식 설정
re.ignorecase = true
re.global = 사실
re.pattern = "<%@[^%]+%>"
콘텐츠 = re.replace(콘텐츠,"")
re.global = 거짓
re.pattern = "<!--s*#includes*files*=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 = 아무것도 설정하지 않음
re.pattern="^s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
re1=new RegExp 설정
re1.ignorecase = true
re1.global = 거짓
re1.pattern = "응답.쓰기(.+)"
aspStart>aspEnd+1 동안 수행
execode = execode&vbcrlf&"hughchiu_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(파일명)
희미한 코드
code = 대체( 대체( 대체( get_exe_code(파일 이름), "hughchiu_rtcode =hughchiu_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 = 아무것도 설정하지 않음
set fso = 아무것도
이 기능이 모든 사람에게 유용하게 사용되기를 바랍니다. 제한된 수준이므로 잘못된 점을 지적하고 개선할 수 있기를 바랍니다.