文章列表类别(49)

                        strContent = strContent & "<a href='" & ChannelDir & "list.asp?classid=" & rsCurrent("ClassID") & "'>" & rsCurrent("ClassName") & "</a>" & Compart & ""
                    End If
                    rsCurrent.MoveNext
                Loop
            End If
            rsCurrent.Close
            Set rsCurrent = Nothing
        End If
        If CInt(Newasp.IsCreateHtml) <> 0 Then
            strContent = strContent & "<a href='" & ChannelDir & HtmlFileDir & "'>" & ClassName & "</a>"
        Else
            strContent = strContent & "<a href='" & ChannelDir & "list.asp?classid=" & ClassID & "'>" & ClassName & "</a>"
        End If
        CurrentStation = strContent
    End Function
    '================================================
    '函数名：ReadCurrentStation
    '作  用：读取当前位置
    '参  数：str ----原字符串
    '================================================
    Public Function ReadCurrentStation(ByVal str, ByVal ChannelID, ByVal ClassID, _
        ByVal ClassName, ByVal ParentID, ByVal strParent, ByVal HtmlFileDir)

        Dim strTemp, i
        Dim sTempContent, nTempContent
        Dim arrTempContent, arrTempContents
        On Error Resume Next