文章列表类别

<% Dim HTML Set HTML = New NewaspPublic_Cls Class NewaspPublic_Cls Private Sub Class_Initialize() On Error Resume Next Newasp.LoadTemplates 0, 0, 0 End Sub ‘================================================ ‘函数名:LoadArticleList ‘作 用:装载文章列表 ‘参 数:ClassID