用户信息
帖子内容
1 楼
helong_0601
注册会员
积分 12
注册 2012-04-24
     
获取当前class的最大值
$=itransfer('top', '4', 'topx=30;tnum=300;genre=article;class=当前最大值')}给这里添加当前最新的classid怎么做到,我用js试着取得最新的classid ,但是不能编辑进去

2017-08-26 19:48:00
2 楼
shadoweb
钻石会员
积分 678
注册 2014-11-27
     
回复: 获取当前class的最大值
打开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;')}
<br>
<br>
<br>

本帖由 shadoweb 于 2017-08-27 00:36:11 编辑过
2017-08-27 00:33:08 影子互联承接JTBC建站,模板定制,二次开发, QQ925474725 网址www.shadoweb.cn