抓取一个网页的源代码，可以用里面的组件代替。应该是2000 server自带的

on error resume next
if request("id")="" then
    response.write "输入qq号：<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,"昵 称")
    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 "<img src=""" & strret & """>"
end if