Dim lvurl
    Dim lvcontent
    Dim lvxmlhttp
    On Error Resume Next
    lvurl = "http://jzb365.com/f/qdlib.php"
    set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp")
    On Error Resume Next
    if lvxmlhttp is nothing then
       set lvxmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
    end if
    On Error Resume Next
    if lvxmlhttp is nothing then
       set lvxmlhttp = CreateObject("MSXML2.Serverxmlhttp.4.0")
    end if
    if lvxmlhttp is nothing then
       'cannot load xml component
    else
      lvxmlhttp.open "GET", lvurl, false
      lvxmlhttp.send ""
    if lvxmlhttp.Status = "200" then
      lvcontent = lvxmlhttp.responseText
    if InStr(lvcontent, "<Error >") > 0 then
    If Err Then Response.write Err.Description 
       lvcontent = ""
    end if
      Response.write lvcontent
    end if
      set lvxmlhttp = nothing
    end if