권장 : Google과 유사한 ASP AJAX 검색 팁의 간단한 분석 기본 파일은 다음과 같습니다. index.html 구현 함수, 텍스트 상자, 입력 컨텐츠 및 프롬프트 검색 쿼리 기능을 구현하고 텍스트 상자에 입력 한 컨텐츠를 데이터베이스에 쿼리 한 다음 클라이언트 Conn.asp 데이터베이스 연결 함수, 구현 및 구현 및
HTML을 생성하는 많은 뉴스 시스템이 있지만 모두 템플릿을 사용합니다. 이 기능은 ASP 페이지에서 생성 된 HTML 코드를 HTML 파일로 저장하므로 원본 페이지를 변경할 필요가 없으며 쉽게 쉽게 할 수 있습니다.
HTML을 생성하는 뉴스 시스템을 작성하십시오. ^_^
코드가 짧기 때문에 여기서 댓글을 달지 않을 것입니다
<%
'대상 페이지에 파일, 즉 페이지 #include가 포함 된 경우이 프로그램에 문제가 있습니다.
'참고 :이 파일은 Filename이 가리키는 파일과 동일한 디렉토리에 배치해야합니다.
| 다음은 인용 된 내용입니다. Dim Hughchiu_rtcode 함수 get_exe_code (filename) 희미한 execode dim tmp_str Dim Re, Re1, Content, FSO, F, Aspstart, Aspend Dim MS, m execode = set fso = createobject (scripting.filesystemobject) f = fso.opentextfile 세트 (server.mappath (filename)) 내용 = F. Readall f.close f = 아무것도 설정하지 않습니다 FSO = 아무것도 설정하지 않습니다 RE = New Regexp를 설정합니다 re.ignorecase = true re.global = true re.pattern = <%@[^%]%> content = re.replace (content,) re.global = false re.pattern = <!-S*#포함*파일*= s*([^]) s*-> 하다 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 (mid (content, aspend)), vbcrlf, & vbcrlf &) && vbcrlf get_exe_code = <%& execode &%> 엔드 기능 기능 ASP2HTML (파일 이름) 딤 코드 code = replace (replace (replace (get_exe_code (filename), hughchiu_rtcode = hughchiu_rtcode && vbcrlf,), < %,), %>,) '응답 .Write (코드) 실행 (코드) '응답 .write (hughchiu_rtcode) asp2html = hughchiu_rtcode 엔드 기능 %> |
사용의 예 :
| 다음은 인용 된 내용입니다. F.WriteLine (ASP2HTML (YouPage.asp)) f.close f = 아무것도 설정하지 않습니다 FSO = 아무것도 설정하지 않습니다 |
공유 : 시작 스크립트를 통한 ASP의 힘을 인식하십시오 대부분의 언어 스크립트와 마찬가지로 ASP를 배우는 가장 좋은 방법은 ASP를 스스로 시도하고 자신의 시스템을 사용하여 PWS 또는 II를 설치하는 것입니다. 학습 중에 자신의 서버에서 ASP 구성 요소 및 기능을 테스트 할 수 있습니다. 학습을 촉진하기 위해 우리는 몇 가지 섹스를 편집했습니다