文章列表类别

sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashPic(", ")}", 1)
nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadFlashPic(", ")}", 0)
arrTempContents = Split(sTempContent, "|||")
arrTempContent = Split(nTempContent, "|||")
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), ",")
strTemp = Replace(strTemp, arrTempContents(i), LoadFlashPic(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10)))
Next
End If
ReadFlashPic = strTemp
End Function
''================================================
''函数名：LoadFriendLink
''作 用：装载友情连接
''参 数：str ----原字符串
''================================================
Public Function LoadFriendLink(ByVal TopNum, ByVal PerRowNum, ByVal isLogo, ByVal orders)
Dim Rs, SQL, i, strContent
Dim strOrder, LinkAddress

strContent = ""
If Not IsNumeric(TopNum) Then Exit Function
If Not IsNumeric(PerRowNum) Then Exit Function
If Not IsNumeric(isLogo) Then Exit Function
If Not IsNumeric(orders) Then Exit Function
On Error Resume Next
If CInt(orders) = 1 Then
''-- 首页显示按时间升序排列
strOrder = "And isIndex > 0 Order By LinkTime Desc,LinkID Desc"
ElseIf CInt(orders) = 2 Then
''-- 首页显示按点击数升序排列
strOrder = "And isIndex > 0 Order By LinkHist Desc,LinkID Desc"
ElseIf CInt(orders) = 3 Then
''-- 首页显示按点击数降序排列
strOrder = "And isIndex > 0 Order By LinkHist Desc,LinkID Asc"
ElseIf CInt(orders) = 4 Then
''-- 所有按升序排列
strOrder = "Order By LinkID Desc"
ElseIf CInt(orders) = 5 Then
''-- 所有按降序排列
strOrder = "Order By LinkID Asc"
ElseIf CInt(orders) = 6 Then
''-- 所有按点击数升序排列
strOrder = "Order By LinkHist Desc,LinkID Desc"
ElseIf CInt(orders) = 7 Then
''-- 所有按点击数降序排列
strOrder = "Order By LinkHist Desc,LinkID Asc"
ElseIf CInt(orders) = 8 Then
''-- 首页显示按名称排列
strOrder = "And isIndex > 0 Order By LinkName Desc,LinkID Desc"
ElseIf CInt(orders) = 9 Then
''-- 所有按名称排列
strOrder = "Order By LinkName Desc,LinkID Desc"
Else
''-- 首页显示按时间降序排列
strOrder = "And isIndex > 0 Order By LinkTime Asc,LinkID Asc"
End If
If CInt(isLogo) = 1 Or CInt(isLogo) = 3 Then
SQL = "Select Top " & CInt(TopNum) & " LinkID,LinkName,LinkUrl,LogoUrl,Readme,LinkHist,isLogo from [NC_Link] where isLock = 0 And isLogo > 0 " & strOrder & ""
Else
SQL = "Select Top " & CInt(