当前位置:清晨 » 站长笔记 » jtbc笔记 » (asp)jtbc1.0调用模块下最新分类文章列表方法

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

发布日期:2017年8月27日 10:08:18 点击量: 30

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

打开common\incfiles\module.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.info/2437/,转载请以链接形式注明出处,谢谢合作!


老薛主机专属优惠码: PT ,有需要购买的同学可以使用.可享受30%的优惠.

联系站长: shadoweb@qq.com QQ: 925474725


发表评论

电子邮件地址不会被公开。 必填项已用*标注