主頁 > 知識(shí)庫 > asp實(shí)現(xiàn)讀取數(shù)據(jù)庫輸出json代碼

asp實(shí)現(xiàn)讀取數(shù)據(jù)庫輸出json代碼

熱門標(biāo)簽:不封卡外呼系統(tǒng)一般多少錢 重慶外呼電銷系統(tǒng)費(fèi)用 濰坊呼叫中心外呼系統(tǒng)供應(yīng)商 地圖標(biāo)注中心多少錢注冊(cè) 電銷機(jī)器人一個(gè)多少錢 鄭州語音電銷機(jī)器人官網(wǎng) 地圖標(biāo)注不完整被罰款 北京大興區(qū)地圖標(biāo)注 微信地圖標(biāo)注有什么用

復(fù)制代碼 代碼如下:

Function GetTable(Table,Where,Order,OrderSort,curpage, pagesize,MiniJson)
'Author : nigou
'使用方法 : Response.Write GetTable(Table表名,Where條件,Order主鍵(必須),OrderSort(asc,desc),curpage當(dāng)前頁, pagesize每頁條數(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

PS:最后的參數(shù)是針對(duì)miniUI開發(fā)的,可以無視

以上就是本文的全部?jī)?nèi)容了,希望大家能夠喜歡。

您可能感興趣的文章:
  • js讀取json文件片段中的數(shù)據(jù)實(shí)例
  • 使用MSScriptControl 在 C# 中讀取json數(shù)據(jù)的方法
  • Android通過json向MySQL中讀寫數(shù)據(jù)的方法詳解【讀取篇】
  • 如何使用ajax讀取Json中的數(shù)據(jù)
  • PHP讀取mssql json數(shù)據(jù)中文亂碼的解決辦法
  • Android App中讀取XML與JSON格式數(shù)據(jù)的基本方法示例
  • js讀取并解析JSON類型數(shù)據(jù)的方法
  • Android中Json數(shù)據(jù)讀取與創(chuàng)建的方法
  • python讀取json文件并將數(shù)據(jù)插入到mongodb的方法
  • litjson讀取數(shù)據(jù)示例
  • javascript 循環(huán)讀取JSON數(shù)據(jù)的代碼
  • JSON 數(shù)據(jù)格式詳解

標(biāo)簽:揭陽 攀枝花 海南 鶴崗 佛山 汕頭 撫州 唐山

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《asp實(shí)現(xiàn)讀取數(shù)據(jù)庫輸出json代碼》,本文關(guān)鍵詞  asp,實(shí)現(xiàn),讀取,數(shù)據(jù)庫,輸出,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp實(shí)現(xiàn)讀取數(shù)據(jù)庫輸出json代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于asp實(shí)現(xiàn)讀取數(shù)據(jù)庫輸出json代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章