asp将数据库数据转换成JSON格式

asp从数据库中读取数据，以JSON形式输出，作为Android 的WebService

<" CODEPAGE="936"%> <!--#include file="conn.asp" --> <% response.Charset = "gb2312" Dim nPageSize,strCatID,strCatName,strInfoView,strInfoFile,nPageCount strCatID=request("ChannelID") nPageSize=request("PageSize") If not Isnumeric(strCatID) Then strCatID=0 End If If not Isnumeric(nPageSize) Then nPageSize=0 End If If strCatID<=0 Then Response.Write "参数错误!" Response.End End If If nPageSize<=0 Then Response.Write "参数错误!" Response.End End If cmdQuery.CommandText = "select top "&nPageSize&" nid,title,source,digest,ptime from t_news where cid="&strCatID&" order by nid desc" Set rstCat=cmdQuery.Execute If not rstCat.Eof Then response.Write "{ret:0,data:{newslist:[" for i=1 to nPageSize response.Write "{" response.Write "title:"&rstCat("title")&"," Set cmdQuery2=Server.CreateObject("ADODB.Command") Set cmdQuery2.ActiveConnection = cnnMyedu123 cmdQuery2.CommandType=1 cmdQuery2.CommandText = "select * from ViewCommentCount where nid="&rstCat("nid") Set rstCount=cmdQuery2.Execute if not rstCount.eof then response.Write "commentcount:"&rstCount("commentcount")&"," else response.Write "commentcount:0," end if set rstCount = nothing set cmdQuery2 = nothing response.Write "source:"&rstCat("source")&"," response.Write "nid:"&rstCat("nid")&"," response.Write "digest:"&rstCat("digest")&"," response.Write "ptime:"&rstCat("ptime")&"" if i = nPageSize-1 then response.Write "}" else response.Write "}," end if rstCat.movenext if rstCat.eof then exit for end if next response.Write "]," response.Write "totalnum:"&nPageSize&"" response.Write "}," response.Write "msg:ok" response.Write "}" Else Response.Write "栏目不存在!" Response.End End If Set rstCat=Nothing set cmdQuery = nothing %>