asp返回json数据,asp接口编写
taotaoit ASP 2018-05-28 2379 0
关于本站

本人承接php网站维护,病毒查杀,网站编辑,网站改版,html制作

有需要网站维护,改版,病毒查杀,网站编辑,网站备案,html制作等相关的工作可以联系我。
本人有多年相关工作经验,也可提供免费咨询,交个朋友。
有需要探讨问题的朋友,也可以加我微信,共同探讨!
微信:15011482830 QQ:408917339

1871540 1694 18
最新评论
报错 in promise) MiniProgramError {"errMsg":"removeTabBarBadge:fail not TabBar page"} Object
评 人人商城小程序昵称变成了“微信用户”头像也不显示?getUserInfo换成getUserProfile
按照这个修改后报错: ReferenceError: n is not defined at success (index.js? [sm]:3) at Function.forEach.u.<computed> (VM10210 WAService.js:2) at :55237/appservice/<api login success callback function> at Object.success (VM10210 WAService.js:2) at r (VM10210 WAService.js:2) at VM10210 WAService.js:2 at w (VM10210 WAService.js:2) at VM10210 WAService.js:2 at VM15 asdebug.js:1 at I (VM15 asdebug.js:1)(env: Windows,mp,1.05.2105170; lib: 2.17.0)
评 人人商城小程序昵称变成了“微信用户”头像也不显示?getUserInfo换成getUserProfile
asfdsafasdf
评 ;!function(){}();
:kaixin:
评 thinkphp 3.2.3 Runtime\Logs日志文件太多怎么关闭日志功能
其他浏览器呢
评 对服务器的请求已遭到某个扩展程序的阻止
文章标签更多
ThinkPHP (165)
Mysql (39)
DedeCms (33)
jQuery (44)
证件照 (1)
setInc (3)
setDec (3)
onclick (5)
打开边栏(ESC) 关闭边栏(ESC)

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

版权声明:本站原创文章,允许自由转载。

相关推荐
asp的Base64加密解密函数
ASP | 2018-07-19 2694
<% OPTION EXPLICIT const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" dim newline dim Base64EncMap(63) dim Base64DecMap(127) '...
请问这个函数是什么意思 CreateObject("MSXML2.XMLHTTP")
ASP | 2018-03-08 2165
private Function getHTTPPage(url) On Error Resume Next Dim http Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.send If http.readyState ...
评论:0条
评论加载中...
发表评论