HTML 태그 필터링을위한 ScripthTML 기능 ASP 코드

'=======================================================================================

'기능 이름 : ScripthTml

'효과 : 필터 HTML 태그

'Arguments: ConStr----------------------------------------------------------------------------------------------------------------------

'=======================================================================================

functionscripttml (byvalconst, tagname, ftype)

딤 스

setre = newRegexp

re.ignorecase = true

re.global = true

selectcaseftype

CASE1

re.pattern = "<"& tagname & "([^>])*>"

constr = re.replace (constr, "")

CASE2

re.pattern = "<"& tagname & "([^>])*>.*.*? </"& tagname & "([^>])*>"

constr = re.replace (constr, "")

CASE3

re.pattern = "<"& tagname & "([^>])*>"

constr = re.replace (constr, "")

re.pattern = "</"& tagname & "([^>])*>"

constr = re.replace (constr, "")

EndSelect

scripthtml = constr

setre = 아무것도

최종 기능 장애

당신에게 관심이있는 기사 :