文章列表类别(83)

    '作  用：装载软件类型列表
    '参  数：chanid   ----频道ID
    '        SoftType   ----软件类型
    '        maxline   ----显示列表数
    '        maxlen   ----显示标题长度
    '        showclass   ----是否显示分类
    '        showdate   ----是否显示日期
    '        DateMode   ----显示日期模式
    '        newindow  ----是否新窗口打开连接
    '        styles   ----样式名称
    '================================================
    Public Function LoadSoftType(ByVal chanid, ByVal SoftType, ByVal maxlen, _
        ByVal maxline, ByVal showclass, ByVal showdate, _
        ByVal DateMode, ByVal newindow, ByVal styles)

        Dim SQL, Rs, foundsql, strContent, i
        Dim strSoftName, ChildStr, ListStyle, HtmlFileName, BestCode, BestString
        Dim ClassName, HtmlFileUrl, SoftTime, LinkTarget, SoftTopic

        SoftType = Newasp.CheckStr(SoftType)
        chanid = Newasp.ChkNumeric(chanid)
        maxline = Newasp.ChkNumeric(maxline)
        If chanid = 0 Then chanid = 2
        If maxline = 0 Then maxline = 10

        On Error Resume Next
        Newasp.LoadChannel(chanid)

        If Trim(SoftType) <> "" Then
            foundsql = "And A.SoftType='" & SoftType & "' Order By A.SoftTime Desc ,A.SoftID Desc"