文章列表类别
hen
WriteTime = Newasp.ShowDateTime(Rs("WriteTime"), CInt(dateformat))
Else
WriteTime = ""
End If
ArticleTitle = "<div " & divcss & ">" & start & ClassName & " <a href=""" & HtmlFileUrl & """ target=""" & target & """ title=""" & Newasp.ChannelModule & "标题：" & Rs("title") & " 发布时间：" & Rs("WriteTime") & " 阅览次数：" & Rs("AllHits") & """ class=showlist>" & NewsTitle & "</a> " & WriteTime & "</div>"
strContent = strContent & ArticleTitle
Rs.MoveNext
i = i + 1
Loop
End If
Rs.Close: Set Rs = Nothing
Dim sExtName, ExtName, ImageUrl
If CInt(showpic) = 1 Then
SQL = " A.ArticleID,A.ClassID,A.title,A.AllHits,A.WriteTime,A.HtmlFileDate,A.ImageUrl,"
SQL = "SELECT " & SQL & " C.HtmlFileDir,B.ChannelDir,B.StopChannel,B.ModuleName,B.BindDomain,B.DomainName,B.IsCreateHtml,B.HtmlExtName,B.HtmlPath,B.HtmlForm,B.HtmlPrefix,B.LeastHotHist FROM ([NC_Article] 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.ImageUrl<>'''' " & 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("ArticleID"), 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("ArticleID")
End If
ImageUrl = Newasp.GetImageUrl(Rs("ImageUrl"), Newasp.ChannelData(1))
sExtName = Split(Rs("ImageUrl"), ".")
ExtName = sExtName(UBound(sExtName))
Select Case LCase(ExtName)
Case "swf", "swi"
strPicture = "<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width=""" & width & """ height=""" & height & """ hspace=""" & hspace & """ vspace=""" & vspace & """ align=""" & align & """>" & vbNewLine
strPicture = strPicture & " <param name=""movie"" value=""" & ImageUrl & """>" & vbNewLine
strPicture = strPicture & " <param name=""quality"" value=""high""&g
WriteTime = Newasp.ShowDateTime(Rs("WriteTime"), CInt(dateformat))
Else
WriteTime = ""
End If
ArticleTitle = "<div " & divcss & ">" & start & ClassName & " <a href=""" & HtmlFileUrl & """ target=""" & target & """ title=""" & Newasp.ChannelModule & "标题：" & Rs("title") & " 发布时间：" & Rs("WriteTime") & " 阅览次数：" & Rs("AllHits") & """ class=showlist>" & NewsTitle & "</a> " & WriteTime & "</div>"
strContent = strContent & ArticleTitle
Rs.MoveNext
i = i + 1
Loop
End If
Rs.Close: Set Rs = Nothing
Dim sExtName, ExtName, ImageUrl
If CInt(showpic) = 1 Then
SQL = " A.ArticleID,A.ClassID,A.title,A.AllHits,A.WriteTime,A.HtmlFileDate,A.ImageUrl,"
SQL = "SELECT " & SQL & " C.HtmlFileDir,B.ChannelDir,B.StopChannel,B.ModuleName,B.BindDomain,B.DomainName,B.IsCreateHtml,B.HtmlExtName,B.HtmlPath,B.HtmlForm,B.HtmlPrefix,B.LeastHotHist FROM ([NC_Article] 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.ImageUrl<>'''' " & 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("ArticleID"), 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("ArticleID")
End If
ImageUrl = Newasp.GetImageUrl(Rs("ImageUrl"), Newasp.ChannelData(1))
sExtName = Split(Rs("ImageUrl"), ".")
ExtName = sExtName(UBound(sExtName))
Select Case LCase(ExtName)
Case "swf", "swi"
strPicture = "<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width=""" & width & """ height=""" & height & """ hspace=""" & hspace & """ vspace=""" & vspace & """ align=""" & align & """>" & vbNewLine
strPicture = strPicture & " <param name=""movie"" value=""" & ImageUrl & """>" & vbNewLine
strPicture = strPicture & " <param name=""quality"" value=""high""&g