<% 
function getHTTPPage(url) 
dim http 
set http=createobject("MSXML2.XMLHTTP") 
Http.open "GET",url,false 
Http.send() 
if Http.readystate<>4 then  
exit function 
end if 
getHTTPPage=bytes2BSTR(Http.responseBody) 
set http=nothing 
if err.number<>0 then err.Clear  
end function 
'''''''以下處理字符 
Function bytes2BSTR(vIn) 
dim strReturn 
dim i,ThisCharCode,NextCharCode 
strReturn = "" 
For i = 1 To LenB(vIn) 
ThisCharCode = AscB(MidB(vIn,i,1)) 
If ThisCharCode < &H80 Then 
strReturn = strReturn & Chr(ThisCharCode) 
Else 
NextCharCode = AscB(MidB(vIn,i+1,1)) 
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
i = i + 1 
End If 
Next 
bytes2BSTR = strReturn 
End Function 
%> 

<% 
function qqhead(qq) 
url="http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no="&qq 
content=getHTTPPage(url) 
if len(content)>6360 then '如果QQ無效,做一些處理,避免錯誤發生. 
content=replace(mid(content,instr(content,"http://img.tencent.com"),38),"""","") 
qqhead="<a  
else 
qqhead="" 
end if 
end function