asp将数据库里的记录转换成json
来源:互联网 发布:windows的搜索功能 编辑:程序博客网 时间:2024/05/19 10:40
<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>
<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())
%>
'---------------------------------------
' 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())
%>
- asp将数据库里的记录转换成json
- asp.net 将数据库里的记录转换成json
- Asp.net将数据库里的记录转换成json
- asp将数据库里的记录转换成json
- asp将数据库数据转换成JSON格式
- 数据库中返回多条记录,写成list形式,并且将list转换成json形式
- asp将数据库的数据转换成excel导出
- 将数据库里的某些字段的大小写的转换
- Asp+access,如何统计 数据库里的记录条数?(
- Asp+access,如何统计 数据库里的记录条数?
- 本人是用的asp 怎样将字符串转换成json 格式存入字段呀
- 在数据库里如何将毫秒转换成date格式
- python将mysql数据库的数据转换为json数据
- iOS里的JSON转换
- 将数据库中的数据转换成json格式
- 关于Java语言的eclipse读取数据库,并将数据转换成JSON格式输出
- php将从数据库中获得的数据转换成json格式并输出
- JavaScript 将 JSON 字符串转换成 JSON 对象的数组
- web元素 之 input (javascript)功能
- 理解Linux系统的日志
- ABAP--Smart Forms多语言翻译
- qt指南
- Shell程序设计小知识[shell常识部分]
- asp将数据库里的记录转换成json
- qt连接mysql数据库
- 配置SQL Server使用超2G大内存
- The Inventor Mentor-第八章 曲线与曲面
- 我的股票: 2007/09/13 净值:1.91
- 学习笔记-ArcSDE中空间索引
- c # foreach 各参数
- SNMP网络管理协议
- 蓦然回首的刹那