?!--#include file="../lib/base.asp"--> <% ''' SDCMS tags ''' ================================================================== ''' 版权所?http://www.sdcms.cn ''' ------------------------------------------------------------------ ''' q不是一个自pYӞ您只能在不用于商业目的的前提下对E序代码q行修改和用; ''' 未经授权不允许对E序代码以Q何Ş式Q何目的的再发布? ''' ================================================================== ''' ~写: ITqx ''' 修改QITqx in 2014.07 dim tag:tag=sdcms.enhtml(sdcms.fget("tag",0)) tag=left(tag,20) dim skinsroot skinsroot=theme_tags if sdcms.strlen(tag)>0 then skinsroot=theme_tags_list dim sql_where:sql_where="" if datatype then sql_where=sql_where&" and (instr(1,lcase(tags),lcase('"&tag&"'),0)<>0)" else sql_where=sql_where&" and (tags like '%"&tag&"%')" end if end if sdcms.show skinsroot,"" sdcms.db.dbclose %> 男男裸体猛进猛出gif动态图