文章列表类别

eDir") & Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath) & HtmlFileName
ClassName = "[<a href=''" & Newasp.ChannelPath & Rs("HtmlFileDir") & "index" & Newasp.ChannelHtmlExt & "''>" & ClassName & "</a>]"
Else
HtmlFileUrl = Newasp.ChannelPath & "show.asp?id=" & Rs("softid")
ClassName = "[<a href=''" & Newasp.ChannelPath & "list.asp?classid=" & Rs("ClassID") & "''>" & ClassName & "</a>]"
End If
If CInt(showclass) = 1 Then
ClassName = ClassName
Else
ClassName = ""
End If
If CInt(showdate) = 1 Then
SoftTime = Newasp.ShowDateTime(Rs("SoftTime"), CInt(dateformat))
Else
SoftTime = ""
End If
softname = "<div " & divcss & ">" & start & ClassName & " <a href=""" & HtmlFileUrl & """ target=""" & target & """ title=""" & Newasp.ChannelModule & "标题：" & Rs("SoftName") & " " & Rs("SoftVer") & " 发布时间：" & Rs("SoftTime") & " 阅览次数：" & Rs("AllHits") & """ class=showlist>" & SoftTopic & "</a> " & SoftTime & "</div>"
strContent = strContent & softname
Rs.MoveNext
i = i + 1
Loop
End If
Rs.Close: Set Rs = Nothing
Dim sExtName, ExtName, SoftImage
If CInt(showpic) = 1 Then
SQL = " A.softid,A.ClassID,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.SoftImage,"
SQL = "SELECT " & SQL & " C.HtmlFileDir,B.ChannelDir,B.ModuleName,B.BindDomain,B.DomainName,B.IsCreateHtml,B.HtmlExtName,B.HtmlPath,B.HtmlForm,B.HtmlPrefix,B.LeastHotHist FROM ([NC_SoftList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID) INNER JOIN [NC_Channel] B On A.ChannelID=B.ChannelID WHERE A.isAccept>0 And A.ChannelID=" & CInt(chanid) & " And A.SoftImage<>'''' " & foundstr & ""
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
strPicture = "<img src=''" & Newasp.SiteUrl & Newasp.InstallDir & "images/no_pic.gif'' width=""" & width & """ height=""" & height & """ hspace=""" & hspace & """ vspace=""" & vspace & """ align=""" & align & """ border=""0"">"
Else
HtmlFileName = Newasp.ReadFileName(Rs("HtmlFileDate"), Rs("softid"), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, "")
If CInt(Newasp.ChannelUseHtml) <> 0 Then
HtmlFileUrl = Newasp.ChannelPath & Rs("HtmlFileDir") & Newasp.ShowDatePath(Rs("HtmlFileDate"), Newasp.ChannelHtmlPath) & HtmlFileName
Else
HtmlFileUrl = Newasp.ChannelPath & "show.asp?id=" & Rs("softid")
End If
SoftImage = Newasp.GetImageUrl(Rs("SoftImage"), Newasp.ChannelData(1))