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

原创 2007年09月13日 15:23:00
<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>
 

将数据库中的结果集转换为json格式

将数据库中的结果集转换为json格式
  • zhouxukun123
  • zhouxukun123
  • 2017年06月18日 16:42
  • 1898

asp返回json数据 json.asp(修改版)

'******************************************************************************************* '' 更新日期...
  • suleil1
  • suleil1
  • 2015年10月28日 16:57
  • 1152

关于asp输出json对象的方法及实例

相信大家对于asp和json都不陌生,当下json应用的非常广泛,但asp语言中并没有可以直接生成json对象的方法,我在网上查了很多资料,关于asp生成json对象的方法,大多都写得很简单,大多很差...
  • zxhj963
  • zxhj963
  • 2016年03月17日 12:30
  • 6960

asp生成json数据

看过网上很多asp无限分类的代码,
  • ruibon
  • ruibon
  • 2014年08月20日 17:12
  • 1341

ASP生成JSON数据

下文中用到的json.asp见上一篇文章 %@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>!--#include file="json.asp"-->!--#incl...
  • suleil1
  • suleil1
  • 2015年10月28日 16:56
  • 1417

asp读取解析JSON的几种方法

方法一(使用MSScriptControl.ScriptControl):
  • cncco
  • cncco
  • 2015年11月21日 01:51
  • 11803

爱恩 asp 生成json数据

  • boys1999
  • boys1999
  • 2015年02月06日 22:17
  • 683

asp通过json调用webservice接口,并获取返回的xml数据及解析

本事例是asp调用webservice接口,并获取返回的xml数据及解析! Response.Write "测试时间:"&now()&"" dim url,SOAP...
  • kuyz1
  • kuyz1
  • 2017年01月17日 17:26
  • 1267

将查询出来的数据集转化成JSON格式的类

using System; using System.Collections; using System.Collections.Generic; using System.Data; usi...
  • make1828
  • make1828
  • 2013年07月17日 16:15
  • 6882

将后台数据返回的两类数据转换成键值对应的json格式

使用js进行string和json之间转换的方法 在数据传输过种中,json是以文本,即字符串的形式传递,字符串形似Json对象: var str1 = '{ "name": "Am...
  • yuwq123
  • yuwq123
  • 2017年02月07日 10:56
  • 1891
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp将数据库里的记录转换成json
举报原因:
原因补充:

(最多只允许输入30个字)