文章列表类别

tent & "<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
strTemp = str
If InStr(strTemp, "{$CurrentStation(") > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, "{$CurrentStation(", ")}", 1)
nTempContent = Newasp.CutMatchContent(strTemp, "{$CurrentStation(", ")}", 0)
arrTempContents = Split(sTempContent, "|||")
arrTempContent = Split(nTempContent, "|||")
For i = 0 To UBound(arrTempContents)
strTemp = Replace(strTemp, arrTempContents(i), CurrentStation(ChannelID, ClassID, ClassName, ParentID, strParent, HtmlFileDir, arrTempContent(i)))
Next
End If
ReadCurrentStation = strTemp
End Function
''================================================
''函数名：NewsPictureAndText
''作 用：图文混排列表
''================================================
Public Function NewsPictureAndText(ByVal chanid, ByVal ClassID, ByVal specid, _
ByVal stype, ByVal height, ByVal width, ByVal maxlen, _
ByVal maxline, ByVal hspace, ByVal vspace, ByVal align, _
ByVal divcss, ByVal target, ByVal start, ByVal showpic, _
ByVal showclass, ByVal showdate, ByVal dateformat)

Dim Rs, SQL, i, strContent, foundstr
Dim ChildStr, HtmlFileUrl, HtmlFileName, strPicture
Dim PicTopic, NewsTitle, ClassName, ArticleTitle, WriteTime

chanid = Newasp.ChkNumeric(chanid)
ClassID = Newasp.ChkNumeric(ClassID)
specid = Newasp.ChkNumeric(specid)
stype = Newasp.ChkNumeric(stype)

On Error Resume Next
Newasp.LoadChannel(chanid)

If CInt(stype) >= 3 And CLng(ClassID) <> 0 Then
SQL = "SELECT ChildStr FROM [NC_Classify] WHERE ChannelID = " & chanid & " And ClassID = " & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
NewsPictureAndText = ""
Exit Function
Else
ChildStr = Rs("ChildStr")
End If
Rs.Close
Else
ChildStr = "0"
End If
Select Case CInt(stype)
Case 0: foundstr = "ORDER BY A.Writetime DESC ,A.Ar