• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

复制代码 代码如下:

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 j<Rs.fields.count-1 then TmpJson= TmpJson & " , "
            next
            TmpJson= TmpJson & " }"
            if i<Rs.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开发的,可以无视

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


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
JScript中遍历Request表单参数集合的方法发布时间:2022-02-05
下一篇:
asp实现获取MSSQL数据库表指定条件行数的函数发布时间:2022-02-05
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap