asp mysql 读取数据库_asp读取数据库输出json

导读热词

下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家，也给大家做个参考。

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

next

TmpJson= TmpJson & " }"

if i

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

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

以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

相关文章

总结

以上是编程之家为你收集整理的asp读取数据库输出json全部内容，希望文章能够帮你解决asp读取数据库输出json所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。

如您喜欢交流学习经验，点击链接加入交流1群：1065694478(已满)交流2群：163560250