实例讲解ASP实现抓取网上房产信息(4)

'进行匹配 
Set Matches = objRegExp.Execute(strHTML) 

' 遍历匹配集合，并替换掉匹配的项目 
For Each Match in Matches 
strHtml=Replace(strHTML,Match.Value,"") 
Next 
RemoveHTML=strHTML 
Set objRegExp = Nothing 
set Matches=nothing
End Function 

%>



　　conn.asp

<%
'on error resume next
set conn=server.createObject("adodb.connection") 
con= "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("stest.mdb") 
conn.open con

sub connclose 
conn.close
set conn=nothing 
end sub
%>