看看这个执行错误是什么原因？

[mouse_txy]

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select 覆盖地址 from 33 where 分光级别='二级分光'"
rs.open sql,dbConn,3,1
Do While Not rs.EOF
s=rs.Fields("覆盖地址")
set rx=new regexp
rx.pattern="([\da-z]+栋[\da-z]+单元覆盖[\da-z]+单元)"
rx.ignorecase=true
set mc=rx.execute(s)
if mc.count>0 then
response.write mc.item(0).submatches(0)
end if
set rx=nothing
rs.MoveNext
Loop

以上ASP执行中提示如下错误，怎么解决？
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'rx.execute'

[孟子E章]

代码没有问题啊

<%
s="xx栋101单元覆盖666单元"
set rx=new regexp
rx.pattern="([\da-z]+栋[\da-z]+单元覆盖[\da-z]+单元)"
rx.ignorecase=true
set mc=rx.execute(s)
if mc.count>0 then
response.write mc.item(0).submatches(0)
else
response.write "none"
end if
%>

是不是你的 s=rs.Fields("覆盖地址")的问题 写成 s=rs.Fields("覆盖地址").Value 或者 s=rs("覆盖地址") 然后加上 if s Is Not Nothing Then set rx=new regexp rx.pattern="([\da-z]+栋[\da-z]+单元覆盖[\da-z]+单元)" rx.ignorecase=true set mc=rx.execute(s) if mc.count>0 then response.write mc.item(0).submatches(0) end if set rx=nothing End If

[Dogfish]

另外，有on error设置有没有。如果有，去掉。