主页 > 知识库 > asp实现读取数据库输出json代码

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读取数据示例
  • javascript 循环读取JSON数据的代码
  • JSON 数据格式详解

标签:揭阳 攀枝花 海南 鹤岗 佛山 汕头 抚州 唐山

巨人网络通讯声明:本文标题《asp实现读取数据库输出json代码》,本文关键词  asp,实现,读取,数据库,输出,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《asp实现读取数据库输出json代码》相关的同类信息!
  • 本页收集关于asp实现读取数据库输出json代码的相关信息资讯供网民参考!
  • 推荐文章