返回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
|
