Function GetTable(Table,Where,Order,OrderSort,curpage, pagesize,MiniJson)
'Author : nigou
'使用方法 : Response.Write GetTable(Table表名,Where條件,Order主鍵(必須),OrderSort(asc,desc),curpage當(dāng)前頁(yè), pagesize每頁(yè)條數(shù),MiniJson是否輸出為miniUI格式)
'
    dim i, j ,rs
    if OrderSort="" Then OrderSort="asc"
    if Where="" Then Where="asc"
    Set Rs=Server.CreateObject("adodb.recordset")
    if curpage>1 then
        TmpSql="select a.* from ( select top  " (curpage) * pagesize " * from " Table " where " where  " order by " Order " " OrderSort ") a left join ( select top " (curpage-1) * pagesize  " * from " Table "  where " where  " order by " Order " " OrderSort ") b on a." Order "=b." Order " where iif(b." Order ",'0','1')='1'"
    else
        TmpSql="select a.* from ( select top  " (curpage) * pagesize " * from " Table " where " where  " order by " Order " " OrderSort ") a "
    end if
    if pagesize=0 Then TmpSql = "select * from " Table
        Rs.open TmpSql,conn,1,1
        RealSize=Rs.recordcount
        for i=0 to Rs.recordcount-1
            TmpJson= TmpJson "{"
            for j=0 to Rs.fields.count-1
                TmpJson= TmpJson """" (Rs.fields(j).name) """ : "            
                TmpJson= TmpJson """" Rs(j) """"
                if jRs.fields.count-1 then TmpJson= TmpJson " , "
            next
            TmpJson= TmpJson " }"
            if iRs.recordcount-1 then TmpJson= TmpJson ","
            TmpJson= TmpJson vbcrlf
            rs.movenext
        next
        Rs.close
    if MiniJson=1 Then
        CountSql="select count(" order ") from " Table " where " where
        Rs.open CountSql,Conn,1,1
        Counts=Rs(0)
        Rs.Close
        GetTable=ToMiniUi(TmpJson,Counts)
    Else
        GetTable=toJson(TmpJson)
    end if
    Set Rs=nothing
End Function
function toJson(JsonStr)
    toJson="[" vbcrlf JsonStr vbcrlf "]"
end function
Function ToMiniUi(JsonStr,total)
    ToMiniUI="{"
    ToMiniUI=ToMiniUI """total"":"" " total """," vbcrlf
    ToMiniUI=ToMiniUI """data"": [" JsonStr
    ToMiniUI=ToMiniUI "]}"
End Function