Crawl a Web page source code, you can use the inside of the component instead. It should be from the server.

server| Page | Source code on Error Resume Next
If Request ("ID") = "" Then
Response.Write "Enter QQ number: <form action=" "getpage.asp" "><input name=id><br><input type=" "Submit" " ></form> "
Else
url = "http://search.tencent.com/cgi-bin/friend/user_show_info?ln=" & Request ("ID")
Set inet = CreateObject ("Inetctls.inet")
inet. Requesttimeout = 200
inet. url = URL
strret = inet. OpenURL ()
Response.Write strret
If Err Then
Response.Write Err.Description
Err.Clear
End If
where = InStr (Strret, "nickname")
strret = Right (Strret,len (strret)-where)

where = InStr (Strret, "Http://img.tencent.com/face")
strret = Right (Strret,len (strret)-where+1)

where = InStr (Strret, "gif")
Strret = Left (strret,where+2)
Response.Write "End If