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

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

<%@LANGUAGE="VBSCRIPT" 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
%>