- 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<Rs.fields.count-1 then TmpJson= TmpJson & " , "
- next
- TmpJson= TmpJson & " }"
- if i<Rs.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
复制保存
本文标签:json
其他说明:如果你对于本文还有其他疑问欢迎在评论中提问。
赞助我们:如果你觉得本站的内容对你确实有所帮助,请赞助我们让我们有动力为你继续奉献更多有用的内容→赞助我们
版权说明:转载请注明出处和附带本文链接 [ http://www.yuzhe.name/item-2810.html ]。
其他说明:如果你对于本文还有其他疑问欢迎在评论中提问。
赞助我们:如果你觉得本站的内容对你确实有所帮助,请赞助我们让我们有动力为你继续奉献更多有用的内容→赞助我们
版权说明:转载请注明出处和附带本文链接 [ http://www.yuzhe.name/item-2810.html ]。
全站熱搜