需要引用的文件：

json.asp(可在JSON官网下载，也可在底部链接的demo中直接拷贝该文件)

Conn.asp是链接数据库文件

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.Addheader "Content-Type","text/html; charset=utf-8"  %>
<!--#include file="inc/json.asp"-->
<!--#include file="inc/Conn.asp" -->

组拼Sql（需要修改）：

<%
    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
%>

输出Json数据（无需修改)：

<%
    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

%>

使用很简单，只需要修改sql语句即可

demo文件:点击下载