请问：过滤asp代码
请教：过滤asp代码？
例如：
<%
x=requet.form( 'xxx ')
response.write(x)
%>
<html>
<title> 国家 </title>
<body>
<select name= 'xxx '>
<option value= ' '> 中国 </option>
<option value= ' '> 美国 </option>
<option value= ' '> 巴西 </option>
</select>
</body>
</html>
只想保留内容：国家/中国/美国/巴西
手上只有一段过滤html代码的代码（参考）:
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern= "(\ <.[^\ <]*\> ) "
str=re.replace(str, "/ ")
re.Pattern= "(\ <\/[^\ <]*\> ) "
str=re.replace(str, "/ ")
nohtml=str
set re=nothing
end function
------解决方案--------------------
<TEXTAREA id=T name=TEXTAREA1>
<%
x=requet.form( 'xxx ')
response.write(x)
%>
<html>
<title> 国家 </title>
<body>
<select name= 'xxx '>
<option value= ' '> 中国 </option>
<option value= ' '> 美国 </option>
<option value= ' '> 巴西 </option>
</select>
</body>
</html>
</TEXTAREA>
<SCRIPT LANGUAGE=vbs>
dim aaa
aaa=T.value
function clearHTML(strHTML)
dim i
i=0
for each bbb in split(strHTML, " < ")
for each ccc in split(bbb, "> ")
i=i+1
if i mod 2=0 then clearHTML=clearHTML & ccc
next
next
end function
msgbox clearHTML(aaa)
</SCRIPT>
------解决方案--------------------
建议楼主看下正则表达式。
例如：
<%
x=requet.form( 'xxx ')
response.write(x)
%>
<html>
<title> 国家 </title>
<body>
<select name= 'xxx '>
<option value= ' '> 中国 </option>
<option value= ' '> 美国 </option>
<option value= ' '> 巴西 </option>
</select>
</body>
</html>
只想保留内容：国家/中国/美国/巴西
手上只有一段过滤html代码的代码（参考）:
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern= "(\ <.[^\ <]*\> ) "
str=re.replace(str, "/ ")
re.Pattern= "(\ <\/[^\ <]*\> ) "
str=re.replace(str, "/ ")
nohtml=str
set re=nothing
end function
------解决方案--------------------
<TEXTAREA id=T name=TEXTAREA1>
<%
x=requet.form( 'xxx ')
response.write(x)
%>
<html>
<title> 国家 </title>
<body>
<select name= 'xxx '>
<option value= ' '> 中国 </option>
<option value= ' '> 美国 </option>
<option value= ' '> 巴西 </option>
</select>
</body>
</html>
</TEXTAREA>
<SCRIPT LANGUAGE=vbs>
dim aaa
aaa=T.value
function clearHTML(strHTML)
dim i
i=0
for each bbb in split(strHTML, " < ")
for each ccc in split(bbb, "> ")
i=i+1
if i mod 2=0 then clearHTML=clearHTML & ccc
next
next
end function
msgbox clearHTML(aaa)
</SCRIPT>
------解决方案--------------------
建议楼主看下正则表达式。