권장 : ASP 템플릿 코드 클래스 템플릿 개인 m_filename, m_root, m_unknowns, m_lasterror, m_haltonerr private m_valuelist, m_blocklist private m_regexp private sub class_initialize set m_valuelist = createobject (scripting.dictionary) set m_blocklist = createobject (script)
ASP 데이터베이스 프로그램을 작성할 때 일반적으로 SQL 문을 사용하고 데이터를 추가하고 업데이트 할 때 다음과 같은 방법을 사용합니다. 메시지에 삽입 (Incept, Title, Content, Sendtime, Flag, Issend) 값 ( '& incept (i) &', '& membername &', '& title &', '& message &', 0,1), 0,1)가 있습니다. 수정하고 오류를 찾는 데 문제가 있습니다. 이 SQL 클래스를 사용한 후에는 단순화 될 수 있으며 오류를 확인하는 것이 더 쉽습니다. 클래스의 추가 필드 기능을 통해 필드 이름과 필드 값을 추가하면 필드 이름과 필드 값을 SQL 문에 쉽게 삽입 한 다음 SQL 문을 반환 할 수 있습니다.
이 수업의 코드를 살펴 보겠습니다.
＜%
클래스 sqlstring
'***********************************
'변수 정의
'***********************************
'stablename --- 테이블 이름
'ISQLTYPE --- SQL 문 유형 : 0-ADD, 1-Update, 2-Delete, 3-query
'Swhere --- 조건
'소더 --- 정렬
'SSQL ---- 값
Private StableName, ISQLType, Swhere, Sorder, SSQL
'***********************************
'클래스 초기화/종료
'***********************************
private sub class_initialize ()
stablename =
ISQLTYPE = 0
swhere =
소더 =
ssql =
종료 서브
private sub class_terminate ()
종료 서브
'***********************************
'재산
'***********************************
'테이블 이름의 속성을 설정하십시오
공공 속성 let tablemaname (value)
stablename = value
종료 속성
'조건을 설정하십시오
공공 재산
swhere = value
종료 속성
'정렬 방법을 설정하십시오
공공 재산하자 주문 (값)
소더 = 값
종료 속성
'쿼리 문의 유형을 설정하십시오
공공 재산은 SQLType (value)를 보자
isqltype = value
CASE ISQLTYPE를 선택하십시오
사례 0
ssql =#0 (#1) 값으로 삽입 (#2)
사례 1
SSQL = 업데이트 #0 세트 #1 = #2
사례 2
SSQL = #0에서 삭제됩니다
사례 3
SSQL = #0에서 #1을 선택하십시오
종료 선택
종료 속성
'***********************************
'기능
'***********************************
'필드 추가 (필드 이름, 필드 값)
공개 서브 addfield (sfieldname, svalue)
CASE ISQLTYPE를 선택하십시오
사례 0
ssql = replace (ssql,#1, sfieldname &,#1)
ssql = replace (ssql,#2, '& sfieldname &',#2)
사례 1
ssql = replace (ssql,#1, sfieldname)
ssql = replace (ssql,#2, '& sfieldname &',#1 =#2)
사례 3
ssql = replace (ssql,#1, sfieldname &,#1)
종료 선택
종료 서브
'반환 SQL 문
공개 함수 returnsql ()
ssql = replace (ssql,#0, stablename)
CASE ISQLTYPE를 선택하십시오
사례 0
ssql = 교체 (ssql ,,#1,)
SSQL = 교체 (SSQL ,,#2,)
사례 1
ssql = replace (ssql,#1 =#2,)
사례 3
ssql = 교체 (ssql ,,#1,)
종료 선택
그럼에 따라 swhhere
SSQL = SSQL & WHERE & SWHERE
끝 If
Sorder.이면
SSQL = SSQL & ORDER BY & SORDER
끝 If
returnsql = ssql
엔드 기능
'명확한 진술
공개 서브 클리어 ()
stablename =
ISQLTYPE = 0
swhere =
소더 =
ssql =
종료 서브
수업 종료
%＞
사용 방법 :
예 : 메시지에 삽입 (Incept, Sender, Title, Content, SendTime, Flag, Issend) 값 ( '& incept (i) &', '& membername &', '& title &', '& message &', now (), 0,1)
a = new sqlstring '클래스 객체 생성을 설정하십시오
a.tablename = message '테이블 이름을 메시지로 설정합니다
a.sqltype = 0 '레코드를 추가하도록 쿼리 유형을 설정합니다
A.addfield incept, incept (i)
A.addfield 발신자, Membername
A.addfield 제목, Membername
A.addfield 발신자, 제목
A.addfield 컨텐츠, 메시지
A.addfield sendtime, sendtime ()
A.addfield 플래그, 0
A.addfield Issend, 1
응답. a.returnsql
a = 아무것도 설정하지 않습니다
공유 : ASP가 제작 한 캘린더 프로그램 순수한 ASP가 만든 달력 프로그램은 그 자체로 아름답게 될 수 있으며 가장 간단한 CSS 스타일 만 제공됩니다. . . 스타일 바디 {font-size : 12px; 여백 : 20px 0 20px; 패딩 : 0} tr, td {text-align : center;} /style % '======================================================================================== ====================================================================================== ====================================================================================== ======================================================================================