<% sPath = Server.MapPath("120109.vcs") ContentType = "application/x-msdownload" Response.Buffer = True Const adTypeBinary = 1 Response.Clear Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile(sPath) ContentType = "application/octet-stream" Response.AddHeader "content-disposition","attachment; filename=120109.vcs" Response.Charset = "UTF-8" Response.ContentType = ContentType Response.BinaryWrite objStream.Read Response.Flush objStream.Close Set objStream = Nothing %>