关闭

asp将数据库里的记录转换成json

1013人阅读 评论(0) 收藏 举报
<script type="text/javascript">google_ad_client = "pub-2048279401139630";google_ad_slot = "8856771542";google_ad_width = 728;google_ad_height = 90;document.write("<s"+"cript type='text/javascript' s"+"rc='http://pagead2.googlesyndication.com/pagead/show_ads"+"."+"js'></scr"+"ipt>");</script>
<%
'--------------------------------------- 
'
 JSONClass类 
'
 将Select语句的执行结果转换成JSON 
'
------------------------------------------ 
Class JSONClass 
    
' 定义类属性,默认为Private 
    Private p_SqlString ' 用于设置Select 
    Private p_root ' 返回的JSON对象的名称 
    Private Rs,conn
    
    
Private Sub Class_Initialize()
        SqlString 
= ""
        JSON 
= ""
        
'初始化conn和rs
        Call initConn(conn)
        
Call initRs(rs) 
    
End Sub
    
    
Private Sub Class_Terminate()
        
'清除conn和rs
        Call clearConn(conn)
        
Call clearRs(rs)
    
End Sub
    
    
' 可以外部调用的公共方法 
    Public Function GetJSON()
        
Dim Rs 
        
Dim returnStr 
        
Dim i 
        
Dim oneRecord 
        
        
' 获取数据 
        Set Rs= Server.CreateObject("ADODB.Recordset"
        Rs.open Sql,conn,
1,1 
        
' 生成JSON字符串 
        If Rs.eof=false And Rs.Bof=false Then 
            returnStr
=""&Chr(13)& Chr(9& Chr(9& Root & ":{ "& Chr(13& Chr(9& Chr(9&Chr(9& Chr(9&"records:[ " & Chr(13)
            
            
While(Not Rs.Eof)
                
' ------- 
                oneRecord= Chr(9& Chr(9& Chr(9& Chr(9& Chr(9& "" 
                
                
For i=0 To Rs.Fields.Count -1 
                    oneRecord
=oneRecord & Chr(34& Rs.Fields(i).Name&Chr(34&":" 
                    oneRecord
=oneRecord & Chr(34& Rs.Fields(i).Value&Chr(34&"," 
                
Next 
            
'去除记录最后一个字段后的"," 
            oneRecord=Left(oneRecord,InStrRev(oneRecord,",")-1
            oneRecord
=oneRecord & "}," & Chr(13)
            
'------------ 
            returnStr=returnStr & oneRecord 
            Rs.MoveNext 
            
Wend 
            
' 去除所有记录数组后的"," 
            returnStr=Left(returnStr,InStrRev(returnStr,",")-1& Chr(13)
            returnStr
=returnStr & Chr(9& Chr(9&Chr(9& Chr(9&"]" & Chr(13& Chr(9& Chr(9& "}" &Chr(13& "}" 
        
End If

        GetJSON
=returnStr 
    
End Function 
    
    
'私用方法,在类中使用 
    Private Function check() 
    
    
End Function 
    
    
'数据库操作
    Sub initConn(conn)
        
Set conn=Server.CreateObject("ADODB.Connection")
        conn.Mode
=3
        conn.Open connStr
    
End Sub
    
    
Sub clearConn(conn)
        conn.Close
        
Set conn=Nothing
    
End Sub
    
    
Sub initRs(rs)
        
Set Rs=Server.CreateObject("ADODB.RecordSet")
    
End Sub
    
Sub clearRs(Rs)
        
Set Rs=Nothing
    
End Sub
    
    
Public Property Get Sql
        Sql 
= p_SqlString
    
End Property
    
    
Public Property Let Sql(value)
        p_SqlString 
= value
    
End Property
    
    
Public Property Get Root
        Root 
= p_root
    
End Property
    
    
Public Property Let Root(value)
        p_root 
= value
    
End Property
' 
End Class 
%
>
<%
Set json = new JSONClass
json.Sql 
= "SELECT * FROM Research_Dictionary"
json.Root 
= "Research_Dictionary"

Response.Charset
="utf-8"

'Call OutPut(json.GetJSON())
%>
<script type="text/javascript">google_ad_client = "pub-2048279401139630";google_ad_slot = "8856771542";google_ad_width = 728;google_ad_height = 90;document.write("<s"+"cript type='text/javascript' s"+"rc='http://pagead2.googlesyndication.com/pagead/show_ads"+"."+"js'></scr"+"ipt>");</script>
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:208600次
    • 积分:4432
    • 等级:
    • 排名:第7197名
    • 原创:100篇
    • 转载:203篇
    • 译文:1篇
    • 评论:101条
    文章分类
    最新评论