asp读取表中记录生成json数据

2.asp的代码如下：
<!--#include file="conn.asp"-->
<!--#include file="json.asp"-->
<!--#include file="JSON_UTIL.asp"-->
<%
    response.ContentType = "text/json"
    keyword = request("id")
    Set Rs = Server.CreateObject("ADODB.Recordset")      
    sql = "select top 1 * from 表名 where Idcard = '"&keyword&"'"
    '将获取的记录集转json
    Set json = QueryToJSON(conn, sql) 
    '输出json
    response.write json.Flush
    set Rs = nothing
    response.end
%>
这里用到三个文件，
连接数据库文件conn.asp，这里就不作介绍了。
另外两个json.asp和JSON_UTIL.asp是用来将记录集转成Json的asp类，代码如下：

【1】 2 【3】