Artikel ini terutama memperkenalkan informasi yang relevan tentang metode penggunaan asp untuk membaca dan mengeluarkan kode json dari database.
Copy kode kodenya sebagai berikut:Fungsi GetTable (Tabel, Dimana, Urutan, Urutan Pesanan, curpage, ukuran halaman, MiniJson)
'Penulis: nigou
'Penggunaan: Response.Write GetTable (Nama tabel tabel, Kondisi di mana, Kunci utama pesanan (wajib), OrderSort (asc, desc), halaman saat ini, jumlah item per halaman, apakah MiniJson dikeluarkan dalam format miniUI)
'
dimi,j,rs
jika OrderSort= Maka OrderSort=asc
jika Dimana= Lalu Dimana=asc
Setel Rs=Server.CreateObject(adodb.recordset)
jika curpage>1 maka
TmpSql=pilih a.* dari ( pilih atas & (curpage) * ukuran halaman & * dari & Tabel & di mana & di mana & pesan berdasarkan & Pesan & & Sortir & ) gabung kiri ( pilih atas & (kurpage-1) * ukuran halaman & * dari & Tabel & di mana & di mana & memesan berdasarkan & Memesan & & Memesan & ) b pada a & Memesan & =b. & Memesan & di mana iif(b. & Memesan & ,'0','1')=' 1'
kalau tidak
TmpSql=pilih a.* dari ( pilih atas & (curpage) * ukuran halaman & * dari & Tabel & di mana & di mana & pesan berdasarkan & Pesan & & Sortir Pesanan & ) a
berakhir jika
jika ukuran halaman=0 Maka TmpSql = pilih * dari & Tabel
Rs.buka TmpSql,sambungan,1,1
RealSize=Rs.jumlah catatan
untuk i=0 hingga Rs.recordcount-1
TmpJson= TmpJson & {
untuk j=0 hingga Rs.fields.count-1
TmpJson= TmpJson & &(Rs.fields(j).nama) & :
TmpJson= TmpJson & & Rs(j) &
jika j<Rs.fields.count-1 maka TmpJson= TmpJson & ,
Berikutnya
TmpJson= TmpJson & }
jika i<Rs.recordcount-1 maka TmpJson= TmpJson & ,
TmpJson= TmpJson & vbcrlf
rs.movenext
Berikutnya
Rs.tutup
jika MiniJson=1 Lalu
CountSql=pilih hitungan(& pesan &) dari & Tabel & di mana & di mana
Rs.buka CountSql, Conn,1,1
Hitungan=Rs(0)
Rs.Tutup
GetTable=ToMiniUi(TmpJson,Hitungan)
Kalau tidak
Dapatkan Tabel=toJson(TmpJson)
berakhir jika
Tetapkan Rs=tidak ada
Fungsi Akhir
fungsi toJson(JsonStr)
toJson=[ & vbcrlf & JsonStr & vbcrlf & ]
fungsi akhir
Fungsi ToMiniUi(JsonStr,total)
KeMiniUI={
ToMiniUI=KeMiniUI & total: & total & , & vbcrlf
ToMiniUI=KeMiniUI & data: [ & JsonStr
KeMiniUI=KeMiniUI & ]}
Fungsi Akhir
PS: Parameter terakhir dikembangkan untuk miniUI dan dapat diabaikan.
Di atas adalah keseluruhan isi artikel ini, saya harap Anda semua menyukainya.