|
next CBFLinux联盟
function RemoveTag(body) CBFLinux联盟
CBFLinux联盟
Set regEx = New RegExp CBFLinux联盟
regEx.Pattern = "<[a].*?<\/[a]>" CBFLinux联盟
regEx.IgnoreCase = True CBFLinux联盟
regEx.Global = True CBFLinux联盟
Set Matches = regEx.Execute(body) CBFLinux联盟
dim i,arr(15),ifexit CBFLinux联盟
i=0 CBFLinux联盟
j=0 CBFLinux联盟
For Each Match in Matches CBFLinux联盟
TempStr = Match.Value CBFLinux联盟
TempStr=replace(TempStr,"<td>","") CBFLinux联盟
TempStr=replace(TempStr,"</td>","") CBFLinux联盟
TempStr=replace(TempStr,"<tr>","") CBFLinux联盟
TempStr=replace(TempStr,"</tr>","") CBFLinux联盟
arr(i)=TempStr CBFLinux联盟
i=i+1 CBFLinux联盟
if(i>=15) then CBFLinux联盟
exit for CBFLinux联盟
end if CBFLinux联盟
Next CBFLinux联盟
Set regEx=nothing CBFLinux联盟
Set Matches =nothing CBFLinux联盟
RemoveTag=arr CBFLinux联盟
CBFLinux联盟
end function CBFLinux联盟
function RegexHtml(body) CBFLinux联盟
dim r_arr(47),r_temp CBFLinux联盟
Set regEx2 = New RegExp CBFLinux联盟
regEx2.Pattern ="<a.*?<\/a>" CBFLinux联盟
regEx2.IgnoreCase = True CBFLinux联盟
regEx2.Global = True CBFLinux联盟
Set Matches2 = regEx2.Execute(body) CBFLinux联盟
iii=0 CBFLinux联盟
For Each Match in Matches2 CBFLinux联盟
CBFLinux联盟
r_arr(iii)=Match.Value CBFLinux联盟
CBFLinux联盟
iii=iii+1 CBFLinux联盟
Next CBFLinux联盟
RegexHtml=r_arr CBFLinux联盟
set regEx2=nothing CBFLinux联盟
set Matches2=nothing CBFLinux联盟
end function CBFLinux联盟
'================================ CBFLinux联盟
CBFLinux联盟
conn.close CBFLinux联盟
set conn=nothing CBFLinux联盟
%> CBFLinux联盟
</body> CBFLinux联盟
</html> CBFLinux联盟
CBFLinux联盟
CBFLinux联盟
CBFLinux联盟
CBFLinux联盟
function.asp CBFLinux联盟
CBFLinux联盟
<% CBFLinux联盟
'************************************************** CBFLinux联盟
'函数名：gotTopic CBFLinux联盟
'作 用：截字符串，汉字一个算两个字符，英文算一个字符 CBFLinux联盟
'参 数：str ----原字符串 CBFLinux联盟
' strlen ----截取长度 CBFLinux联盟
'返回值：截取后的字符串 CBFLinux联盟
'************************************************** CBFLinux联盟
function gotTopic(str,strlen) CBFLinux联盟
if str="" then CBFLinux联盟
gotTopic="" CBFLinux联盟
exit function CBFLinux联盟
end if CBFLinux联盟
dim l,t,c, i CBFLinux联盟
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<") CBFLinux联盟
str=replace(str,"?","") CBFLinux联盟
l=len(str) CBFLinux联盟
t=0 CBFLinux联盟
for i=1 to l CBFLinux联盟
c=Abs(Asc(Mid(str,i,1))) CBFLinux联盟
if c>255 then CBFLinux联盟
t=t+2 CBFLinux联盟
else CBFLinux联盟
t=t+1 CBFLinux联盟
end if CBFLinux联盟
if t>=strlen then CBFLinux联盟
gotTopic=left(str,i) & "…" CBFLinux联盟
exit for CBFLinux联盟
else CBFLinux联盟
gotTopic=str CBFLinux联盟
end if CBFLinux联盟
next CBFLinux联盟
gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<") CBFLinux联盟
end function CBFLinux联盟
'==================================== CBFLinux联盟
'函数：RemoveHTML(strHTML) CBFLinux联盟
'功能：去除HTML标记 CBFLinux联盟
'参数：strHTML --要去除HTML标记的字符串 CBFLinux联盟
'==================================CBFLinux联盟
Function RemoveHTML(strHTML) CBFLinux联盟
Dim objRegExp, Match, Matches CBFLinux联盟
Set objRegExp = New Regexp CBFLinux联盟
CBFLinux联盟
objRegExp.IgnoreCase = True CBFLinux联盟
objRegExp.Global = True CBFLinux联盟
'取闭合的<> CBFLinux联盟
objRegExp.Pattern = "<.+?>" CBFLinux联盟
'进行匹配 CBFLinux联盟
Set Matches = objRegExp.Execute(strHTML) CBFLinux联盟
CBFLinux联盟
' 遍历匹配集合，并替换掉匹配的项目 CBFLinux联盟
For Each Match in Matches CBFLinux联盟
strHtml=Replace(strHTML,Match.Value,"") CBFLinux联盟
Next CBFLinux联盟
RemoveHTML=strHTML CBFLinux联盟
Set objRegExp = Nothing CBFLinux联盟
set Matches=nothing CBFLinux联盟
End Function CBFLinux联盟
CBFLinux联盟
%> CBFLinux联盟
CBFLinux联盟
CBFLinux联盟
CBFLinux联盟
conn.asp CBFLinux联盟
CBFLinux联盟
<% CBFLinux联盟
'on error resume next CBFLinux联盟
set conn=server.CreateObject("adodb.connection") CBFLinux联盟
con= "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("stest.mdb") CBFLinux联盟
conn.open con CBFLinux联盟
CBFLinux联盟
sub connclose CBFLinux联盟
conn.close CBFLinux联盟
set conn=nothing CBFLinux联盟
end sub CBFLinux联盟
%> CBFLinux联盟
CBFLinux联盟
CBFLinux联盟
CBFLinux联盟
附：抓取信息的详细页面事例 CBFLinux联盟
CBFLinux联盟
总序列号： CBFLinux联盟
479280 CBFLinux联盟
CBFLinux联盟
信息类别： 出租 CBFLinux联盟
CBFLinux联盟
所在城市： 济南 CBFLinux联盟
CBFLinux联盟
房屋具体位置： 华龙路华信路交界口 CBFLinux联盟
CBFLinux联盟
房屋类型： 其他 CBFLinux联盟
CBFLinux联盟
楼层： 六层 CBFLinux联盟
CBFLinux联盟
使用面积： 24～240 平方米之间 CBFLinux联盟
CBFLinux联盟
房价： 0 [租赁:元/月,买卖:万元/套] CBFLinux联盟
CBFLinux联盟
其他说明： 华信商务楼3至6层小空间对外出租（0.5元/平起），本楼属纯商务办公投资使用，可用于办公写字间，周边设施齐全、交通便利（37、80、K95在本楼前经过），全产权、市证，楼内设施包括水、电、暖、电梯设施齐全，有意者可电讯！ CBFLinux联盟
CBFLinux联盟
联系人： 鲁、王 CBFLinux联盟
CBFLinux联盟
联系方式： 88017966、86812217 CBFLinux联盟
CBFLinux联盟
信息来源： 2005-8-4 8:28:55 来自：218.98.86.175 CBFLinux联盟
CBFLinux联盟
点击次数： 19 CBFLinux联盟
CBFLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
