让你的网站（MAXCMS4_0）按地区、年份、语言生成分页面(已经修正) -

演示

演示：
粤语电影：http://www.5film.com/html/yueyu.html
香港地区：http://www.5film.com/html/HongKong.html
2010年最新电影：http://www.5film.com/html/2010year.html
标签使用方法和自定义模板那里一样
lang=粤语
area=香港
year=2010或 2001,2002,2003....支持多个年份让你的网站（MAXCMS4_0）按地区、年份、语言生成分页面(已经修正) - 马克斯CMS讨论区 - CC视频站长交流论坛播客系统播客程序威视视频程序马克斯电影程序 - Powered by Discuz!.htm

下面是修改程序的代码
打开inc目录的mainclass.asp文件找到

dim vnum,vorder,vtype,vtopic,vtime,vstart,vstate,vcommend,vletter,vid,

复制代码

在后面添上

,vLang,vArea,vYear,whereLang,whereArea,whereYear

复制代码

然后在找到

vcommend=attrDictionary("commend") : vid=attrDictionary("id")

复制代码

在后面添加上

: vLang=attrDictionary("lang") : varea=attrDictionary("area") : vYear=attrDictionary("year")

复制代码

继续找到代码

if isNul(vnum) then vnum=10 else vnum=clng(vnum)
if isNul(vorder) AND isNul(vid) then vorder="time"
if isNul(vorder) then vorder="id"

复制代码

另起一行加上

'另外加的标签
if not Isnul(vlang) then
whereLang = " and m_lang='"&vlang&"'"
else
whereLang = ""
end if
If not Isnul(varea) Then
whereArea = " and m_publisharea='"&varea&"'"
else
whereArea = ""
end if
If not Isnul(vyear) Then
select case trim(vyear)
case "all" : whereYear=" and m_publishyear>0"
case else
if instr(vyear,",")>0 then whereYear=" and m_publishyear in("&vyear&")" else whereYear = " and m_publishyear ="&vyear
end select
else
whereYear = ""
end if
'另外加的标签