<% Dim TUrl,Types,MyType TUrl = Request.QueryString("Url") Types = Split(TUrl,".") If UBound(Types)>=1 Then MyType = Types(UBound(Types)) Else MyType = "" End If Dim xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") '创建对象 xml.Open "GET",turl,False ' '设置对象, xml.Send '发送请求 Response.AddHeader "Content-Disposition", "attachment;filename=未知."&mytype '添加头给这个文件 Response.ContentType = "application/"&mytype '设置输出类型 Response.BinaryWrite xml.responseBody '输出二进制到浏览器 Set xml = Nothing %>