asp常用函数集合，非常不错以后研究第1/4页(19)

                    if l = rs.pagesize then
                        TempHTM = TempHTM & "</tr>" & chr(10)
                    else
                        if cint(l mod scolumn) = 0 then
                            TempHTM = TempHTM & "</tr>" & chr(10)
                            TempHTM = TempHTM & "<tr>" & chr(10)
                        end if
                    end if
                    rs.movenext
                next
                rs.close:set rs = nothing
                TempHTM = TempHTM & "</table>" & chr(10)
                classshow = TempHTM & pagestr
            case "image"
                if IsObjInstalled("persits.jpeg") = true and jpeg_gate = 0 then
                    set rs = server.createobject("adodb.recordset")
                    if order = "desc" then
                        sql = "select classid,title,bimg,filename,addtime from NCMS_news where classid in(" & classid & allchildclass(classid) & ") and isimg=1 and created=1 and pagetype=0 order by id desc"