[asp]阿里西西的alexa采集效果代码(5)

日期：2020-05-13 栏目：程序人生浏览：次

end if
xRank = replace(xRank,"+","")
xRank = replace(xRank,"-","")
xRank = Comma(xRank)

xChild = CHILD.attributes(0).value
xReach = REACH.attributes(0).value

Public Function RemoveHtml(byval strContent)
    Dim objReg ,strTmp
    If strContent="" OR ISNull(strContent) Then Exit Function

    Set objReg=new RegExp
    objReg.IgnoreCase =True
    objReg.Global=True
    objReg.Pattern="<(.[^>]*)>"
    strTmp=objReg.Replace(strContent, "")
    Set objReg=Nothing
    RemoveHtml=strTmp
    strTmp=""
End Function

Dim SitePic
Dim pm6,pm3,pm1,pday15,pday7
Dim tmp1
Dim t_arr
Dim t_day,t_wk1,t_m3,t_m3_change

pm6 = "http://traffic.alexa.com/graph?w=700&h=280&r=6m&y=t&u="&Domain
pm3 = "http://traffic.alexa.com/graph?w=700&h=280&r=3m&y=t&u="&Domain
pm1 = "http://traffic.alexa.com/graph?w=700&h=280&r=1m&y=t&u="&Domain
pday15 = "http://traffic.alexa.com/graph?w=700&h=280&r=15.0m&y=t&u="&Domain
pday7 = "http://traffic.alexa.com/graph?w=700&h=280&r=7.0m&y=t&u="&Domain

set tnames = request.cookies("dnames")
if isnull(tnames) or len(trim(tnames))=0 then
    tnames = domain&"|"
else
    if instr(tnames,domain)>0 then
        names = replace(tnames,domain&"|","")
    else
        tnames = domain&"|"&tnames
    end if
end If

ttnames = split(tnames,"|")
tmpncontent = ""

if ubound(ttnames)>5 then
    for tat=0 to 4
        tmpncontent = tmpncontent&ttnames(tat)&"|"
    next
else
    tmpncontent=tnames
end If

response.cookies("dnames") = trim(tmpncontent)
response.cookies("dnames").expires = now()+1

%>

<html>
<head>
<title>黑区网络alexa查询系统,alexa排名查询,alexa网站排名查询,全球alexa排名查询,alexa世界排名查询,alexa排名,alexa工具条,alexa traffic rank,<%=SiteTitle%>，<%=domain%>的Alexa排名查询</title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META http-equiv="Content-Language" content="gb2312">

转载注明出处：http://www.heiqu.com/2438.html

[asp]阿里西西的alexa采集效果代码(5)

相关推荐