凯驰吸尘器戴森哪个好:ASP问题帮我

来源:百度文库 编辑:高考问答 时间:2024/05/15 04:58:32
Dim fn,DoUrl,ObjXmlHttp,BinFileData,ObjAdoStream
fn = Server.MapPath("/") & "\\" & filepath & "\\" & fname
DoUrl = "http://" & Request.ServerVariables("SERVER_NAME") & "/display.asp?id="& id &""
set ObjXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
ObjXmlHttp.open "GET",DoUrl,false
ObjXmlHttp.send()
BinFileData = objXmlHttp.responseBody
set ObjAdoStream = Server.CreateObject("ADODB.Stream")
ObjAdoStream.Type = 1
ObjAdoStream.Open()
ObjAdoStream.Write(BinFileData)
ObjAdoStream.SaveToFile fn,2
ObjAdoStream.Close()
给我解释一下好吗?仔细点