这样的页面如何替换

[MeChecksV]

有一段 HTML代码 其中包含了input textarea select

如 <input type='' value='3' ....> 替换成3
<textarea >123 </textarea> 替换成123

<select>
<option value=''>1 </option>
<option value='' select>2 </option> 替换成2
<option value=''>3 </option>
</select>

想替换掉这些标签只显示 值部分

如何替换????

[lzp4881]

<%
function RegExpTestsp(str,pat)
Dim r, Match, Matches
Set r = New RegExp
r.Pattern = pat
r.IgnoreCase = false
r.Global = True
Set Matches = r.Execute(str)
For Each Match in Matches
RetStr = RetStr & Match.Value
Next
RegExpTestsp = RetStr
End function
PValue = "<input type='' value='3' ....>"
pat="[\d]+"
response.write(RegExpTestsp(PValue,pat))

%>