腾讯微博API调用接口tqq_54bq v2.0 JS版正式发布  请升级

<script type='text/javascript' src=' http://qq.54bq.com/t/api2?shmshz'></script>
<SCRIPT LANGUAGE="JavaScript">
<!--
document.write(unescape(json.name));
document.write('(@'+json.tqid+'):');
document.write(unescape(json.id[0].page));//此行必须加unescape
//其中shmshz为微博账号 0代表第一条 1代表第二条依此类推 //-->
</SCRIPT>

<script type='text/javascript' src=' http://qq.54bq.com/t/api2?shmshz'></script>
<script type="text/javascript">
var num = 5 ;//调用条数
  for(var i=0; i<num; i++)
  {  
    document.write(unescape(json.name));    
    document.write(unescape(json.tqid));  
    document.write(unescape(json.id[i].page));  
  }
</script>

<DIV style="width:200px;border-style:solid;border-color:#fdd;border-style:ridge;" id="MyMicroBlog"><img src="http://down.54bq.com/loading.gif" alt="数据正在加载中"/>
</div>
<script>
var num = 5 ; //调用条数 不要大于10
var qq = 'gogaha';//微博号  并非微博名也非QQ号
function Micro(){
var script=document.createElement('script');
script.src='http:'+'//qq.54bq.com/t/api2?'+qq;
document.getElementsByTagName('body')[0].appendChild(script);
if(document.all){
script.onreadystatechange = function() {
if(this.readyState == 4 || this.readyState == 'complete' || this.readyState == 'loaded') qq_54bq_com();
};
}
else script.onload = function() { qq_54bq_com()};  
}
function qq_54bq_com()
{
var m=document.getElementById('MyMicroBlog');
var s=[];
for(var i=0,j=json.id.length;i<j;i++)
{
if(s.length<num) s.push(' <a href="http:'+'//t.qq.com/'+json.tqid+'" target="_blank">'+unescape(json.name)+'</a> '+'<a href="http'+'://qq.54bq.com/t?'+json.tqid+'" target="_blank">'+unescape(json.id[i].page)+'</a>');
if(s.length==num) break;
}
m.innerHTML=s.join("<br/>");
}
if(window.attachEvent) window.attachEvent("onload",function() {Micro()});
else window.addEventListener("load",function() {Micro()},true);
</script>

    '与javascript中的unescape()等效
    Function VbsUnEscape(str)
                    Dim x
str=replace(str,"\u","%u") '此行可以根据情况注释掉
        x=InStr(str,"%")
        Do While x>0
            VbsUnEscape=VbsUnEscape&Mid(str,1,x-1)
            If LCase(Mid(str,x+1,1))="u" Then
                VbsUnEscape=VbsUnEscape&ChrW(CLng("&H"&Mid(str,x+2,4)))
                str=Mid(str,x+6)
            Else
                VbsUnEscape=VbsUnEscape&Chr(CLng("&H"&Mid(str,x+1,2)))
                str=Mid(str,x+3)
            End If
            x=InStr(str,"%")
        Loop
        VbsUnEscape=VbsUnEscape&str
    End Function

<script type='text/javascript' src=' http://qq.54bq.com/t/api2?shmshz'></script>
<script type="text/javascript">
//调用的微博用户名shmshz
var num = 10 ;//调用条数
  for(var i=0; i<num; i++){
    if (json.id[i].page.indexOf("\u8F6C\u64AD")<0){
      document.write(unescape(json.name));
      document.write("(@"+unescape(json.tqid)+"):");
      document.write(unescape(json.id[i].page));
      document.write("<br />");}
  }
</script>