明凯博客

关注网站技术,一个特立独行的程序员

Asp生成Json类的方法和应用

我们在使用json时,很多时候都要用asp后台直接生成json格式的数据。
其实只要你明白json的格式,那就按照你需要的json去动态生成就好了,
下面是一个生成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())

上面就是一个简单的动态生成json的asp类。你可以根据自己的需求进行更改。

, , , ,

相关文章

2 条评论 “Asp生成Json类的方法和应用

发表评论

电子邮件地址不会被公开。 必填项已用*标注