eee365的专栏

Public Function GetCustomFromTemplate(strValue) 得到自定义列表的版面设计的HTML代码 Dim strCustom, strParameter strCustom = strValue regEx.Pattern = "【ArticleList/((.*?)/)】([/s/S]*?)【//ArticleList】"

Private Function GetListFromLabel(ByVal strSource) Dim arrTemp Dim tChannelID, ArticleNum, arrClassID, tSpecialID, AuthorName, OrderType, OpenType If strSource = "" Then GetLis

D