asp如何返回json数据，asp接口返回json数据

返回json数据

1 2 3 4

Sub ShowMsg(ErrCode,msg,username,age,sex)     response.Write("{""code"":"""& ErrCode &""",""msg"":"""& msg &""",""data"":{""username"":"""& username &""",""age"":"""& age &""",""sex"":"""& sex &"""}}")     Response.End() End Sub

调用

1 2 3 4

'信息存在 ShowMsg 0,"信息存在",username,age,sex '信息不存在 ShowMsg 1,"信息不存在",username,age,sex

====================================================================================

如果返回的是信息列表

1 2 3 4 5

Sub ShowMsg(ByVal ErrCode,msg,news_list,news_class_name)     response.Write("{""code"":"""& ErrCode &""",""msg"":"""& msg &""",""data"":{""news_list"":["& news_list &"],""news_class_name"":"""& news_class_name &"""}}")           Response.End() End Sub

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

'生成信息列表 iRs.Open iSQL, DB, 1, 1 If Not iRs.EOF Then     i = 1     news_list = ""     Do While Not iRs.EOF         news_id = iRs("news_id")         news_title = iRs("news_title")         if i = 1 then             news_list = "{""news_title"":"""& news_title &""",""news_id"":"""& news_id &"""}"         else             news_list = news_list & ",{""news_title"":"""& news_title &""",""news_id"":"""& news_id &"""}"         end if         i = i + 1         iRs.MoveNext     Loop End If   '调用 ShowMsg 0,"信息存在",news_list,news_class_name