文章列表类别

strContent = Replace(strContent, "{$ArticlePicture}", "<a href=''" & HtmlFileUrl & "'' title=''" & Rs("title") & "''" & LinkTarget & ">" & ImageUrl & "</a>")
If CInt(showtopic) = 1 Then
strContent = Replace(strContent, "{$ArticleTopic}", "<a href=''" & HtmlFileUrl & "'' title=''" & Rs("title") & "''" & LinkTarget & ">" & sTitle & "</a>")
Else
strContent = Replace(strContent, "{$ArticleTopic}", vbNullString)
End If
strContent = strContent & "</td>" & vbCrLf
Rs.MoveNext
End If
Next
strContent = strContent & "</tr>" & vbCrLf
Loop
strContent = strContent & "</table>" & vbCrLf
End If
Rs.Close: Set Rs = Nothing
LoadArticlePic = strContent
End Function
''================================================
''函数名：ReadArticlePic
''作 用：读取文章图片列表
''参 数：str ----原字符串
''================================================
Public Function ReadArticlePic(ByVal str)
Dim strTemp, i
Dim sTempContent, nTempContent, ArrayList
Dim arrTempContent, arrTempContents
On Error Resume Next
strTemp = str
If InStr(strTemp, "{$ReadArticlePic(") > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticlePic(", ")}", 1)
nTempContent = Newasp.CutMatchContent(strTemp, "{$ReadArticlePic(", ")}", 0)
arrTempContents = Split(sTempContent, "|||")
arrTempContent = Split(nTempContent, "|||")
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), ",")
strTemp = Replace(strTemp, arrTempContents(i), LoadArticlePic(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
ReadArticlePic = strTemp
End Function
''================================================
''函数名：LoadSoftPic
''作 用：装载软件图片列表
''参 数：ClassID ----分类ID
'' ChannelID ----频道ID
'' sType ----调用软件类型,0=所有最新软件，1=推荐软件，2=热门软件
'' TopNum ----显示软件列表数
'' strlen ----显示标题长度
'' newindow ----新窗口打开
''================================================
Public Function LoadSoftPic(ChannelID, ClassID, SpecialID, stype, TopNum, PerRowNum, strLen, newindow, width, height, showtopic)
Dim Rs, SQL, i, strContent, foundstr
Dim strSoftName, ChildStr, SoftImage, HtmlFileName
Dim HtmlFileUrl, SoftTime, LinkTarget

ChannelID = Newasp.ChkNumeric(ChannelID)
ClassID = Newasp.ChkNumeric(ClassID)
SpecialID = Newasp.ChkNum