function makeindex(FileNameA,FileNameB)
    FilePath = Server.MapPath("/")&"\"&FileNameA
    strUrl = "http://"&Request.ServerVariables("SERVER_NAME")&"/"&FileNameB
    'response.write strUrl&"生成---"&FileNameA&"<br>"
    '创建objXmlHttp
    dim objXmlHttp,binFileData,objAdoStream
    set objXmlHttp = Server.CreateObject("Micro"&"soft"&".XML"&"HT"&"TP")'加"&"加"&"防止误杀
    'set objXmlHttp = CreateObject("MSXML2.ServerXMLHTTP")'加"&"加"&"防止误杀
        'objXmlHttp.open "GET",strUrl,false
        objXmlHttp.open "POST",strUrl,false
        objXmlHttp.send()
    '
    binFileData = objXmlHttp.responseBody
    set objXmlHttp = nothing
    '创建objAdoStream
    set objAdoStream = Server.CreateObject("AD"&"ODB"&".Str"&"eam")'加"&"防止误杀
        objAdoStream.Type = 1
        objAdoStream.Open()
        objAdoStream.Write(binFileData)
        objAdoStream.SaveToFile FilePath,2
        objAdoStream.Close()
    set objAdoStream = nothing
end function