iis asp mysql json_asp返回json数据，asp接口编写

返回json数据

Sub ShowMsg(ErrCode,msg,username,age,sex)

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

Response.End()

End Sub

调用

'信息存在

ShowMsg 0,"信息存在",username,age,sex

'信息不存在

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

如果返回的是信息列表

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

'生成信息列表

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