권장 : ASP+Ajax는 친구를 추가 할 수있는 새로 고침을 달성하지 않습니다 업무 관계로 인해 기능 중 하나는 다른 당사자를 친구로 늘리는 것입니다. 그림과 같이 : 사용 된 방법은 Ajax이고 적절한 코드는 저렴합니다. href = javaScript : void (0); onclick = add_username ( ' %= rs (username) %'); friend/a, 사용 된 JS 확인 : 스크립트 언어 = javaScript src = ajax.
태그 함수를 구현하는 데 사용되는 ASP 클래스를 이해할 수있는 경우 특정 기능을 이해할 수 있습니다.
레코드 수정 :
1. 확장 기능 추가, 2006-12-3
<%
'*******************************
'클래스 이름 : tagengine
'이름 : 태그 엔진
'날짜 : 2006-11-29
'저자 : Leng Yue, Xilou
'웹 사이트 : www.xilou.net | www.chinacms.org
'설명 : 태그 추출의 기능, 구문 분석 태그의 기능 없음
'저작권 : 저자, 저자 소스를 참조하십시오
'*******************************
'마지막 수정 : 2006-12-3
'수정 수 : 3
'수정 지침 : 일치를보다 정확하게 만들기 위해 규칙을 수정합니다.
'현재 버전 : v1.1.3
'*******************************
클래스 gantengine
비공개 정규 '정규 객체
'태그 규칙을 정의하십시오
개인 tagbegin
개인 태그
개인 Blockbegin_begin
개인 Blockbegin_end
Private Blockend_begin
Private Blockend_end
'// 초기화
private sub class_initialize ()
'태그 규칙을 초기화하십시오
tagbegin = {
태그 =}
blockbegin_begin = <block :
blockbegin_end =>
blockend_begin = </block :
blockend_end =>
'일반 객체를 초기화하십시오
REGEX = New Regexp를 설정합니다
regex.ignorecase = true '는 사례에 민감합니다
regex.global = true'global match
종료 서브
private sub class_terminate ()
'개체를 해제하십시오
isobject (regex) 인 경우 regex = nothing을 설정하십시오
종료 서브
'방법 : resetpattern ()
'매개 변수 :
'반환 : 반환 값 없음
'기능 : 태그 규칙을 재설정하십시오
공개 하위 리셋 패터 른 (tagbegin, tagend, _
blockbegin_begin, _
blockbegin_end, _
blockend_begin, _
blockend_end _
))
tagbegin = tagbegin
태그 = 태그
blockbegin_begin = blockbegin_begin
blockbegin_end = blockbegin_end
blockend_begin = blockend_begin
blockend_end = blockend_end
종료 서브
'방법 : getBlocks (온도, 블록 이름)
'매개 변수 : 임시, 일치하는 내용; 블록 이름, 블록 플래그 이름
'반환 : 컬렉션 개체로 돌아 가기 (일치)
'기능 : 블록 태그 컬렉션을 가져옵니다
공개 기능 getBlocks (온도, 블록 이름)
희미한 패턴
pattern = (& blockbegin_begin & []*& blockname &/b [/w/w]*? & blockbegin_end
Pattern = Pattern &) ([/w/w]*?) & blockend_begin & [/n/r]*& blockname & []*& blockend_end
'응답. 패턴 쓰기
regex.pattern = 패턴
set getBlocks = regex.execute (temp) '일치하는 세트를 반환합니다
엔드 기능
'방법 : getBlockByatt (Temp, AttributeName, AttributeValue)
'인수 : 온도, 일치하는 내용; 속성 이름, 속성 이름; AttributeValue, 속성 값
'반환 : 컬렉션 개체로 돌아 가기 (일치)
'함수 : 블록 레이블의 특정 속성 값에 따라 일치하는 블록 세트를 얻습니다.
public function getBlockByatt (Temp, AttributeName, AttributeValue)
희미한 패턴
pattern = (& blockbegin_begin & [/w/w]*?
Pattern = Pattern & []*= []*/& chr (34) & AttributeValue &/& chr (34) & [/n/r]*[/w/w]*?
Pattern = Pattern & Blockbegin_end
Pattern = Pattern &) ([/w/w]*?) & blockend_begin & [/w/w]*? & blockend_end
'응답. 패턴 쓰기
regex.pattern = 패턴
getBlockbyatt = regex.execute (temp) '세트를 설정합니다
엔드 기능
'방법 : getAttValue (Temp, AtributeName)
'기사 : 임시, 일치하는 내용; 속성 이름, 속성 이름입니다
'반환 : 컬렉션 개체로 돌아 가기 (일치)
'효과 : 블록 태그에서 속성 값을 가져옵니다
public function getAttValue (Temp, AttributeName)
희미한 패턴
Pattern = [/n/r]+& aftributeName & []*= []*/& chr (34) & ([^/f/n/r/t/v/& chr (34) &]*?)/& chr (34)
'응답. 패턴 쓰기
regex.pattern = 패턴
getAttValue = regex.execute (temp) 설정
엔드 기능
'방법 : parsetag (Temp, Tagname, tagvalue)
'인수 : 온도, 일치하는 내용; 속성 이름, 속성 이름; AttributeValue, 속성 값
'반환 : 교체 된 문자열을 반환합니다
'효과 : 간단한 태그를 교체하십시오
public function parsetag (Temp, Tagname, tagvalue)
희미한 패턴
'Pattern = tagbegin & []*& tagname & []*& tagend
Pattern = tagbegin & tagname & tagend
regex.pattern = 패턴
parsetag = regex.replace (온도, tagvalue)
엔드 기능
'방법 : 클리어 블록 (온도)
'인수 : 온도, 어울리는 것
'반환 : 청소 된 문자열을 반환합니다
'효과 : 모든 블록 태그를 지우십시오
공개 기능 클리어 블록 (임시)
희미한 패턴
Pattern = blockbegin_begin & [/w/w]*? & blockbegin_end & [/w/w]*?
Pattern = Pattern & Blockend_begin & [/w/w]*? & blockend_end
regex.pattern = 패턴
ClearBlocks = regex.replace (온도,)
엔드 기능
'방법 : ClearTags (온도)
'인수 : 온도, 어울리는 것
'반환 : 청소 된 문자열을 반환합니다
'효과 : 모든 단일 태그를 지우십시오
공개 기능 ClearTags (임시)
희미한 패턴
pattern = tagbegin & [^/f/n/r/t/v]*? & tagend
regex.pattern = 패턴
cleartags = regex.replace (temp,)
엔드 기능
'방법 : 샤워러 (errdes)
'매개 변수 : errdes, 오류 설명
'반환 : 없음
'효과 : 디스플레이 오류
공개 하위 샤워러 (ERRDES)
DIM ERRINFO, CSSSTYLE
cssstyle = & chr (34)
CSSSTYLE = CSSSTYLE & FONT : BOLD 12PX 150%, 'ARIAL'; 국경 : 1PX SOLID #CC3366;
CSSSTYLE = CSSSTYLE 및 너비 : 50%; 색상 :#990066; 패딩 : 2PX; & chr (34)
errinfo = vbcrlf & <ul & cssstyle &> <li> & errdes & </li> </ul> & vbcrlf
응답. errinfo
종료 서브
'********************* 표준 기능 종료 ******************
'다음은 사용자 정의 확장입니다
'방법 : ext_getSimpleBlocks (온도, 블록 이름)
'매개 변수 : 임시, 일치하는 내용; 블록 이름, 블록 플래그 이름
'반환 : 컬렉션 개체로 돌아 가기 (일치)
'기능 : 간단한 블록 태그 모음을 얻으십시오
'예 : <블록 : 새 ID = 루프 =/>
public function ext_getSimpleBlocks (온도, 블록 이름)
희미한 패턴
Dim Blockbegin, Blockend
'태그 규칙을 재정의하십시오
blockbegin = <block :
차단 =/>
Pattern = blockbegin & []*& blockname &/b [/w/w]*? & blockend
regex.pattern = 패턴
ext_getsimpleblocks 설정 = regex.execute (temp)
엔드 기능
'********************* 표준 기능 종료 ******************
'다음은 사용자 정의 확장입니다
'방법 : ext_getSimpleBlocks (온도, 블록 이름)
'매개 변수 : 임시, 일치하는 내용; 블록 이름, 블록 플래그 이름
'반환 : 컬렉션 개체로 돌아 가기 (일치)
'기능 : 간단한 블록 태그 모음을 얻으십시오
'예 : <블록 : 새 ID = 루프 =/>
public function ext_getSimpleBlocks (온도, 블록 이름)
희미한 패턴
Dim Blockbegin, Blockend
'태그 규칙을 재정의하십시오
blockbegin = <block :
차단 =/>
Pattern = blockbegin & []*& blockname &/b [/w/w]*? & blockend
regex.pattern = 패턴
ext_getsimpleblocks 설정 = regex.execute (temp)
엔드 기능
'방법 : ext_getText (경로)
'인수 : 읽을 텍스트에 대한 경로, 상대적 또는 절대 경로
'반환 : 텍스트 컨텐츠를 반환합니다
'기능 : 파일을 읽으십시오
'예 : c = ext_gettext (tpl.htm)
공개 함수 ext_getText (경로)
dim fso, f, 텍스트
다음에 오류가 재개됩니다
set fso = createobject (scripting.filesystemobject)
f = fso.opentextfile (경로) 설정
텍스트 = F. Readall
그렇다면
err.clear
파일을 읽을 때 오류가 발생했습니다 ...
isobject (fso) 인 경우 fso = nothing을 설정하십시오
종료 기능
끝 If
isobject (fso) 인 경우 fso = nothing을 설정하십시오
ext_getText = 텍스트
엔드 기능
'방법 : ext_getIncludeFile (온도)
'인수 : 온도, 어울리는 것
'반환 : 컬렉션 개체로 돌아 가기 (일치)
'함수 : <!-#포함 파일 = tpl.html->의 블록을 구문 분석하십시오
'예 : ext_getIncludeFile (temp) (0) .SubMatches (0), 첫 번째 일치 파일 이름을 반환합니다
공개 함수 ext_getIncludeFile (임시)
희미한 패턴
Dim Blockbegin, Blockend
'태그 규칙을 재정의하십시오
blockbegin = <!-#포함
blockend =->
Pattern = blockbegin & []*file []*= []*/([/w/w]*?)/[]*& blockend
regex.pattern = 패턴
set ext_getIncludefile = regex.execute (temp)
엔드 기능
수업 종료
%>
공유 : ASP 제한 IP 투표 전체 예제 코드 업무 관계로 인해 기능 중 하나는 사용자에게 투표하는 것입니다. 동일한 IP가 동일한 사용자에게 한 번만 투표하도록 요구하는 것입니다. ASP 코드 : % '저자 : Wurong 출처 : DB_CONN (DB_CONN (request.QueryString)) RS_CREATE (userEname =' '에서 Username을 선택하십시오.