asp实现读取数据库输出json代码

复制代码 代码如下:
Function GetTable(Table,Where,Order,OrderSort,curpage, pagesize,MiniJson)
'Author : nigou
'使用方法 : Response.WrITe GetTable(Table表名,Where条件,Order主键(必须),OrderSort(asc,desc),curpage当前页, pagesize每页条数,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

PS：最后的参数是针对miniUI开发的,可以无视

以上就是本文的全部内容了，希望大家能够喜欢。

• js读取json文件片段中的数据实例
• 使用MSScriptControl 在 C# 中读取json数据的方法
• Android通过json向MySQL中读写数据的方法详解【读取篇】
• 如何使用ajax读取Json中的数据
• PHP读取mssql json数据中文乱码的解决办法
• Android App中读取XML与JSON格式数据的基本方法示例
• js读取并解析JSON类型数据的方法
• Android中Json数据读取与创建的方法
• python读取json文件并将数据插入到mongodb的方法
• litjson读取数据示例
• @L_304_11@
• JSON 数据格式详解

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！