asp alexa查询小偷程序

也想出现在这里？点击联系我~

1. <%
2. '为了支持原创，请保留该处注释，谢谢！
3. '作者：草上飞
4. '获取主域名
5. FunctiongetDomainUrl(url)
6. tempurl=replace(url,"http://","")
7. ifinstr(tempurl,"/")>0then
8. tempurl=left(tempurl,instr(tempurl,"/")-1)
9. endIf
10. getDomainurl=tempurl
11. EndFunction
14. FunctionGetHttpPage(HttpUrl)
15. IfIsNull(HttpUrl)=TrueOrLen(HttpUrl)<18OrHttpUrl="$False$"Then
16. GetHttpPage="$False$"
17. ExitFunction
18. EndIf
19. DimHttp
20. SetHttp=server.createobject("MSXML2.XMLHTTP")
21. Http.open"GET",HttpUrl,False
22. Http.Send()
23. IfHttp.Readystate<>4then
24. SetHttp=Nothing
25. GetHttpPage="$False$"
26. Exitfunction
27. Endif
28. GetHTTPPage=Http.responseText
29. SetHttp=Nothing
30. IfErr.number<>0then
31. Err.Clear
32. EndIf
33. EndFunction
35. '==================================================
36. '函数名：ScriptHtml
37. '作用：过滤html标记
38. '参数：ConStr——要过滤的字符串
39. 'TagName——要过滤的标签
40. 'FType1表示过滤左边标签2表示过滤左右标签及中间的值3表示过滤左边标签和右边标签，保留内容。
41. '==================================================
42. FunctionScriptHtml(ByvalConStr,TagName,FType,includestr)
43. DimRe
44. SetRe=newRegExp
45. Re.IgnoreCase=true
46. Re.Global=True
47. SelectCaseFType
48. Case1
49. Re.Pattern="<"&TagName&"([^>])*("&includestr&"){1,}([^>])*>"
50. ConStr=Re.Replace(ConStr,"")
51. Case2
52. Re.Pattern="<"&TagName&"([^>])*("&includestr&"){1,}([^>])*>.*?</"&TagName&"([^>])*>"
53. 'response.writeconstr&"<br>"
54. ConStr=Re.Replace(ConStr,"")
55. 'response.writeserver.htmlencode(constr)&"<br>"
56. Case3
57. Re.Pattern="<"&TagName&"([^>])*("&includestr&"){1,}([^>])*>"
58. ConStr=Re.Replace(ConStr,"")
59. Re.Pattern="</"&TagName&"([^>])*>"
60. ConStr=Re.Replace(ConStr,"")
61. EndSelect
62. ScriptHtml=ConStr
63. SetRe=Nothing
64. EndFunction
66. '==================================================
67. '函数名：GetBody
68. '作用：截取字符串
69. '参数：ConStr——将要截取的字符串
70. '参数：StartStr——开始字符串
71. '参数：OverStr——结束字符串
72. '参数：IncluL——是否包含StartStr
73. '参数：IncluR——是否包含OverStr
74. '==================================================
75. FunctionGetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
76. IfConStr="$False$"orConStr=""orIsNull(ConStr)=TrueOrStartStr=""orIsNull(StartStr)=TrueOrOverStr=""orIsNull(OverStr)=TrueThen
77. GetBody="$False$"
78. ExitFunction
79. EndIf
80. DimConStrTemp
81. DimStart,Over
82. ConStrTemp=Lcase(ConStr)
83. StartStr=Lcase(StartStr)
84. OverStr=Lcase(OverStr)
85. Start=InStrB(1,ConStrTemp,StartStr,vbBinaryCompare)
86. 'response.writeStart&"<br>"&IncluL&"<br>"
87. 'response.end
88. IfStart<=0then
89. GetBody="$False$"
90. ExitFunction
91. Else
92. IfIncluL=FalseThen
93. Start=Start+LenB(StartStr)
94. EndIf
95. EndIf
96. Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)
97. 'response.writeOver
98. 'response.end
99. 'response.writeStart&""&Over&""&Over-Start
100. 'response.end
101. IfOver<=0OrOver<=Startthen
102. GetBody="$False$"
103. ExitFunction
104. Else
105. IfIncluR=TrueThen
106. Over=Over+LenB(OverStr)
107. EndIf
108. EndIf
110. GetBody=MidB(ConStr,Start,Over-Start)
111. 'response.writegetBody
112. 'response.end
113. EndFunction
115. '==================================================
116. '函数名：GetArray
117. '作用：提取链接地址，以$Array$分隔
118. '参数：ConStr——提取地址的原字符
119. '参数：StartStr——开始字符串
120. '参数：OverStr——结束字符串
121. '参数：IncluL——是否包含StartStr
122. '参数：IncluR——是否包含OverStr
123. '==================================================
124. FunctionGetArray(ByvalConStr,StartStr,OverStr,IncluL,IncluR)
125. IfConStr="$False$"orConStr=""OrIsNull(ConStr)=TrueorStartStr=""OrOverStr=""orIsNull(StartStr)=TrueOrIsNull(OverStr)=TrueThen
126. GetArray="$False$"
127. ExitFunction
128. EndIf
129. DimTempStr,TempStr2,objRegExp,Matches,Match
130. TempStr=""
131. SetobjRegExp=NewRegexp
132. objRegExp.IgnoreCase=True
133. objRegExp.Global=True
134. objRegExp.Pattern="("&StartStr&").+?("&OverStr&")"
135. SetMatches=objRegExp.Execute(ConStr)
136. ForEachMatchinMatches
137. TempStr=TempStr&"$Array$"&Match.Value
138. Next
139. SetMatches=nothing
141. IfTempStr=""Then
142. GetArray="$False$"
143. ExitFunction
144. EndIf
145. TempStr=Right(TempStr,Len(TempStr)-7)
146. IfIncluL=Falsethen
147. objRegExp.Pattern=StartStr
148. TempStr=objRegExp.Replace(TempStr,"")
149. Endif
150. IfIncluR=Falsethen
151. objRegExp.Pattern=OverStr
152. TempStr=objRegExp.Replace(TempStr,"")
153. Endif
154. SetobjRegExp=nothing
155. SetMatches=nothing
157. IfTempStr=""then
158. GetArray="$False$"
159. Else
160. GetArray=TempStr
161. Endif
162. EndFunction
164. FunctiongetAlexaRank(weburl)
165. tempurl=getDomainUrl(weburl)
166. '读取http://client.alexa.com/common/css/scramble.css中的数据
167. alexacss="http://client.alexa.com/common/css/scramble.css"
168. strAlexaCss=GetHttpPage(alexacss)
169. 'response.writestrAlexaCss
170. 'response.end
171. alexarankqueryurl="http://www.alexa.com/data/details/traffic_details/"&tempurl
173. strAlexaContent=GetHttpPage(alexarankqueryurl)
175. rankcontent=getBody(strAlexaContent,"InformationService.–>","<!–google_ad_section_end(name=default)–>",false,false)
176. '获取其中的span的class
177. strspan=GetArray(rankcontent,"<spanclass=""","""",false,false)
178. 'response.writerankcontent&"<br>"
179. 'response.writestrspan&"<br>"
180. 'response.end
181. Ifstrspan<>"$False$"Then
182. aspan=split(strspan,"$Array$")
184. Fori=0ToUBound(aspan)
185. 'response.write"."&aspan(i)
186. '判定aspan(i)即span的class是否在alexacss中存在，如果存在，则需要将这个span和span中的数据去掉。
187. IfInStr(strAlexaCss,"."&aspan(i))>=1Then
188. 'response.writeaspan(i)&"<br>"
189. 'response.end
190. '表示属性为none.需要替换掉。
191. rankcontent=ScriptHtml(rankcontent,"span",2,aspan(i))
192. Else
193. rankcontent=ScriptHtml(rankcontent,"span",1,aspan(i))
194. Endif
195. Next
196. '替换上面少去掉的右边的span标签。
197. rankcontent=Replace(rankcontent,"</span>","")
200. EndIf
201. Ifrankcontent="$False$"Then
202. rankcontent="NoData"
203. Endif
204. getAlexaRank=Replace(rankcontent,",","")
206. EndFunction
207. url=request.querystring("url")
208. %>
210. <formname="alexaform"method=get>
211. 输入网址:<inputtype=""name="url"value="<%=url%>"size=40><inputtype="submit"value="查询">
212. </form>
213. <%
214. Ifurl<>""Then
216. response.write"您的网站在ALEXA的排名为："
217. response.flush
218. rank=getAlexaRank(url)
219. response.writerank
220. Endif
221. %>