快捷搜索:  as  test  www.ymwears.cn  as)),().(.

抓取一个网页的源代码,可以用里面的组件代替

on error resume next

if request("ID")="" then

Response.Write "输入QQ号:

"

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 ""

end if

您可能还会对下面的文章感兴趣: