asp生成json

• 
  

<!-- #include file = "Conn.asp"   -->

<!-- #include file = "json.asp" -->

 <%Response.ContentType = "text/json"

  if   Request.QueryString("id") =""  then Response.end

 ' 记录集转为Json

 set  i = new  json

i.toResponse = false

set  rs = server.CreateObject("adodb.recordset")

sqlstr = "SELECT * FROM 数据表 WHERE 筛选条件 ORDER BY 排序列"

rs.open sqlstr,conn, 0 , 1

v = i.toJson( "名称" ,rs, false )

rs.close

response.write v

%>