asp返回json数据，asp接口编写

这个业务逻辑多少都有点奇怪了，阅读浏览次数增值在新闻详情页的控制器方法里setInc，这怎么还写进模型事件里了。如果非要用onAfterRead也可以，把新闻文章的内容单独分出来一个news_content表，然后把它和news做关联，然后给news_content表的onAfterRead事件做增值处理，这样点进新闻页内查询到文章内容时才会触发它。: 评 TP6模型事件-查询后onAfterRead不好用

文章标签更多

ThinkPHP (254)

Mysql (58)

DedeCms (33)

jQuery (67)

证件照 (1)

尺寸大小 (2)

背景颜色 (1)

setInc (4)

setDec (4)

onclick (5)

友情链接更多

超纯水设备

免费设计

海报设计

快递查询

asp json 接口

打开边栏(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中StrReverse函数

后一篇

asp中escape加密UnEscape解密

相关推荐

asp的Base64加密解密函数

ASP | 2018-07-19 17708

<% OPTION EXPLICIT const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" dim newline dim Base64EncMap(63) dim Base64DecMap(127) '...

请问这个函数是什么意思 CreateObject("MSXML2.XMLHTTP")

ASP | 2018-03-08 5780

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 ...