<script src="../inc_script/article_ads_view_250x180.js"></script>
| 把下面代碼另存爲一個.htm文件就行了。
<script language=vbscript> Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False, "", "" .Send GetURL = .ResponseText End With Set Retrieval = Nothing End Function </script>
小圖標: <script language=vbscript> Dim T,Start,Length,PicURL T=GetURL("http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no=1924192") Start=Instr(1,T,"ShowResult("+chr(34)) Start=Instr(Start,T,"http://") Length=Instr(Start,T,chr(34)+","+chr(34))-Start PicURL=Mid(T,Start,Length) 'document.write "<img src='"&PicURL&"'>" document.write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=1924192 target=_blank title=QQ:1924192><img src="&PicURL&" width=16 height=16 border=0></a>" </script>
<br> 大圖標: <script language=vbscript> Dim T,Start,Length,PicURL T=GetURL("http://search.tencent.com/cgi-bin/friend/user_show_info?ln=1924192") Start=Instr(1,T,"img height=32") Start=Instr(Start,T,"http://") Length=Instr(Start,T,chr(34)+" width=32")-Start PicURL=Mid(T,Start,Length) 'document.write "<img src='"&PicURL&"'>" document.write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=1924192 target=_blank title=QQ:66901684><img src="&PicURL&" width=32 height=32 border=0></a>" </script>
|