您正在使用IPV4(3.92.28.52)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】爆款1核2G云服务器首年48元,还有iPad Pro、Bose耳机、京东卡等你来抽!      
虚位以待
2021年 冬至节 20
2021年 圣诞节 24
2022年 元 旦 31
2022年 春 节 62
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    asp实现读取数据库输出json代码
    内容摘要: FunctionGetTable(Table,Where,Order,OrderSort,curpage,pagesize,MiniJson)'Author:nigou'使用方法:Response.WriteGetTable(Table表名,Where条件,Order主键(必须),OrderSort(asc,desc),curpage当前页,pagesize......
    FunctionGetTable(Table,Where,Order,OrderSort,curpage,pagesize,MiniJson)

    'Author:nigou

    '使用方法:Response.WriteGetTable(Table表名,Where条件,Order主键(必须),OrderSort(asc,desc),curpage当前页,pagesize每页条数,MiniJson是否输出为miniUI格式)

    '

    dimi,j,rs

    ifOrderSort=""ThenOrderSort="asc"

    ifWhere=""ThenWhere="asc"

    SetRs=Server.CreateObject("adodb.recordset")

    ifcurpage>1then

    TmpSql="selecta.*from(selecttop"&(curpage)*pagesize&"*from"&Table&"where"&where&"orderby"&Order&""&OrderSort&")aleftjoin(selecttop"&(curpage-1)*pagesize&"*from"&Table&"where"&where&"orderby"&Order&""&OrderSort&")bona."&Order&"=b."&Order&"whereiif(b."&Order&",'0','1')='1'"

    else

    TmpSql="selecta.*from(selecttop"&(curpage)*pagesize&"*from"&Table&"where"&where&"orderby"&Order&""&OrderSort&")a"

    endif

    ifpagesize=0ThenTmpSql="select*from"&Table

    Rs.openTmpSql,conn,1,1

    RealSize=Rs.recordcount

    fori=0toRs.recordcount-1

    TmpJson=TmpJson&"{"

    forj=0toRs.fields.count-1

    TmpJson=TmpJson&""""&(Rs.fields(j).name)&""":"

    TmpJson=TmpJson&""""&Rs(j)&""""

    ifj<Rs.fields.count-1thenTmpJson=TmpJson&","

    next

    TmpJson=TmpJson&"}"

    ifi<Rs.recordcount-1thenTmpJson=TmpJson&","

    TmpJson=TmpJson&vbcrlf

    rs.movenext

    next

    Rs.close

    ifMiniJson=1Then

    CountSql="selectcount("&order&")from"&Table&"where"&where

    Rs.openCountSql,Conn,1,1

    Counts=Rs(0)

    Rs.Close

    GetTable=ToMiniUi(TmpJson,Counts)

    Else

    GetTable=toJson(TmpJson)

    endif

    SetRs=nothing

    EndFunction

    functiontoJson(JsonStr)

    toJson="["&vbcrlf&JsonStr&vbcrlf&"]"

    endfunction

    FunctionToMiniUi(JsonStr,total)

    ToMiniUI="{"

    ToMiniUI=ToMiniUI&"""total"":"""&total&""","&vbcrlf

    ToMiniUI=ToMiniUI&"""data"":["&JsonStr

    ToMiniUI=ToMiniUI&"]}"

    EndFunction

    版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:asp实现获取MSSQL数据库表指定条件行数的函数 下一篇:asp画中画广告插入在每篇文章中的实现方法
    发布日期:2021/11/1
    手机扫二维码直达本页
    发布时间:12:26:28
    点击:309
    录入:齐天大圣
    相关文章
    Baidu
    YiJiaCMS 6.0.9.10888 Build 21.11.30(MSSQL) 闽ICP备05000814号-1
    本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
    ©2000-2021