ASP는 데이터베이스 출력 JSON 코드 읽기를 구현합니다.

이 기사에서는 주로 ASP를 사용하여 데이터베이스에서 json 코드를 읽고 출력하는 방법에 대한 관련 정보를 소개합니다. 필요한 친구는 이를 참조할 수 있습니다.

함수 GetTable(테이블,Where,Order,OrderSort,curpage,pagesize,MiniJson)

'저자 : nigou

'사용법: Response.Write GetTable(테이블 테이블 이름, Where 조건, Order 기본 키(필수), OrderSort(asc, desc), curpage 현재 페이지, 페이지당 페이지 크기 항목 수, MiniJson이 miniUI 형식으로 출력되는지 여부)

'

디미,j,rs

OrderSort=이면 OrderSort=asc인 경우

if Where= 그러면 Where=asc

Rs=Server.CreateObject(adodb.recordset) 설정

만약 curpage>1이면

TmpSql=select a.* from ( select top & (curpage) * pagesize & * from & Table & where & where & order by & Order & & OrderSort & ) 왼쪽 조인( 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'

또 다른

TmpSql=선택 a.* from ( select top & (curpage) * pagesize & * from & Table & where & where & order by & Order & & OrderSort & ) a

종료하면

pagesize=0인 경우 TmpSql = & 테이블에서 * 선택

Rs.open TmpSql,conn,1,1

RealSize=Rs.recordcount

i=0에서 Rs.recordcount-1까지

TmpJson= TmpJson & {

j=0에서 Rs.fields.count-1까지

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

TmpJson= TmpJson & & Rs(j) &

j<Rs.fields.count-1이면 TmpJson= TmpJson & ,

다음

TmpJson= TmpJson & }

i<Rs.recordcount-1이면 TmpJson= TmpJson & ,

TmpJson= TmpJson & vbcrlf

rs.movenext

다음

Rs.close

MiniJson=1이면

CountSql=& 테이블 & where & where에서 개수 선택(& 순서 &)

Rs.open CountSql,Conn,1,1

개수=루피(0)

Rs.Close

GetTable=ToMiniUi(TmpJson,카운트)

또 다른

GetTable=toJson(TmpJson)

종료하면

Rs=아무것도 설정하지 않음

기능 종료

함수 toJson(JsonStr)

toJson=[ & vbcrlf & JsonStr & vbcrlf & ]

함수 종료

함수 ToMiniUi(JsonStr,total)

ToMiniUI={

ToMiniUI=ToMiniUI & 합계: & 합계 & , & vbcrlf

ToMiniUI=ToMiniUI 및 데이터: [ & JsonStr

ToMiniUI=ToMiniUI & ]}

기능 종료

추신: 마지막 매개변수는 miniUI용으로 개발되었으며 무시할 수 있습니다.

이상이 이 글의 전체 내용입니다. 모두 마음에 드셨으면 좋겠습니다.