ASP输出JSON数据及客户端jQuery处理方法

首先ASP处理JSON需要json官方提供的JSON For ASP 封装类文件,下载地址:http://code.google.com/p/aspjson/downloads/list

下载最新的JSON_2.0.4.asp文件备用。

1.ASP简单JSON对像及数组输出

Demo1.asp

<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”65001″%>
<% Response.Charset = “UTF-8″ %>
<% Response.ContentType = “text/JSON” %>
<!–#include file=”../Inc/JSON_2.0.4.asp”–>
<%
Dim Json,Array(4)
Set Json = jsObject()
Json(“Title”) = ” ASP输出JSON数据及客户端jQuery 处理方法”
Json(“Url”) = “#”
Json(“PubDate”) = Now()
Array(0) = “QQ空间”
Array(1)= “腾讯微博”
Array(2)= “新浪微博”
Array(3)= “网易微博”
Array(4)= “搜狐微博”
Set Json(“Share”) = jsArray() ‘数组对像
Json(“Share”) = Array ‘ASP数组直接传给JSON数组对像
Json.Flush
Set Json = Nothing
%>

前台请求页面Demo1.html

<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”>
<html xmlns=”http://www.w3.org/1999/xhtml”>
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=utf-8″ />
<title>ASP输出JSON数据及客户端jQuery 处理方法</title>
<script type=”text/javascript” src=”../Scripts/jquery-1.7.2.min.js”></script>
<script type=”text/javascript”>
$(document).ready(function(){
$(“#btn”).click(function(){
$.getJSON(“Demo1.asp”,function(data){
$(“#View”).html(“标题:”+data.Title+”<br />URL:”+data.Url+”<br />时间:”+data.PubDate+”<br />分享:”);
$.each(data.Share,function(i,n){//遍历数组
$(“#View”).append(n + ” | “);
});
});
});
});
</script>
</head>

<body>
<input type=”button” id=”btn” value=”显示” />
<div id=”View”></div>
</body>
</html>

是不是很简单呀?

2.ASP数据库数据输出JSON

Demo2.asp

<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”65001″%>
<% Response.ContentType = “application/json; charset=utf-8″ %>
<!–#include file=”../Inc/JSON_2.0.4.asp”–>
<!–#include file=”../Inc/Conn.asp”–>
<%
Function QueryToJSON(dbc, sql) ‘此函数来自JSON官方JSON_UTIL_0.1.1.asp
Dim rs, jsa
Set rs = dbc.Execute(sql)
Set jsa = jsArray()
While Not (rs.EOF Or rs.BOF)
Set jsa(Null) = jsObject()
For Each col In rs.Fields
jsa(Null)(col.Name) = col.Value
Next
rs.MoveNext
Wend
Set QueryToJSON = jsa
End Function

SQLstr = “SELECT U_ID,U_Name,U_Age,U_Sex FROM User LIMIT 0,10″  ’这里使用的是MySQL数据库

Response.Write QueryToJSON(Conn, SQLstr).Flush
%>

前台页面Demo2.html

<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”>
<html xmlns=”http://www.w3.org/1999/xhtml”>
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=utf-8″ />
<title>ASP输出JSON数据及客户端jQuery 处理方法</title>
<script type=”text/javascript” src=”../Scripts/jquery-1.7.2.min.js”></script>
<script type=”text/javascript”>
$(document).ready(function(){
$(“#btn”).click(function(){
$.getJSON(“Demo2.asp”,function(data){
$.each(data,function(i,n){
var $tr = $(“#View”).find(“tr.Demo”).clone();
$tr.removeClass(“Demo”);
$tr.find(“td:eq(0)”).text(n.U_ID);//第一个td
$tr.find(“td:eq(1)”).text(n.U_Name);
$tr.find(“td:eq(1)”).text(n.U_Name);
$tr.find(“td:eq(2)”).text(n.U_Age);
$tr.find(“td:eq(3)”).text(n.U_Sex);
$(“#View”).append($tr);
});
$(“#View”).find(“tr.Demo”).remove();//移除空行
});
});
});
</script>
</head>

<body>
<input type=”button” id=”btn” value=”显示” />
<table width=”360″ border=”1″ id=”View”>
<tr>
<td align=”center”><strong>ID</strong></td>
<td align=”center”><strong>姓名</strong></td>
<td align=”center”><strong>年龄</strong></td>
<td align=”center”><strong>性别</strong></td>
</tr>
<tr class=”Demo”>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table>
</body>
</html>

ASP利用JSON官方类输出JSON就是这么简单。

本例在Windows 2008R2+MySQL5.5+ASP环境下测试通过。

http://code.google.com/p/aspjson/ 有详细的说明和下载,希望本文对您的ASP编程有所帮助。

  • 1
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Asp 这个老古懂估计没几个人在用了。几年没写代码了,最近要弄个小东西,给手机端提供json数据,不想麻烦别人,自己又只会asp,没办法就自己动手了。网上找了好久都没有一个人能完整的把asp操作json说清楚。最后还是自己搞定的。整出来共享给大家。(ps,还有个原因csdn的分不够用啦,大家看着给点吧。写这个说明文档都用了我两小时。^_^) 以下是示例代码 '说明:json.asp中引用了json.js.asp '其他见文档 '手机很多时候不认gb2312,跳入json的坑就忘记gb2312吧,讨厌的是,如果代码报错,iis会输出gb2312,结果就是乱码,有点烦。 '自己想办法解决吧 response.Charset= "utf-8" dim strJsonData,ovbJson,j dim arrTemp,varname ,i set ovbJson=new vbJson 'asp recrodset和数组转json字符 arrTemp=array("a","{""oa"":""我是oa""}","c") strJsonData=ovbjson.toJson(empty,arrTemp,true) '转换为Json格式的字符串,有兴趣可以自己输出看看是什么 set j=json.parse(strJsonData) '序列化为json对象(或者是数组对象) response.Write(j.get(1)&"") '别用vb数组来存json对象,不然得每个元素去重新序列化,这里如果想j.get(1).oa就不行了。必须对j.get(1)单独序列才行 '----recrodset就不演示了,懒得连数据库 '---自定义操作方法的演示--- strJsonData="{a:1,b:[{c:'我是数组中的点c'}]}" set j=json.parsestr(strJsonData) response.Write(j.b.get(0).c&"") '添加节点的时候注意,如果值是null,会被忽然,这个节点会不存在的。在添加之前记得先检查值 set j=json.add(j,"new","我是新加的节点") response.Write(j.new&"") '下面这句注掉了,是因为这个操作是无效的因为j.b是数组,不能add 'set j=json.add(j.b,"new1","我是加不进的节点") set j.b=j.b.put(j.b.length,j.b.get(0)) response.Write(j.b.get(1).c&",我是新加的数组元素") '因为数组的get方法不允许被赋值,所以不能像下面这样写 'set j.b.get(0)=json.add(j.b.get(0),"new","我会报错") json.add j.b.get(0),"new","我是新加的new我不会报错" json.add j.b.get(0),"new1","我是通过变量取出来的哦" response.Write(j.b.get(0).new&"") varname="new1" response.Write(json.byname(j.b.get(0),varname)&"") for i=0 to j.b.length-1 varname="c" response.Write(json.byname(j.b.get(i),varname)&"我是循环出来的c,索引:"&i&" ") next '最后完整的输出给手机就这样: response.Write json.stringify(j)

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值