Set S=server.CreateObject("Adodb.Stream") S.Mode=3 S.Type=1 S.Open S.LoadFromFile(server.mappath(forder&server.urlencode(filename)) Response.AddHeader "Content-Disposition", "attachment; filename="&filename Response.CharSet = "GB2312" Response.ContentType = "image/*" Response.BinaryWrite(S.Read) Response.Flush s.close set s=nothing
楼主这个也是不对的,好像不能获取真实IP的,VPN代理。