当前位置:首页 > 站长笔记 > jtbc笔记 > 正文
运行天数:2999 天 最后更新:2020-7-7

(asp)jtbc1.0调用模块下最新分类文章列表方法

用手机或者平板电脑扫描应用扫描本二维码,可以在手机浏览器继续浏览,也可以分享给你的联系人。

2017年08月27日 | 作者: 影子 | 分类: jtbc笔记, 站长笔记 | 点击量: 831

WDJA网站内容管理系统,免费开源可商用 点我获取,简单好用的PHP版CMS

(asp)jtbc1.0调用模块下最新分类文章列表方法

打开commonincfilesmodule.asp
添加函数
//add

Function get_topcid(ByVal strgenre)
Dim trs, tsqlstr
tsqlstr = “select max(sortid) from jtbc_sys_sort where sort_genre='” & strgenre &”‘ and sort_hidden=0″
Set trs = conn.Execute(tsqlstr)
get_topcid = trs(0)
Set trs = Nothing
End Function

修改函数
Function itransfer(ByVal itype, ByVal itpl, ByVal ivars)
找到
Case “top”
tsqlstr = “select top ” & ttopx & ” * from ” & tdatabase & ” where ” & tfpre & “hidden=0″
tsqlorder =” order by ” & tidfield & ” asc”
下面添加
Case “top_cid”
tclass = get_num(get_topcid(tgenre), 0)
tsqlstr = “select top ” & ttopx & ” * from ” & tdatabase & ” where ” & tfpre & “hidden=0″
tsqlorder =” order by ” & tidfield & ” desc”

调用实例

{$=itransfer(‘top_cid’, ‘anli_img’, ‘topx=1;tnum=25;rows=2;genre=anli;’)}



手机扫码浏览本文


关键词:,

本文网址:https://www.menglei.net/2437/,转载请以链接形式注明出处,谢谢合作!

*本站部分内容转载自其他媒体,版权归其所有。如若内容或图片侵犯您的权益,请与本站联系,我们将在24小时内处理完毕。

作者:清晨@深圳网站建设专家. | 清晨,领先的深圳网站优化品牌。

交流QQ号:925474725 邮件支持:shadoweb@qq.com