path = file&"/p-"&page&".jpg"
'response.write(page)
'response.end


img=lcase(path)
'统计或者判断来源的代码
Set S=server.CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
S.Open
S.LoadFromFile(server.mappath(img))
Response.ContentType="image/jpeg"
Response.BinaryWrite(S.Read)
Response.Flush
s.close
set s=nothing