关于asp输出json对象的方法及实例
web ASP 2018-04-27 2515 0
关于本站

“最难不过坚持”

本人承接扒站仿站,php网站维护,病毒查杀,网站编辑,网站改版,html制作

有需要网站维护,改版,病毒查杀,网站编辑,网站备案,html制作等相关的工作可以联系我。
本人有多年相关工作经验,也可提供免费咨询,交个朋友。
有需要探讨问题的朋友,也可以加我微信,共同探讨!
微信:15011482830 QQ:408917339

6280271 2594 39
最新评论
https://jueru.net/
评 留言
:weixiao:
评 留言
:shuijiao: :weiqu: :zhenbang: :leng:
评 留言
:yiwen: :yiwen: :yiwen: :yiwen:
评 EasySass: could not generate CSS file. See Output panel for details.
这个业务逻辑多少都有点奇怪了,阅读浏览次数增值在新闻详情页的控制器方法里setInc,这怎么还写进模型事件里了。如果非要用onAfterRead也可以,把新闻文章的内容单独分出来一个news_content表,然后把它和news做关联,然后给news_content表的onAfterRead事件做增值处理,这样点进新闻页内查询到文章内容时才会触发它。
评 TP6模型事件-查询后onAfterRead不好用
文章标签更多
ThinkPHP (254)
Mysql (58)
DedeCms (33)
jQuery (67)
证件照 (1)
setInc (4)
setDec (4)
onclick (5)
打开边栏(ESC) 关闭边栏(ESC)

本篇文章来自网络,本人进行了测试,可以使用,非常感谢原作者。

文章中用的文件下载:

Json.asp   http://www.webdevbros.net/2007/04/26/generate-json-from-asp-datatypes/   找到JSON 1.5.1下载解压就是

json2.js    https://github.com/douglascrockford/JSON-js

我自己测试的包,包括所有文件,可以直接下载测试http://taotaoit.com/upload/download/aspjsonjiekou.rar

以下是原文章

============================================

相信大家对于asp和json都不陌生,当下json应用的非常广泛,但asp语言中并没有可以直接生成json对象的方法,我在网上查了很多资料,关于asp生成json对象的方法,大多都写得很简单,大多很差强人意,有的虽然是写了关键的代码,但并没有实际的案例可供参考。现在我就把我实现的代码贴出来供大家参考。

1.目的:用asp得到json对象:

{"total":17,"rows":[{"News_ID":54,"NewsType_id":78},{"News_ID":55,"NewsType_id":78},{"News_ID":56,"NewsType_id":78},{"News_ID":57,"NewsType_id":78},{"News_ID":58,"NewsType_id":78},{"News_ID":59,"NewsType_id":78},{"News_ID":60,"NewsType_id":78},{"News_ID":61,"NewsType_id":78},{"News_ID":62,"NewsType_id":78},{"News_ID":63,"NewsType_id":78},{"News_ID":64,"NewsType_id":78},{"News_ID":65,"NewsType_id":78},{"News_ID":106,"NewsType_id":78},{"News_ID":107,"NewsType_id":78},{"News_ID":126,"NewsType_id":78},{"News_ID":192,"NewsType_id":78},{"News_ID":194,"NewsType_id":78}]}  
这是我们将得到的json数据。


2.需要引用的文件
  后台需要引入json类文件:  json.asp   ,   
  前台需要引入常用的文件: json2.js<mrak: 这个文件可以到json官网去下载> ,  jquery.js<mark: 这个文件太常见了,不用我说了吧>  
3.后台程序代码:(关键的来了)
index_json.asp 页面代码:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  
<% Response.Addheader "Content-Type","text/html; charset=utf-8"  %>  
<!--#include file="inc/json.asp"-->  
<!--#include file="inc/Conn.asp" -->  
<%  
    Dim sql_class,sql_top,sql_colums,sql_whereBy,sql_orderBy  
    sql_class = request.Item("sql_class")  
    sql_top = request.Item("sql_top")  
    sql_colums = request.Item("sql_colums")  
    sql_whereBy = request.Item("sql_whereBy")  
    sql_orderBy = request.Item("sql_orderBy")  
  
    Sql="select "&sql_top&" "&sql_colums&" from "&sql_class&" where 1=1 "&sql_whereBy&" "&sql_orderBy  
%>  
  
<%  
    Set Rs = Server.CreateObject("ADODB.Recordset")        
    Rs.Open sql,conn,1,3   
    jsonStr = ""  
    rows = ""  
  
    Dim i,json_rows,json_ret,arr_rows  
    Dim myArray()  
    Redim myArray(rs.recordcount-1) '将数组大小重新定义为20  
    Set jsonObj=New json  
    jsonObj.toResponse=False  
    Set json_ret = server.createobject("scripting.dictionary")          
    For i=0 To rs.recordcount-1  
        Set myArray(i) = server.createobject("scripting.dictionary")  
        For Each e In rs.Fields                  
                'rows = rows &""""& e.Name & """:""" & replace(e.value,chr(34),"@_'_@") & ""","   
                myArray(i).Add e.Name,e.value  '将key/value加到行数组对象中  
        Next     
        Rs.movenext  
    Next         
    json_ret.Add "total",rs.recordcount  
    json_ret.Add "rows",myArray   
    jsonStr = jsonObj.toJSON(Empty,json_ret,False)  
  
    response.Write jsonStr  
  
%>  
上面的代码是将数据库中的数据取出来并将数据保存为json对象,这里面用到了  dictionary ,目前还没有别的办法生成多层级的json数据,只能用它来生成了。 有人说我可以将数据库的数据取出来然后拼接成json数据格式。 对,没错,我也尝试过,但是你会发现,它生成的永远都是string字符串,不是对象,异步获取json格式或者将这个数据传给一些插件的时候你会发现你怎么也得不到想要的结果,原因就在于格式不正确,你得到的是json string,不是json object。 那又有人说了,我可以在异步获取到这个json string之后再将该数据用eval方法转成json对象,对,没错,是可以。 弊端是有的,而且你会发现很头疼的。 这个问题在稍后的文章里面我会再来解释。


4.接下来我们要做的就是将生成的json对象数据异步获取并显示到前台的dom中,看一下demo:
文件名 ajaxShow.html

<!DOCTYPE html>  
<html lang="zh-cn">  
<head>  
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />  
    <meta http-equiv="X-UA-Compatible" content="IE=edge" />  
    <meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalabel=no" />  
    <meta name="renderer" content="webkit" />  
    <script type="text/javascript" src="js/json2.js"></script>  
    <script type="text/javascript" src="js/jquery.js"></script>  
    <style type="text/css">  
        body  
        {  
            min-width: 1020px;  
            font-size: 14px;  
            background: #fff;  
            font-family: "微软雅黑" ,Microsoft Yahei;  
            background: #000;  
            padding:20px;  
            margin:20px;  
        }  
        .tips  
        {  
            margin:20px;  
            width: 50%;  
            height: auto;  
            margin: 10px auto;  
            border: 1px solid #fff;  
            padding: 20px 5px;  
            font-size: 16px;  
            color: #fefefe;  
            background: rbga(220,220,220,0.8);  
            word-wrap:break-word;  
        }  
        .text-center{ text-align:center}  
        .min-height{ min-height:300px; }  
        .radius  
        {              
            border-radius:5px;  
            }  
        .font-blue  
        {  
            color: #034C9A;  
        }  
    </style>  
    <script type="text/javascript">  
        var url = "http://localhost:701/index_json.asp"  
        var relations = {  
            sql_class: "Web_News", //表名  
            sql_top: "",  //取数据总条数 top 10  
            sql_colums: "News_ID,NewsType_id", //列名,用","隔开,如果全部获取,则填写"*"   
            sql_whereBy: "and NewsType_id=78",  
            sql_orderBy: "order by News_ID asc"  
        }  
        $.post(  
            url,  
        relations,  
            function (data) {  
                $('#ajax_data').html(JSON.stringify(data));  
                var total = data.total;  
                //$('#ajax_data').html(total);  
            }  
        , "json"  
        );  
  
            function strToJson(str) {  
                var json = eval('(' + str + ')');  
                return json;  
            }   
    </script>  
</head>  
<body>  
      
    <div id="header" class="tips radius text-center">  
        <b>asp生成json对象并异步获取json对象数据 实例</b>  
    </div>  
    <div id="Div1" class="tips radius">  
        以下将显示异步获取的内容:  
    </div>  
    <div id="ajax_data" class="tips radius min-height">  
    </div>  
</body>  
</html> 
文件的引用和css我就不说了。关键在于ajax部分,这里我用的是jquery中的$.post()方法,有2出关键点: 第一, url ,相信这个大家都会写对吧,就是你请求的数据源页面,我们的例子中为刚才我们建立的 ajax_index.asp; 第二, 'json',这个参数大家可以查一下jquery关于ajax异步获取部分的手册。该参数就是为了保证生成的数据为json对象。
其中你会发现
JSON.stringify(data)

这个就是json2.js  json类文件中的方法,该方法就是将json对象转为string类型,以便将结果显示到dom里面。 运行一下http://localhost:701/ajaxShow.html,是不是已经得到了我们想要的数据。 

from clipboard

这是我们全部的数据,当然我们怎么知道我们获取的是json对象呢,只需要试试data.total能不能获取到就知道了啦;我们改一下$.post()中的代码:
//$('#ajax_data').html(JSON.stringify(data));  
                var total = data.total;  
                $('#ajax_data').html(total);  
在刷新一下看看,是不是得到了 17; 

from clipboard

哈哈,果然是得到啦  !  好了,该介绍的就介绍完了,关于问什么不用拼接的方法得到json格式的字符串,期待下一篇文章。


原文结束

=====================================================

所不同的是,我输出的结果不是换行的,不知道为什么

from clipboard

版权声明:本篇文章来源于网络。 来源链接

相关推荐
asp的Base64加密解密函数
ASP | 2018-07-19 13369
<% OPTION EXPLICIT const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" dim newline dim Base64EncMap(63) dim Base64DecMap(127) '...
请问这个函数是什么意思 CreateObject("MSXML2.XMLHTTP")
ASP | 2018-03-08 5149
private Function getHTTPPage(url) On Error Resume Next Dim http Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.send If http.readyState ...
评论:0条
评论加载中...
发表评论