<%
dim page
page=filterPara(getForm("page","get"))
if isnul(page) or not isnum(page) then page=1
echo tags(cint(page))
Function tags(Byval page)
dim templateFile
dim templateobj,TemplatePath : set templateobj=new TemplateClass
dim rsObj,rsObjSmalltype,rsObjBigtype,channelTemplateName,tempStr,tempArr,pageStr,sql,sperStr,sperStrs,content,contentLink
templatePath=sitePath&"/"&"templates/"&setting.defaultTemplate&"/"&setting.htmlFilePath&"/tags.html"
'die templatePath
if not CheckTemplateFile(templatePath) then echo templateFile&err_16 : exit function
'é_ʼ½âÎö˜Ëºž
templateObj.load(templatePath)
templateObj.parseHtml()
templateObj.parseList 0,page,"taglist","","tags"
templateObj.parseCommon
tags=templateObj.content
set templateobj=nothing
End Function
%>国产野花视频精选,少妇无码aV无码专区在线,亚洲综合鲁鲁五月天,日本中文字幕熟妇在线电影