首页论坛二级调用
作者:cmscn 日期:2005-04-11
<%call main_center_list("forum_er",8,20,4)%>
蓝色就是调用的定义函数,红色的就是forum_id数值!
再
sub main_center_list(cl_type,cl_tnum,cl_cnum,cl_classid)
dim tmp1,tmp_title,tmp_tit,tmp_count,tmp_img,tmp_record,tmp_table,tmp_where,tmp_url,forum_id_er
forum_id_er=4
tmp_img=cl_type
tmp_where="hidden=1"
if cl_classid>0 then tmp_where=tmp_where&" and s_id="&cl_classid
select case cl_type
下面插入
case "forum_er"
cl_type="forum_er"
tmp_title="免费讨论区"
tmp_tit="论坛标题"
tmp_count="论坛回复"
tmp_img="forum"
tmp_table="bbs_topic"
tmp_record="id,topic,username,tim,re_counter,forum_id"
tmp_where="forum_id>0"
if cl_classid>0 then tmp_where="forum_id="&cl_classid
评论: 7 | 引用: 0 | 查看次数: 759
发表评论