if openDataBase() then
    Dim Rs
    Set Rs=Server.CreateObject("ADODB.Recordset")
    Rs.Open "Select * FROM Table_WebUserImage",Conn,1,3
    
    while NOT Rs.EOF  '1:明明循环两次却只显示一张为什么
        'Response.ContentType   =   "image/*" '2:这行不避调就会显示乱码为什么
        Response.BinaryWrite (Rs("ImageContent").getChunk(8000000))
        Rs.movenext
    Wend
    Rs.close()
    Set Rs=nothing
    
    Conn.close()
    Set Conn=nothing
end if

'而且还有个问题就是为什么使用Response.Write()就会乱码了.应该怎么办~? 

THank[em8]