关于调用alexa的排名

来源:百度知道 编辑:UC知道 时间:2024/03/29 08:51:57
http://www.jzpu.com/
我想做一个类似这样的网站,但不知道,怎么调用出这种排名,望高手指教.

如悬赏分 不够可以继续加.
如果有解决方法的话,请附代码,不要忽悠,只要方法有效,一定有另外加高分相赠!

谢谢各位网友的帮助.不过我还是不有些不明白或者是做不出业.希望哪位能把文件发我邮箱里.nait_thl@163.com

用ASP程序调用Alexa世界排名的代码<%

Private Function bytes2BSTR(vIn)

Dim i, ThischrCode, NextchrCode

strReturn = ""

For i = 1 To LenB(vIn)

ThischrCode = AscB(MidB(vIn, i, 1))

If ThischrCode < &H80 Then

strReturn = strReturn & Chr(ThischrCode)

Else

NextchrCode = AscB(MidB(vIn, i + 1, 1))

strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))

i = i + 1

End If

Next

bytes2BSTR = strReturn

End Function

Function Geturl(/url)

Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "GET", url, False, "", ""

.Send

GetURL = .ResponseText

GetURL = bytes2BSTR(.Responsebody)

End With

Set Retrieval = Nothing

End Function

'以上是使用x