asp alexa查询小偷程序

关于草上飞所著的Alexa小偷程序学习指南：轻松掌握其原理并编写自己的版本

亲爱的朋友们，你是否对那些充满神秘色彩的编程技术充满好奇？今天，我们将一起一个引人入胜的主题——Alexa小偷程序。你是否知道，通过学习这个相对简单的程序，你可以轻松掌握其原理，并很快编写出自己的版本呢？接下来，让我们一起深入了解这个程序的工作原理吧！

我们来了解一下如何获取主域名。在编程过程中，获取主域名是一个非常重要的步骤。为此，草上飞提供了一个非常实用的函数——getDomainUrl。这个函数可以帮助我们轻松地从给定的URL中提取出主域名。通过替换URL中的协议头（

接下来，我们要学习的是如何获取HTTP页面的内容。草上飞为我们提供了一个名为GetHttpPage的函数，它可以帮助我们获取指定URL的页面内容。这个函数首先检查传入的URL是否有效，然后创建一个HTTP对象来发送GET请求并获取响应内容。这个过程涉及到一些基本的网络编程知识，但通过学习草上飞的代码，你可以轻松掌握这些知识。

我们来谈谈如何处理HTML标记。在获取网页内容后，我们通常需要对其进行处理以提取有用的信息。草上飞提供了一个名为ScriptHtml的函数，它可以帮助我们过滤HTML标记。这个函数接受三个参数：要过滤的字符串、要过滤的标签类型以及过滤方式（如只过滤标签、过滤标签及其内容等）。通过学习这个函数的工作原理，你可以轻松掌握如何处理HTML标记，并从中提取出有用的信息。

Alexa小偷程序虽然听起来很神秘，但实际上它的原理非常简单易懂。通过学习草上飞的代码，你可以轻松掌握这个程序的原理，并很快编写出自己的版本。这个过程将让你对编程有更深入的了解，并提升你的编程技能。如果你对这个话题感兴趣，不妨深入学习一下草上飞的代码，相信你会有所收获！根据您的要求，我为您重新写了一些函数脚本，保持原文风格的增加了内容的生动性和吸引力。

首先是 Function ScriptHtml 函数，用于处理 HTML 标签：

```plaintext

Function ScriptHtml(ByVal ConStr, TagName, FType, includestr)

Dim Re

Set Re = New RegExp

Re.IgnoreCase = True

Re.Global = True

Select Case FType

Case 1

Re.Pattern = "<" & TagName & "([^>])(" & includestr & "){1,}([^>])>"

ConStr = Re.Replace(ConStr, "")

Case 2

Re.Pattern = "<" & TagName & "([^>])(" & includestr & "){1,}([^>]).?])>"

ConStr = Re.Replace(ConStr, "")

Case 3

Re.Pattern = "<" & TagName & "([^>])(" & includestr & "){1,}([^>])>"

ConStr = Re.Replace(ConStr, "")

Re.Pattern = "])>"

ConStr = Re.Replace(ConStr, "")

End Select

ScriptHtml = ConStr

Set Re = Nothing

End Function

```

接下来是 GetBody 函数，用于截取字符串：

```plaintext

Function GetBody(ConStr, StartStr, OverStr, IncluL, IncluR)

If ConStr = "$False$" Or ConStr = "" Or IsNull(ConStr) = True Or StartStr = "" Or IsNull(StartStr) = True Or OverStr = "" Or IsNull(OverStr) = True Then

GetBody = "$False$"

Exit Function

End If

Dim ConStrTemp, Start, OverTemp

ConStrTemp = LCase(ConStr)

StartStr = LCase(StartStr)

OverStr = LCase(OverStr)

Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)

If Start <= 0 Then

GetBody = "$False$"

Exit Function

Else

If IncluL = False Then Start = Start + LenB(StartStr) End If

End If

OverTemp = InStrB(Start, ConStrTemp, OverStr, vbBinaryCompare)

If OverTemp <= 0 Or OverTemp <= Start Then GetBody = "$False$" Else GetBody = MidB(ConStr, Start, OverTemp - Start) End If

End Function

```

再次是 GetArray 函数，用于提取链接地址：

```plaintext

Function GetArray(ByVal ConStr, StartStr, OverStr, IncluL, IncluR)

If ConStr = "$False$" Or ConStr = "" Or IsNull(ConStr) = True Or StartStr = "" Or OverStr = "" Or IsNull(StartStr) = True Or IsNull(OverStr) = True Then GetArray="$False$"; Exit Function End If

Dim TempStr, TempStr2, objRegExp, Matches

Set objRegExp = New RegExp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern ="("& StartStr ").+?("& OverStr ")"

Set Matches = objRegExp.Execute(ConStr)

For Each Match in Matches TempStr=TempStr & "$Array$" & Match.Value Next Set Matches=nothing

If TempStr="" Then GetArray="$False$"; Exit Function End If TempStr=Right(TempStr,Len(TempStr)-7)

```vbnet

If InStr(strAlexaCss, "." & aspan(i)) >= 1 Then

'检测到某个元素包含特定的标识符，进行处理

'以下是处理流程，包括替换属性为none的操作

rankcontent = ScriptHtml(rankcontent, "span", 2, aspan(i))

Else

rankcontent = ScriptHtml(rankcontent, "span", 1, aspan(i))

End If

Next

'修正标签，去除多余的span标签的结束标识

rankcontent = Replace(rankcontent, "", "")

End If

'如果排名内容显示为假值，则将其替换为"无数据"的提示信息

If rankcontent = "$False$" Then

rankcontent = "No Data"

End if

getAlexaRank = Replace(rankcontent, ",", "")

'构建表单用于输入并查询ALEXA排名

url = request.querystring("url")

%>

输入： 

<%

If url <> "" Then

response.write "您的网站在ALEXA的排名为"

response.flush

rank = getAlexaRank(url)

response.write rank & "
" '添加换行提示，使显示更加友好

End if %>

```