2003 년 초에 나는 On On Blue 이상의 기사를 보았습니다. 나는 그 당시 매우 강력하다고 생각했지만 실제로 그것을 적용한 후에는 불편했고 포함의 영향은 좋지 않았습니다.
나중에 웹 사이트에서 개선 된 버전을 보았지만 그다지 유용하지 않았습니다 ~~~
아아, 나는 그 당시 ASP를 포기하고 싶다고 정말로 느꼈지만 회사는 여전히 ASP를 개발하여 개발을하지 않았기 때문에 선택의 여지가 없었습니다 ...
오늘, 나는 오늘 기억해야한다 ~~~ 나는 실제로 외국 웹 사이트에서 그런 좋은 것을 발견했다. 그것은 위대한 ~~~ Greatworks !!!
이전에 시도한 코드는 클래스를 포함 할 수 없거나 함수 ~~~ 또는 포함 파일에 포함될 수 없습니다 ... 포함 할 수 없습니다 ...
이제이 유령 가이 (dselkirk)가 쓴 수업은 우리를 위해 이것을 할 수 있습니다 ~~~
코드 사본은 다음과 같습니다.
<%
publicinclude, include_vars
setInclude = newcls_include
classcls_include
privatesubclass_initialize ()
setInclude_vars = server.createObject ( "scripting.dictionary")
Endsub
privatesubclass_deactivate ()
ARR_VARIABLES.REMOVEALL
setInclude_vars = 아무것도 없습니다
setInclude = 아무것도
Endsub
publicdefaultfunctioninclude (byvalst_path)
dimstr_source
ifstr_path <> ""그런 다음
str_source = readfile (str_path)
ifstr_source <> ""그럼
ProcessIncludesstr_source
변환 2codest_source
Formatcodest_Source
ifstr_source <> ""그럼
ifrequest.querystring ( "Debug") = 1then
응답 .writest_source
응답. 엔드
또 다른
executeGlobalStr_Source
include_vars.removeall