文章列表类别

sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFriendLink(", ")}", 1)
nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFriendLink(", ")}", 0)
arrTempContents = Split(sTempContent, "|||")
arrTempContent = Split(nTempContent, "|||")
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), ",")
strTemp = Replace(strTemp, arrTempContents(i), LoadFriendLink(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3)))
Next
End If
ReadFriendLink = strTemp
End Function
''================================================
''函数名：PageRunTime
''作 用：页面执行时间
''================================================
Public Function ExecutionTime()
Dim Endtime
ExecutionTime = ""
If CInt(Newasp.IsRunTime) = 1 Then
Endtime = Timer()
ExecutionTime = "页面执行时间：" & FormatNumber((((Endtime - startime) * 5000) + 0.5) / 10, 3, -1) & "毫秒"
Else
ExecutionTime = ""
End If
End Function

''================================================
''函数名：CurrentStation
''作 用：当前位置
''参 数：...
''================================================
Public Function CurrentStation(ByVal ChannelID, ByVal ClassID, ByVal ClassName, _
ByVal ParentID, ByVal strParent, ByVal HtmlFileDir, ByVal Compart)

Dim rsCurrent, SQL, strContent, ChannelDir

CurrentStation = ""
ChannelID = Newasp.ChkNumeric(ChannelID)
ClassID = Newasp.ChkNumeric(ClassID)
ParentID = Newasp.ChkNumeric(ParentID)

On Error Resume Next
Newasp.LoadChannel(ChannelID)

ChannelDir = Newasp.ChannelPath

strContent = "<a href=''" & ChannelDir & "''>" & Newasp.ChannelName & "</a>" & Compart & ""
If ParentID <> 0 And Len(strParent) <> 0 Then
SQL = "SELECT ClassID,ClassName,HtmlFileDir,UseHtml FROM [NC_Classify] WHERE ChannelID = " & ChannelID & " And ClassID in(" & strParent & ")"
Set rsCurrent = Newasp.Execute(SQL)
If Not (rsCurrent.EOF And rsCurrent.BOF) Then
Do While Not rsCurrent.EOF

If CInt(Newasp.IsCreateHtml) <> 0 Then
strContent = strContent & "<a href=''" & ChannelDir & rsCurrent("HtmlFileDir") & "''>" & rsCurrent("ClassName") & "</a>" & Compart & ""
Else
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 = strCon