Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
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
%>
附：抓取信息的详细页面事例
|
总序列号： |
479280 |
|
信息类别： |
出租 |
|
所在城市： |
济南 |
|
房屋具体位置： |
华龙路华信路交界口 |
|
房屋类型： |
其他 |
|
楼层： |
六层 |
|
使用面积： |
24～240 平方米之间 |
|
房价： |
0 [租赁:元/月,买卖:万元/套] |
|
其他说明： |
华信商务楼3至6层小空间对外出租（0.5元/平起），本楼属纯商务办公投资使用，可用于办公写字间，周边设施齐全、交通便利（37、80、K95在本楼前经过），全产权、市证，楼内设施包括水、电、暖、电梯设施齐全，有意者可电讯！ 内容版权声明：除非注明，否则皆为本站原创文章。 |