文章列表类别

TopNum) & " LinkID,LinkName,LinkUrl,LogoUrl,Readme,LinkHist,isLogo from [NC_Link] where isLock = 0 And isLogo = 0 " & strOrder & ""
End If
Set Rs = Newasp.Execute(SQL)
If Not (Rs.BOF And Rs.EOF) Then
strContent = "<table width=""100%"" border=0 cellpadding=1 cellspacing=3 class=FriendLink1>" & vbCrLf
Do While Not Rs.EOF
strContent = strContent & "<tr>" & vbCrLf
For i = 1 To CInt(PerRowNum)
strContent = strContent & "<td align=center class=FriendLink2>"
If Not Rs.EOF Then
If CInt(isLogo) < 2 Then
LinkAddress = Newasp.InstallDir & "link/link.asp?id=" & Rs("LinkID") & "&url=" & Trim(Rs("LinkUrl"))
Else
LinkAddress = Trim(Rs("LinkUrl"))
End If
If Rs("isLogo") = 1 Or CInt(isLogo) = 3 Then
strContent = strContent & "<a href=''" & LinkAddress & "'' target=_blank title=''主页名称：" & Rs("LinkName") & " 点击次数：" & Rs("LinkHist") & "''><img src=''" & Newasp.ReadFileUrl(Rs("LogoUrl")) & "'' width=88 height=31 border=0></a>"
Else
strContent = strContent & "<a href=''" & LinkAddress & "'' target=_blank title=''主页名称：" & Rs("LinkName") & " 点击次数：" & Rs("LinkHist") & "''>" & Rs("LinkName") & "</a>"
End If
strContent = strContent & "</td>" & vbCrLf
Rs.MoveNext
Else
If CInt(isLogo) = 1 Or CInt(isLogo) = 3 Then
strContent = strContent & "<a href=''" & Newasp.InstallDir & "link/addlink.asp'' target=_blank><img src=''" & Newasp.InstallDir & "images/link.gif'' width=88 height=31 border=0></a>"
Else
strContent = strContent & "<a href=''" & Newasp.InstallDir & "link/'' target=_blank>更多连接</a>"
End If
strContent = strContent & "</td>" & vbCrLf
End If
Next
strContent = strContent & "</tr>" & vbCrLf
Loop
strContent = strContent & "</table>" & vbCrLf
End If
LoadFriendLink = strContent
End Function
''================================================
''函数名：ReadFriendLink
''作 用：读取友情连接
''参 数：str ----原字符串
''================================================
Public Function ReadFriendLink(ByVal str)
Dim strTemp, i
Dim sTempContent, nTempContent, ArrayList
Dim arrTempContent, arrTempContents
On Error Resume Next
strTemp = str
If InStr(strTemp, "{$ReadFriendLink(") > 0 Then