Asp生成Json类的方法和应用

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

Class JSONClass
   ' 定义类属性，默认为Private
   Dim SqlString    ' 用于设置Select
   Dim   JSON    ' 返回的JSON对象的名称
   Dim   DBConnection   ' 连接到数据库的Connection对象
 
   ' 可以外部调用的公共方法
   Public Function GetJSON ()
      dim Rs
      dim returnStr  
      dim i
      dim oneRecord
      ' 获取数据
      Set Rs= Server.CreateObject("ADODB.Recordset")
      Rs.open SqlString,DBConnection,1,1
      ' 生成JSON字符串
      if    Rs.eof=false and   Rs.Bof=false then
       returnStr="{ "&   JSON &   ":{ records:["
       while Rs.eof=false
        '   -------
        oneRecord= "{"
        for i=0 to Rs.Fields.Count -1
          oneRecord=oneRecord  &Rs.Fields(i).Name&":" 
          oneRecord=oneRecord & chr(34) &Rs.Fields(i).Value&chr(34) &","
        Next
        '去除记录最后一个字段后的","
        oneRecord=left(oneRecord,InStrRev(oneRecord,",")-1)
        oneRecord=oneRecord & "},"
        '------------
        returnStr=returnStr   & oneRecord
        Rs.MoveNext
       Wend
       ' 去除所有记录数组后的","
       returnStr=left(returnStr,InStrRev(returnStr,",")-1)
       returnStr=returnStr   &   "]}}"
      end if
      Rs.close
      set Rs=Nothing
       GetJSON=returnStr
   End Function
 
   '私用方法，在类中使用
   Private Function check()
 
   End Function
 
End Class
 
dim a
set a=new JSONClass
a.Sqlstring="select * from aimks where name='mk'"
a.dbconnection=conn
a.json="aimks"
response.Write(a.GetJSon())

Class JSONClass ' 定义类属性，默认为Private Dim SqlString ' 用于设置Select Dim JSON ' 返回的JSON对象的名称 Dim DBConnection ' 连接到数据库的Connection对象 ' 可以外部调用的公共方法 Public Function GetJSON () dim Rs dim returnStr dim i dim oneRecord ' 获取数据 Set Rs= Server.CreateObject("ADODB.Recordset") Rs.open SqlString,DBConnection,1,1 ' 生成JSON字符串 if Rs.eof=false and Rs.Bof=false then returnStr="{ "& JSON & ":{ records:[" while Rs.eof=false ' ------- oneRecord= "{" for i=0 to Rs.Fields.Count -1 oneRecord=oneRecord &Rs.Fields(i).Name&":" oneRecord=oneRecord & chr(34) &Rs.Fields(i).Value&chr(34) &"," Next '去除记录最后一个字段后的"," oneRecord=left(oneRecord,InStrRev(oneRecord,",")-1) oneRecord=oneRecord & "}," '------------ returnStr=returnStr & oneRecord Rs.MoveNext Wend ' 去除所有记录数组后的"," returnStr=left(returnStr,InStrRev(returnStr,",")-1) returnStr=returnStr & "]}}" end if Rs.close set Rs=Nothing GetJSON=returnStr End Function '私用方法，在类中使用 Private Function check() End Function End Class dim a set a=new JSONClass a.Sqlstring="select * from aimks where name='mk'" a.dbconnection=conn a.json="aimks" response.Write(a.GetJSon())