1.打开./common/incfiles/module.asp

找到Function itransfer(ByVal itype, ByVal itpl, ByVal ivars)

 修改代码

tclass = get_num(get_strvalue(ivars, "class"), 0)

为

 

if instr(1,get_strvalue(ivars, "class"),",")=false  then 

  tclass = get_num(get_strvalue(ivars, "class"), 0) 

else 

  tclass = get_strvalue(ivars, "class") 

end if 

修改

  If not tclass = 0 Then tsqlstr = tsqlstr & " and " & tfpre & "class=" & tclass

为

 

if instr(1,get_strvalue(ivars, "class"),",")=false  then 

  If not tclass = 0 Then tsqlstr = tsqlstr & " and " & tfpre & "class=" & tclass 

else 

  tsqlstr = tsqlstr & " and " & tfpre & "class in (" & tclass & ")" 

end if 

 

2.使用方法

用函数itransfer使用.

 

 

{$=itransfer('top', 'anli_img', 'topx=10;tnum=30;genre=anli;class=9,10,11,12')} 

 

 class直接填写需调用的分类即可.