권장 : ASP가 만든 캘린더 프로그램 순수한 ASP가 만든 달력 프로그램은 그 자체로 아름답게 될 수 있으며 가장 간단한 CSS 스타일 만 제공됩니다. . . 스타일 바디 {font-size : 12px; 여백 : 20px 0 20px; 패딩 : 0} tr, td {text-align : center;} /style % '======================================================================================== ====================================================================================== ====================================================================================== ======================================================================================
클래스 템플릿
개인 m_filename, m_root, m_unknowns, m_lasterror, m_haltonerr
개인 m_valuelist, m_blocklist
개인 m_regexp
private sub class_initialize
set m_valuelist = createobject (scripting.dictionary)
set m_blocklist = createobject (scripting.dictionary)
set m_regexp = new Regexp
m_regexp.ignorecase = true
m_regexp.global = true
m_filename =
m_root =.
m_unkNowns = 제거
m_lasterror =
m_haltonerr = true
종료 서브
개인 sub class_terminate
m_regexp = 아무것도 설정하지 않습니다
m_blockmatches = 아무것도 설정하지 않습니다
m_valuematches = 아무것도 설정하지 않습니다
종료 서브
공공 재산 GET ClassName ()
className = 템플릿입니다
종료 속성
공공 속성 get 버전 ()
버전 = 1.0
종료 속성
개인 기능로드 파일 (Byval Chartype)
Dim Filename, FSO, Hndfile
filename = m_root
오른쪽 인 경우 (Filename, 1) <> 및 오른쪽 (Filename, 1) <> filename = filename &/
filename = server.mappath (filename & m_filename)
set StreamObject = server.createObject (adodb.stream)
streamObject.type = 1
streamObject.Mode = 3
streamObject.open
streamObject.Position = 0
streamObject.loadfrilefile filename
streamObject.Position = 0
streamObject.type = 2
streamObject.CharSet = ChartType
loadFile = streamObject.readText ()
LoadFile =이면 샤워러 (0x11 <br> 파일을로드 할 수 없음 & m_filename &!)
엔드 기능
개인 서브 샤워러 (Byval MSG)
m_lasterror = msg
response.write <span style = font-size : 12px; color : 빨간색> 오류 ID : & msg & </span>
m_haltonerr라면 응답
종료 서브
공개 sub set_root (byval value)
m_root = 값
종료 서브
공개 기능 get_root ()
get_root = m_root
엔드 기능
공공 재산은 루트 (byval value)
set_root (값)
종료 속성
공공 부동산 get root ()
루트 = m_root
종료 속성
public sub set_file (byval hands, byval filename, byval Chartype)
m_filename = filename
m_blocklist.add hand, loadfile (Chartype)
종료 서브
공개 기능 get_file ()
get_file = m_filename
엔드 기능
공개 sub set_unknowns (byval unknowns)
m_unknowns = 미지의
종료 서브
공개 기능 get_unknowns ()
get_unknowns = m_unknowns
엔드 기능
공공 재산 Let Let Unknowns (Byval Unknown)
m_unknowns = 알 수 없습니다
종료 속성
공공 부동산 get unknowns ()
미지의 = m_unknowns
종료 속성
public sub set_block (byval parent, byval blocktag, byval name)
희미한 일치
m_regexp.pattern = <!-/s+begin & blocktag & /s+-----> (9/S/s/ ]*) << !-/s+end & blocktag &/s+->
m_blocklist.exists (부모)가 아닌 경우 샤워러 (0x12 <br> 정의되지 않은 블록 태그 및 부모 &!)
매치 세트 = m_regexp.execute (m_blocklist.item (부모))
경기에서 각 경기마다
m_blocklist.add blocktag, match.submatches (0)
M_BLOCKLIST.ITEM (부모) = REPLACE (M_BLOCKLIST.ITEM (부모), match.Value, {& name &})
다음
일치 = 아무것도 설정하지 않습니다
종료 서브
public sub set_var (byval name, byval value, byval append)
딤 발
iSnull (value)이면 val = else val = value입니다
m_valuelist.exists (name) 인 경우
추가하면 m_valuelist.item (name) = m_valuelist.item (name) & val _
else m_valuelist.item (이름) = val
또 다른
m_valuelist.add 이름, 값
끝 If
종료 서브
공개 서브 unset_var (byval name)
m_valuelist.exists (이름) 인 경우 m_valuelist.remove (이름)
종료 서브
개인 기능 instanceValue (byval blocktag)
희미한 키, i
instancevalue = m_blocklist.item (blocktag)
키 = m_valuelist.keys
i = 0 ~ m_valuelist.count-1의 경우
instancevalue = replace (instancevalue, {& keys (i) &}, m_valuelist.item (키 (i)))
다음
엔드 기능
공개 서브 파스 (Byval Name, Byval Blocktag, Byval Append)
m_blocklist.exists (blocktag)가 아닌 경우 샤워러 (0x12 <br> 정의되지 않은 블록 태그 및 부모 &!)
m_valuelist.exists (name) 인 경우
추가하면 m_valuelist.item (name) = m_valuelist.item (name) & instancevalue (blocktag) _
else m_valuelist.item (name) = instanceValue (blocktag)
또 다른
m_valuelist.add 이름, 인스턴스 value (blocktag)
끝 If
종료 서브
개인 기능 마감 (byval 컨텐츠)
사례 m_unknowns를 선택하십시오
케이스 유지 마감 = 내용
케이스 제거
m_regexp.pattern =/{[^/t/r/n}]+/}
finish = m_regexp.replace (content,)
사례 주석
m_regexp.pattern =/{([^/t/r/n}]+)/}
finish = m_regexp.replace (content, <!-템플릿 변수 $ 1 undefined->)
CASE ELSE DINCTER = CONTER
종료 선택
엔드 기능
공개 하위 출력 (Byval Name)
m_valuelist.exists (name)가 아니라면 샤워러 (0x13 <br> 태그 및 이름을 찾을 수 없습니다 &!)
response.write (finish (m_valuelist.item (name)))
종료 서브
수업 종료
공유 : ASP 요청 개체 사용 ASP에는 주로 서버, 요청, 응답, 응용 프로그램 및 세션의 5 가지 내장 객체가 있습니다. 이제 예를 들어 설명해 봅시다. 첫 번째는 가장 일반적으로 사용되는 응답 객체입니다. 예 1 출력 HTML 문서에 대한 응답을 사용하여 웹 페이지에서 상기 세대를 프론트 페이지 편집기 또는 서면 보드, 메모장 및 기타 작가에 입력 할 수 있습니다.