ASP에서 HTML을 생성하는 방법?

다음은 인용 된 내용입니다.

<%

'대상 페이지에 파일, 즉 페이지 #include가 포함 된 경우이 프로그램에 문제가 있습니다.

'참고 :이 파일은 20041227111723.htm의 파일과 동일한 디렉토리에 배치해야합니다.

Dim Hughchiu_rtcode

함수 get_exe_code (20041227111723.htm)

희미한 execode

dim tmp_str

Dim Re, Re1, Content, FSO, F, Aspstart, Aspend

Dim MS, m

execode =

set fso = createobject (scripting.filesystemobject)

set f = fso.opentextfile (Server.mappath (20041227111723.htm))

내용 = F. Readall

f.close

f = 아무것도 설정하지 않습니다

FSO = 아무것도 설정하지 않습니다

RE = New Regexp를 설정합니다

re.ignorecase = true

re.global = true

re.pattern =/</%/@[^/%]/%//////////////////////////////////4

content = re.replace (content,)

re.global = false

re.pattern =/</!/-/-/s*/#포함/s*file/s*=/s*/([^/]) // s*/-///////////////////////////////////////////////////4

하다

set ms = re.Execute (컨텐츠)

Ms.count <> 0이면

m = ms (0) 설정

tmp_str = get_exe_code (m.submatches (0))

content = re.replace (content, tmp_str)

또 다른

출구

끝 If

고리

m = 아무것도 설정하지 않습니다

MS = 아무것도 설정하지 않습니다

re.pattern =^/s*=

aspend = 1

aspstart = inst (aspend, 컨텐츠, <%) 2

RE1 = New Regexp를 설정합니다

re1.ignorecase = true

re1.global = false

re1.pattern = response/.write (.)

Aspstart> Aspend 1 동안 수행하십시오

execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && replace (replace (mid (content, aspend, aspstart-aspend-2) ,,), vbcrlf, & vbcrlf &) && vbcrlf

aspend = inst (Aspstart, 내용,%/>) 2

tmp_str = mid (content, aspstart, aspend-aspstart-2)

하다

set ms = re1.execute (tmp_str)

Ms.count <> 0이면

m = ms (0) 설정

tmp_str = re1.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode && m.submatches (0))

또 다른

출구

끝 If

고리

m = 아무것도 설정하지 않습니다

MS = 아무것도 설정하지 않습니다

execode = execode & re.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode &)

aspstart = inst (aspend, 컨텐츠, <%) 2

고리

RE1 = 아무것도 설정하지 않습니다

RE = 아무것도 설정하지 않습니다

execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && replace (replace (mid (content, aspend) ,,), vbcrlf, & vbcrlf &) && vbcrlf

get_exe_code = <%& execode &%/>

엔드 기능

기능 ASP2HTML (20041227111723.htm)

딤 코드

code = replace (replace (replace (get_exe_code (20041227111723.htm), hughchiu_rtcode = hughchiu_rtcode && vbcrlf, < %,), %/>,)

'응답 .Write (코드)

실행 (코드)

'응답 .write (hughchiu_rtcode)

asp2html = hughchiu_rtcode

엔드 기능

%>

다음은 인용 된 내용입니다.

set fso = createobject (scripting.filesystemobject)

f = fso.creatextfile (server.mappath (youpage.htm), true)

F.WriteLine (ASP2HTML (YouPage.asp))

f.close

f = 아무것도 설정하지 않습니다

FSO = 아무것도 설정하지 않습니다