<% 'userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR") 'if userip="" then userip=Request.ServerVariables("REMOTE_ADDR") ' response.write userip 'response.end 'if not is_school then 'IF not(Session("KEY")="super" or session("KEY")="check" ) THEN 'response.write "" 'response.end 'end if filename=request("filename") H_filename=left(filename,7) down_pic_url="uploadpic/"&h_filename&"/"&md5(H_filename)&mid(filename,8) call download_pic(down_pic_url) response.end Function download_pic(File) File=server.mappath(File) temp = Split(File, "\") filename = temp(UBound(temp)) Set s = CreateObject("adodb.stream") s.mode = 3 s.Type = 1 s.Open s.loadfromfile(File) data = s.Read If IsNull(data) Then response.Write "\u7A7A" Else response.Clear Response.ContentType = "application/octet-stream" Response.AddHeader "Content-Disposition", "attachment; filename=" & filename response.binarywrite(data) End If Set s = Nothing 'response.redirect(file) End Function %>