需要引用的文件：
json.asp(可在JSON官网下载，也可在底部链接的demo中直接拷贝该文件)
Conn.asp是链接数据库文件
<%@LANGUAGE="%> <% 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,,
jsonStr = ""
rows = ""
Dim i,json_rows,json_ret,arr_rows
Dim myArray()
) '将数组大小重新定义为20
Set jsonObj=New json
jsonObj.toResponse=False
Set json_ret = server.createobject("scripting.dictionary")
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文件链接: