<%
'on error resume next
url = "http://www.taotao.com/cgi-bin/msgMgr?type=3&num=1&qq=156888120"'这里填写你的QQ号
Set http=Server.CreateObject("MSXML2.XMLHTTP")'Msxml2.XMLHTTP Microsoft.XMLHTTP MSXML2.ServerXMLHTTP
http.Open "GET",url,false
http.send
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=true
xml.ValidateOnParse=False
xml.Load(http.ResponseXML)

If xml.ReadyState>2 Then
 if xml.parseError.errorCode <> 0 then
 response.write "错误：读取数据失败"
 response.write xml.parseerror.errorcode
 response.write xml.parseerror.reason
 response.End()
 end if

 dim taotao_string,taotao_Array
 taotao_string=""
 taotao_Array = Array("网页", "QQ机器人", "QQ空间", "QQ签名", "短信", "手机上网", "MSN机器人", "MSN签名", "手机QQ", "彩信", "订阅", "", "QQ状态")

 Set ml=xml.getElementsByTagName("ml")
 if isnull(xml.getElementsByTagName("ml") ) then
  response.Write("读取失败")
  response.End()
 else
  For i=0 To (ml.Length-1)
   Set taotao_cn=ml.Item(i).getElementsByTagName("cn")
   Set taotao_t=ml.Item(i).getElementsByTagName("t")
   Set taotao_sr=ml.Item(i).getElementsByTagName("sr")
   Response.write(taotao_cn)
   taotao_string =taotao_string + "<span style=""display:block"">"&taotao_cn.text&" 通过 "&imt_LJ(taotao_t.Text)&taotao_Array(taotao_sr.Text)&"</span>"
  Next
 end if
 response.write taotao_string
End If
Set http=Nothing
Set xml=Nothing

Function imt_LJ(taotao_t)
    Set imt_taotao_t_array=Split(",",taotao_t)
    Set n = imt_taotao_t_array(0)
    Set v = imt_taotao_t_array(0)
    taotao_t = ""
 Select Case n
  case "1"
   taotao_t = "约 " & v & " 秒前"
  case "2"
   taotao_t = "约 " & v & " 分钟前"
  case "3"
   taotao_t = "约 " & v & " 小时前"
  case "4"
   taotao_t = "约 1 天前"
  case "5"
   taotao_t = "约 3 天前"
  case "6"
   taotao_t = "约 1 周前"
  case "7"
   taotao_t = v
 End Select
 imt_LJ=taotao_t
End Function
%>