关于调用alexa的排名
来源:百度知道 编辑:UC知道 时间:2024/03/29 08:51:57
http://www.jzpu.com/
我想做一个类似这样的网站,但不知道,怎么调用出这种排名,望高手指教.
如悬赏分 不够可以继续加.
如果有解决方法的话,请附代码,不要忽悠,只要方法有效,一定有另外加高分相赠!
谢谢各位网友的帮助.不过我还是不有些不明白或者是做不出业.希望哪位能把文件发我邮箱里.nait_thl@163.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