看看下面的方法对不对,我试过没有问题:
<%
dim s,re
s = "<select name='x' size='1'><option value='1'>33</option><option value='2'>44</option></select>"
set re = new regExp
re.IgnoreCase = true
re.Global = true
'------把首尾去掉,只剩下<option ....>...</option><option ....>.....</option>
re.Pattern = "<select\s{0,}[^>]*>((?:.|\n)*)<\/select>"
s = re.replace(s,"$1")
'------取需要的值
re.Pattern = "<option\s{0,}[^>]*>([^<]*)<\/option>"
s = re.replace(s,"$1<br>")
<Script Language=Vbscript>
Dim Exps
Str="<select size='1' name='BM_NAME'><option value=普通用户>普通用户</option><option value=办事处主任>办事处主任</option><option value=片区经理>片区经理</option><option value=部门主任>部门主任</option><option value=领导层>领导层</option></select>"
Set Exps= New Regexp
Exps.Pattern = "<option.*?>(.*?)</option>"
Exps.Ignorecase = True
Exps.Global = True
Set Matches =Exps.Execute(Str)
For Each Match In Matches
Msgbox Match.Submatches(0)
Next
Set Matches =Nothing
Set Exps=Nothing
</Script>