현재 여전히 버그가 있으며 최신 테스트 페이지는 http://www.reallydo.com/getimg.asp입니다.
정기 분석 페이지는 다음과 같습니다. http://jorkin.reallydo.com/article.asp?id=380
버그를 찾으면 나중에 메시지를 남겨주세요. 감사합니다.
1.31 수정
SRC = 공백이 올바르게 일치 할 수 없습니다. 결정된.
src = ''가 비어있을 때 오류가 발생했습니다. 결정된.
버그가 발견되었습니다 : 이미지 경로에 여러 공간이있을 때만 하나만 유지할 수 있습니다. 수정되지 않았습니다.
2.18 수정
이미지 경로에 여러 공백이 있으면 하나의 버그 만 유지할 수 있습니다. 결정된.
코드 사본은 다음과 같습니다.
<%
'기능 : 모든 이미지 주소를 가져 와서 배열로 저장하십시오.
'출처 : http://jorkin.reallydo.com/article.asp?id=448
'replaceall 기능이 필요합니다 : http://jorkin.reallydo.com/article.asp?id=406
functiongetimg (sstring)
Dimsreallydo, Regex, Ireallydo
Dimomatches, cmatch
'// 빈 배열을 정의합니다
Ireallydo = -1
Redimareallydo (Ireallydo)
그런 다음 ifisnull (sstring)
getimg = ""
종료 기능
endif
'// 포맷 HTML 코드
'// 정기적 인 교체를 용이하게하기 위해 각 <img 라인을 가져 오십시오
SREALLYDO = SSTRING
onerrorresumenext
SREALLYDO = REPLEC (SREALLYDO, VBCR, "")
SREALLYDO = REPLEC (SREALLYDO, VBLF, "")
SREALLYDO = REPLEC (SREALLYDO, VBTAB, "")
sreallydo = replace (sreallydo, "<img", vbcrlf & "<img", 1, -1,1)
SREALLYDO = REPLEC (SREALLYDO, "/>", "/>", 1, -1,1)
sreallydo = replaceall (sreallydo, "=", "=", true)
SREALLYDO = REPLACEALL (SREALLYDO, ">", ">", TRUE)
sreallydo = replace (sreallydo, "> <", ">"& vbcrlf & "<")
SREALLYDO = TRIM (SREALLYDO)
onerRorgoto0
setRegex = NewRegexp
regex.ignorecase = true
regex.global = true
'// Onclick, Onload 및 기타 스크립트를 제거하십시오
regex.pattern = "/s [on].+? = ([/" "|/'] (/')/ 1 "/ 1"