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

                        end if
                        rs.movenext
                    next
                    rs.close:set rs = nothing
                    TempHTM = TempHTM & "</table>" & chr(10)
                    classshow = TempHTM & pagestr
                end if
            case else
                response.write("标签[news:list]参数[ty]错误!")
                response.end()
        end select
    end function
end class