<%
Dim HTML
Set HTML = New NewaspPublic_Cls
Class NewaspPublic_Cls
Private Sub Class_Initialize()
On Error Resume Next
Newasp.LoadTemplates 0, 0, 0
End Sub
‘================================================
‘函数名：LoadArticleList
‘作 用：装载文章列表
‘参 数：ClassID —-分类ID
‘ ChannelID —-频道ID
‘ SpecialID —-专题ID
‘ sType —-调用文章类型,0=所有最新文章，1=推荐文章，2=热门文章，3=图文文章，4=分类最新文章
‘ TopNum —-显示文章列表数
‘ strlen —-显示标题长度
‘ ShowClass —-是否显示分类
‘ ShowPic —-是否显示图文标题
‘ ShowDate —-是否显示日期
‘ DateMode —-显示日期模式
‘ newindow —-新窗口打开
‘================================================
Public Function LoadArticleList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
ByVal stype, ByVal TopNum, ByVal strLen, _
ByVal showclass, ByVal showpic, ByVal showdate, _
ByVal DateMode, ByVal newindow, ByVal styles)
Dim Rs, SQL, i, strContent, foundstr
Dim sTitle, sTopic, ChildStr, ListStyle, BestCode, BestString
Dim ArticleTopic, ClassName, HtmlFileUrl, WriteTime, LinkTarget, HtmlFileName
ChannelID = Newasp.ChkNumeric(ChannelID)
ClassID = Newasp.ChkNumeric(ClassID)
SpecialID = Newasp.ChkNumeric(SpecialID)
stype = Newasp.ChkNumeric(stype)
On Error Resume Next
Newasp.LoadChannel(ChannelID)
If CInt(stype) >= 4 And CLng(ClassID) 0 Then
SQL = “SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=” & ChannelID & ” And ClassID=” & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
LoadArticleList = “”
Exit Function
Else
ChildStr = Rs(“ChildStr”)
End If
Set Rs = Nothing
Else
ChildStr = “0”
End If
Select Case CInt(stype)
Case 0: foundstr = “Order By A.Writetime Desc ,A.Articleid Desc”
Case 1: foundstr = “And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc”
Case 2: foundstr = “Order By A.AllHits Desc ,A.Articleid Desc”
Case 3: foundstr = “And (A.BriefTopic = 1 Or A.BriefTopic = 2) Order By A.Writetime Desc ,A.Articleid Desc”
Case 4: foundstr = “And A.ClassID in (” & ChildStr & “) Order By A.Writetime Desc ,A.Articleid Desc”
Case 5: foundstr = “And A.ClassID in (” & ChildStr & “) And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc”
Case 6: foundstr = “And A.ClassID in (” & ChildStr & “) Order By A.AllHits Desc ,A.Articleid Desc”
Case 7: foundstr = “And A.ClassID in (” & ChildStr & “) And (A.BriefTopic = 1 Or A.BriefTopic = 2) Order By A.Writetime Desc ,A.Articleid Desc”
Case Else
foundstr = “Order By A.Writetime Desc ,A.Articleid Desc”
End Select
If CInt(stype) >= 4 And CLng(ClassID) = 0 Then
foundstr = “Order By A.Writetime Desc ,A.Articleid Desc”
End If
If CLng(SpecialID) 0 Then
foundstr = “And A.SpecialID =” & CLng(SpecialID) & ” ” & foundstr
End If
SQL = ” A.ArticleID,A.ClassID,A.ColorMode,A.FontMode,A.title,A.BriefTopic,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest,”
SQL = “SELECT Top ” & CInt(TopNum) & SQL & ” C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml FROM [NC_Article] A INNER JOIn [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=” & ChannelID & ” ” & foundstr & “”
Set Rs = Newasp.Execute(SQL)
i = 0
If Rs.BOF And Rs.EOF Then
strContent = “该分类还没有添加任何内容！”
Else
strContent = “
”
End If
Rs.Close: Set Rs = Nothing
LoadArticleList = strContent
End Function
‘================================================
‘函数名：ReadArticleList
‘作 用：读取文章列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadArticleList(ByVal str)
Dim strTemp, i
Dim sTempContent, nTempContent
Dim arrTempContent, arrTempContents, ArrayList
On Error Resume Next
strTemp = str
If InStr(strTemp, “{$ReadArticleList(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadArticleList(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadArticleList(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadArticleList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10), ArrayList(11)))
Next
End If
ReadArticleList = strTemp
End Function
‘================================================
‘函数名：LoadSoftList
‘作 用：装载软件列表
‘参 数：ClassID —-分类ID
‘ ChannelID —-频道ID
‘ sType —-调用类型
‘ TopNum —-显示列表数
‘ strlen —-显示标题长度
‘ ShowClass —-是否显示分类
‘ ShowDate —-是否显示日期
‘ DateMode —-显示日期模式
‘ newindow —-新窗口打开
‘================================================
Public Function LoadSoftList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
ByVal stype, ByVal TopNum, ByVal strLen, ByVal showclass, _
ByVal showdate, ByVal DateMode, ByVal newindow, ByVal styles)
Dim Rs, SQL, i, strContent, foundstr,j
Dim strSoftName, ChildStr, ListStyle
Dim HtmlFileName, BestCode, BestString,ChannelPath
Dim ClassName, HtmlFileUrl, SoftTime, LinkTarget, SoftTopic
ChannelID = Newasp.ChkNumeric(ChannelID)
ClassID = Newasp.ChkNumeric(ClassID)
SpecialID = Newasp.ChkNumeric(SpecialID)
stype = Newasp.ChkNumeric(stype)
On Error Resume Next
Newasp.LoadChannel(ChannelID)
If CInt(stype) >= 3 And CLng(ClassID) 0 Then
SQL = “SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=” & ChannelID & ” And ClassID = ” & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
LoadSoftList = “”
Exit Function
Else
ChildStr = Rs(“ChildStr”)
End If
Rs.Close
Else
ChildStr = 0
End If
Select Case CInt(stype)
Case 0: foundstr = “Order By A.SoftTime Desc ,A.SoftID Desc”
Case 1: foundstr = “And A.isBest > 0 Order By A.SoftTime Desc ,A.SoftID Desc”
Case 2: foundstr = “Order By A.AllHits Desc ,A.SoftID Desc”
Case 3: foundstr = “And A.ClassID in (” & ChildStr & “) Order By A.SoftTime Desc ,A.SoftID Desc”
Case 4: foundstr = “And A.ClassID in (” & ChildStr & “) And A.isBest > 0 Order By A.SoftTime Desc ,A.SoftID Desc”
Case 5: foundstr = “And A.ClassID in (” & ChildStr & “) Order By A.AllHits Desc ,A.SoftID Desc”
Case Else
foundstr = “Order By A.SoftTime Desc ,A.SoftID Desc”
End Select
If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
foundstr = “Order By A.SoftTime Desc ,A.SoftID Desc”
End If
If CLng(SpecialID) 0 Then
foundstr = “And A.SpecialID =” & CLng(SpecialID) & ” ” & foundstr
End If
SQL = ” A.SoftID,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,”
SQL = “SELECT TOP ” & CInt(TopNum) & SQL & ” C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml FROM [NC_SoftList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=” & ChannelID & ” ” & foundstr & “”
Set Rs = Newasp.Execute(SQL)
j = 0
If Rs.BOF And Rs.EOF Then
strContent = “没有添加任何软件！”
Else
SQL=Rs.GetRows(-1)
strContent = “
”
End If
Rs.Close: Set Rs = Nothing
LoadSoftList = strContent
End Function
‘================================================
‘函数名：ReadSoftList
‘作 用：读取软件列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadSoftList(ByVal str)
Dim strTemp, i
Dim sTempContent, nTempContent
Dim arrTempContent, arrTempContents, ArrayList
On Error Resume Next
strTemp = str
If InStr(strTemp, “{$ReadSoftList(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadSoftList(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadSoftList(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadSoftList(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
ReadSoftList = strTemp
End Function
‘================================================
‘函数名：LoadFlashList
‘作 用：装载动画列表
‘参 数：ClassID —-分类ID
‘ ChannelID —-频道ID
‘ sType —-调用类型
‘ TopNum —-显示列表数
‘ strlen —-显示标题长度
‘ ShowClass —-是否显示分类
‘ ShowDate —-是否显示日期
‘ DateMode —-显示日期模式
‘ newindow —-新窗口打开
‘================================================
Public Function LoadFlashList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
ByVal stype, ByVal TopNum, ByVal strLen, ByVal showclass, _
ByVal showdate, ByVal DateMode, ByVal newindow, ByVal styles)
Dim Rs, SQL, i, strContent, foundstr,j
Dim strTitle, ChildStr, ListStyle
Dim HtmlFileName, BestCode, BestString,ChannelPath
Dim ClassName, HtmlFileUrl, addTime, LinkTarget, FlashTopic
ChannelID = Newasp.ChkNumeric(ChannelID)
ClassID = Newasp.ChkNumeric(ClassID)
SpecialID = Newasp.ChkNumeric(SpecialID)
stype = Newasp.ChkNumeric(stype)
On Error Resume Next
Newasp.LoadChannel(ChannelID)
If CInt(stype) >= 3 And CLng(ClassID) 0 Then
SQL = “SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=” & ChannelID & ” And ClassID = ” & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
LoadFlashList = “”
Exit Function
Else
ChildStr = Rs(“ChildStr”)
End If
Rs.Close
Else
ChildStr = 0
End If
Select Case CInt(stype)
Case 0: foundstr = “Order By A.addTime Desc ,A.flashid Desc”
Case 1: foundstr = “And A.isBest > 0 Order By A.addTime Desc ,A.flashid Desc”
Case 2: foundstr = “Order By A.AllHits Desc ,A.flashid Desc”
Case 3: foundstr = “And A.ClassID in (” & ChildStr & “) Order By A.addTime Desc ,A.flashid Desc”
Case 4: foundstr = “And A.ClassID in (” & ChildStr & “) And A.isBest > 0 Order By A.addTime Desc ,A.flashid Desc”
Case 5: foundstr = “And A.ClassID in (” & ChildStr & “) Order By A.AllHits Desc ,A.flashid Desc”
Case Else
foundstr = “Order By A.addTime Desc ,A.flashid Desc”
End Select
If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
foundstr = “Order By A.addTime Desc ,A.flashid Desc”
End If
If CLng(SpecialID) 0 Then
foundstr = “And A.SpecialID =” & CLng(SpecialID) & ” ” & foundstr
End If
SQL = ” A.flashid,A.ClassID,A.ColorMode,A.FontMode,A.title,A.Author,A.AllHits,A.addTime,A.HtmlFileDate,A.isBest,”
SQL = “SELECT TOP ” & CInt(TopNum) & SQL & ” C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml FROM [NC_FlashList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=” & ChannelID & ” ” & foundstr & “”
Set Rs = Newasp.Execute(SQL)
j = 0
If Rs.BOF And Rs.EOF Then
strContent = “没有添加任何信息！”
Else
SQL=Rs.GetRows(-1)
strContent = “
”
End If
Rs.Close: Set Rs = Nothing
LoadFlashList = strContent
End Function
‘================================================
‘函数名：ReadFlashList
‘作 用：读取动画列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadFlashList(ByVal str)
Dim strTemp, i
Dim sTempContent, nTempContent
Dim arrTempContent, arrTempContents, ArrayList
On Error Resume Next
strTemp = str
If InStr(strTemp, “{$ReadFlashList(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadFlashList(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadFlashList(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadFlashList(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
ReadFlashList = strTemp
End Function
‘================================================
‘函数名：LoadAnnounceContent
‘作 用：装载内容公告
‘参 数：str —-原字符串
‘================================================
Public Function LoadAnnounceContent(ByVal sTopic, ByVal ChannelID)
Dim SQL, Rs, strTemp
strTemp = “”
sTopic = Newasp.CheckStr(sTopic)
If sTopic “” And sTopic “0” Then
SQL = “Select AnnounceID,Content,PostTime,writer From NC_Announce where AnnounceType=1 And title = ‘” & sTopic & “‘ Order By PostTime Desc,AnnounceID Desc”
Else
SQL = “Select AnnounceID,Content From NC_Announce where AnnounceType=1 And ChannelID in (” & ChannelID & “,999) Order By PostTime Desc,AnnounceID Desc”
End If
Set Rs = Newasp.Execute(SQL)
If Not (Rs.BOF And Rs.EOF) Then
strTemp = Rs(“Content”)
End If
Rs.Close: Set Rs = Nothing
LoadAnnounceContent = strTemp
End Function
‘================================================
‘函数名：ReadAnnounceContent
‘作 用：读取内容公告
‘参 数：str —-原字符串
‘================================================
Public Function ReadAnnounceContent(ByVal str, ByVal ChannelID)
Dim strTemp, i, sTempContent, nTempContent, strValue
Dim arrTempContent, arrTempContents
On Error Resume Next
strTemp = str
If InStr(strTemp, “{$AnnounceContent(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$AnnounceContent(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$AnnounceContent(“, “)}”, 0)
If nTempContent = “” Then nTempContent = “0”
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
strValue = arrTempContent(i)
strTemp = Replace(strTemp, arrTempContents(i), LoadAnnounceContent(strValue, ChannelID))
Next
End If
ReadAnnounceContent = strTemp
End Function
‘================================================
‘函数名：LoadAnnounceList
‘作 用：装载公告列表
‘参 数：maxnum —-最多公告数
‘ maxlen —-字符长度
‘ newindow —-是否新窗口打开 1=是，0=否
‘ showdate —-是否显示时间 1=是，0=否
‘ DateMode —-时间模式
‘ showtree —-树型显示
‘================================================
Public Function LoadAnnounceList(ByVal ChannelID, ByVal maxnum, ByVal maxlen, _
ByVal newindow, ByVal showdate, ByVal DateMode, ByVal showtree)
Dim Rs, SQL, strContent
Dim AnnounceTopic, LinkTarget
Dim PostTime
ChannelID = Newasp.ChkNumeric(ChannelID)
maxnum = Newasp.ChkNumeric(maxnum)
If maxnum = 0 Then maxnum = 10
On Error Resume Next
Set Rs = Newasp.Execute(“SELECT TOP ” & CInt(maxnum) & ” AnnounceID,title,Content,PostTime,writer,hits FROM NC_Announce WHERE (ChannelID=” & ChannelID & ” Or ChannelID=999) And AnnounceType1 ORDER BY PostTime DESC,AnnounceID DESC”)
If Rs.BOF And Rs.EOF Then
LoadAnnounceList = “”
Set Rs = Nothing
Exit Function
Else
Do While Not Rs.EOF
If CInt(newindow) 0 Then
LinkTarget = ” target=””_blank”””
Else
LinkTarget = “”
End If
If CInt(showdate) 0 Then
PostTime = Newasp.ShowDateTime(Rs(“PostTime”), CInt(DateMode))
Else
PostTime = “”
End If
AnnounceTopic = Newasp.GotTopic(Rs(“title”), CInt(maxlen))
AnnounceTopic = “” & AnnounceTopic & “”
If CInt(showtree) = 1 Then
strContent = strContent & “· ” & AnnounceTopic & “” & PostTime & “” & vbNewLine
Else
strContent = strContent & “· ” & AnnounceTopic & “” & PostTime & vbNewLine
End If
Rs.MoveNext
Loop
End If
LoadAnnounceList = strContent
End Function
‘================================================
‘函数名：ReadAnnounceList
‘作 用：读取公告列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadAnnounceList(ByVal str)
Dim strTemp, i
Dim sTempContent, nTempContent, ArrayList
Dim arrTempContent, arrTempContents
On Error Resume Next
strTemp = str
If InStr(strTemp, “{$ReadAnnounceList(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadAnnounceList(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadAnnounceList(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadAnnounceList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6)))
Next
End If
ReadAnnounceList = strTemp
End Function
‘================================================
‘函数名：LoadArticlePic
‘作 用：装载文章图片列表
‘参 数：ClassID —-分类ID
‘ ChannelID —-频道ID
‘ sType —-调用文章类型,0=所有最新文章，1=推荐文章，2=热门文章，3=图文文章，4=分类最新文章
‘ TopNum —-显示文章列表数
‘ strlen —-显示标题长度
‘ ShowClass —-是否显示分类
‘ ShowPic —-是否显示图文标题
‘ ShowDate —-是否显示日期
‘ DateMode —-显示日期模式
‘ newindow —-新窗口打开
‘================================================
Public Function LoadArticlePic(ChannelID, ClassID, SpecialID, stype, TopNum, PerRowNum, strLen, newindow, width, height, showtopic)
Dim Rs, SQL, i, strContent, foundstr
Dim sTitle, ChildStr, ImageUrl, HtmlFileName
Dim HtmlFileUrl, WriteTime, LinkTarget
ChannelID = Newasp.ChkNumeric(ChannelID)
ClassID = Newasp.ChkNumeric(ClassID)
SpecialID = Newasp.ChkNumeric(SpecialID)
stype = Newasp.ChkNumeric(stype)
On Error Resume Next
Newasp.LoadChannel(ChannelID)
If CInt(stype) >= 3 And CLng(ClassID) 0 Then
SQL = “SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=” & ChannelID & ” And ClassID=” & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
LoadArticlePic = “”
Exit Function
Else
ChildStr = Rs(“ChildStr”)
End If
Set Rs = Nothing
Else
ChildStr = 0
End If
Select Case CInt(stype)
Case 0: foundstr = “Order By A.Writetime Desc ,A.Articleid Desc”
Case 1: foundstr = “And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc”
Case 2: foundstr = “Order By A.AllHits Desc ,A.Articleid Desc”
Case 3: foundstr = “And A.ClassID in (” & ChildStr & “) Order By A.Writetime Desc ,A.Articleid Desc”
Case 4: foundstr = “And A.ClassID in (” & ChildStr & “) And A.isBest > 0 Order By A.Writetime Desc ,A.Articleid Desc”
Case 5: foundstr = “And A.ClassID in (” & ChildStr & “) Order By A.AllHits Desc ,A.Articleid Desc”
Case Else
foundstr = “Order By A.Writetime Desc ,A.Articleid Desc”
End Select
If CInt(stype) >= 4 And CLng(ClassID) = 0 Then
foundstr = “Order By A.Writetime Desc ,A.Articleid Desc”
End If
If CLng(SpecialID) 0 Then
foundstr = “And A.SpecialID =” & CLng(SpecialID) & ” ” & foundstr
End If
SQL = ” A.ArticleID,A.ClassID,A.title,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest,A.ImageUrl,”
SQL = “select Top ” & CInt(TopNum) & SQL & ” C.ClassName,C.HtmlFileDir,C.UseHtml from [NC_Article] A inner join [NC_Classify] C On A.ClassID=C.ClassID where A.isAccept > 0 And A.ImageUrl” And A.ChannelID=” & ChannelID & ” ” & foundstr & “”
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
strContent = “”
Else
strContent = “
| ” If Not Rs.EOF Then sTitle = Newasp.GotTopic(Rs(“title”), CInt(strLen)) ImageUrl = Newasp.GetImageUrl(Rs(“ImageUrl”), Newasp.ChannelData(1)) ImageUrl = Newasp.GetFlashAndPic(ImageUrl, height, width) HtmlFileName = Newasp.ReadFileName(Rs(“HtmlFileDate”), Rs(“ArticleID”), Newasp.ChannelHtmlExt, Newasp.ChannelPrefix, Newasp.ChannelHtmlForm, “”) If CInt(newindow) 0 Then |
” & 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.ChkNumeric(SpecialID)
stype = Newasp.ChkNumeric(stype)
On Error Resume Next
Newasp.LoadChannel(ChannelID)
If CInt(stype) >= 3 And CLng(ClassID) 0 Then
SQL = “select ChildStr from [NC_Classify] where ChannelID = ” & ChannelID & ” And ClassID = ” & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
LoadSoftPic = “”
Exit Function
Else
ChildStr = Rs(“ChildStr”)
End If
Rs.Close
Else
ChildStr = 0
End If
Select Case CInt(stype)
Case 0: foundstr = “Order By A.SoftTime Desc ,A.SoftID Desc”
Case 1: foundstr = “And A.isBest > 0 Order By A.SoftTime Desc ,A.SoftID Desc”
Case 2: foundstr = “Order By A.AllHits Desc ,A.SoftID Desc”
Case 3: foundstr = “And A.ClassID in (” & ChildStr & “) Order By A.SoftTime Desc ,A.SoftID Desc”
Case 4: foundstr = “And A.ClassID in (” & ChildStr & “) And A.isBest > 0 Order By A.SoftTime Desc ,A.SoftID Desc”
Case 5: foundstr = “And A.ClassID in (” & ChildStr & “) Order By A.AllHits Desc ,A.SoftID Desc”
Case Else
foundstr = “Order By A.SoftTime Desc ,A.SoftID Desc”
End Select
If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
foundstr = “Order By A.SoftTime Desc ,A.SoftID Desc”
End If
If CLng(SpecialID) 0 Then
foundstr = “And A.SpecialID =” & CLng(SpecialID) & ” ” & foundstr
End If
SQL = ” A.SoftID,A.ClassID,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,A.SoftImage,”
SQL = “select Top ” & CInt(TopNum) & SQL & ” C.ClassName,C.HtmlFileDir,C.UseHtml from [NC_SoftList] A inner join [NC_Classify] C On A.ClassID=C.ClassID where A.isAccept>0 And A.SoftImage” And A.ChannelID=” & ChannelID & ” ” & foundstr & “”
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
strContent = “”
Else
strContent = “
| ” If Not Rs.EOF Then strSoftName = Newasp.GotTopic(Rs(“SoftName”) & ” ” & Rs(“SoftVer”), CInt(strLen)) SoftImage = Newasp.GetImageUrl(Rs(“SoftImage”), Newasp.ChannelData(1)) SoftImage = Newasp.GetFlashAndPic(SoftImage, height, width) 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 If CInt(newindow) 0 Then LinkTarget = ” target=””_blank””” Else LinkTarget = “” End If strContent = strContent & Newasp.MainSetting(19) strContent = Replace(strContent, “{$SoftPicture}”, “” & SoftImage & ““) If CInt(showtopic) = 1 Then strContent = Replace(strContent, “{$SoftTopic}”, “” & strSoftName & ““) Else strContent = Replace(strContent, “{$SoftTopic}”, vbNullString) End If strContent = strContent & “ |
” & vbCrLf
End If
Rs.Close: Set Rs = Nothing
LoadSoftPic = strContent
End Function
‘================================================
‘函数名：ReadSoftPic
‘作 用：读取软件图片列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadSoftPic(ByVal str)
Dim strTemp, i
Dim sTempContent, nTempContent, ArrayList
Dim arrTempContent, arrTempContents
On Error Resume Next
strTemp = str
If InStr(strTemp, “{$ReadSoftPic(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadSoftPic(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadSoftPic(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadSoftPic(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
ReadSoftPic = strTemp
End Function
‘================================================
‘函数名：LoadFlashPic
‘作 用：装载动画图片列表
‘参 数：ClassID —-分类ID
‘ ChannelID —-频道ID
‘ sType —-调用动画类型,0=所有最新动画，1=推荐动画，2=热门动画
‘ TopNum —-显示动画列表数
‘ strlen —-显示标题长度
‘ newindow —-新窗口打开
‘================================================
Public Function LoadFlashPic(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
ByVal stype, ByVal TopNum, ByVal PerRowNum, ByVal strLen, ByVal newindow, _
ByVal width, ByVal height, ByVal showtopic)
Dim Rs, SQL, i, strContent, foundstr
Dim strtitle, ChildStr, miniature, HtmlFileName
Dim HtmlFileUrl, addTime, LinkTarget
ChannelID = Newasp.ChkNumeric(ChannelID)
ClassID = Newasp.ChkNumeric(ClassID)
SpecialID = Newasp.ChkNumeric(SpecialID)
stype = Newasp.ChkNumeric(stype)
On Error Resume Next
Newasp.LoadChannel(ChannelID)
If CInt(stype) >= 3 And CLng(ClassID) 0 Then
SQL = “SELECT ChildStr FROM [NC_Classify] WHERE ChannelID = ” & ChannelID & ” And ClassID = ” & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
LoadFlashPic = “”
Exit Function
Else
ChildStr = Rs(“ChildStr”)
End If
Rs.Close
Else
ChildStr = 0
End If
Select Case CInt(stype)
Case 0: foundstr = “ORDER BY A.addTime DESC ,A.flashid DESC”
Case 1: foundstr = “And A.isBest > 0 ORDER BY A.addTime DESC ,A.flashid DESC”
Case 2: foundstr = “ORDER BY A.AllHits DESC ,A.flashid DESC”
Case 3: foundstr = “And A.ClassID in (” & ChildStr & “) ORDER BY A.addTime DESC ,A.flashid DESC”
Case 4: foundstr = “And A.ClassID in (” & ChildStr & “) And A.isBest > 0 ORDER BY A.addTime DESC ,A.flashid DESC”
Case 5: foundstr = “And A.ClassID in (” & ChildStr & “) ORDER BY A.AllHits DESC ,A.flashid DESC”
Case Else
foundstr = “ORDER BY A.addTime DESC ,A.flashid DESC”
End Select
If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
foundstr = “ORDER BY A.addTime DESC ,A.flashid DESC”
End If
If CLng(SpecialID) 0 Then
foundstr = “And A.SpecialID =” & CLng(SpecialID) & ” ” & foundstr
End If
SQL = ” A.flashid,A.ClassID,A.title,A.AllHits,A.addTime,A.HtmlFileDate,A.isBest,A.miniature,”
SQL = “SELECT TOP ” & CInt(TopNum) & SQL & ” C.ClassName,C.HtmlFileDir,C.UseHtml FROM [NC_FlashList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID WHERE A.isAccept>0 And A.miniature” And A.ChannelID=” & ChannelID & ” ” & foundstr & “”
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
strContent = “”
Else
strContent = “
| ” If Not Rs.EOF Then strtitle = Newasp.GotTopic(Rs(“title”), CInt(strLen)) miniature = Newasp.GetImageUrl(Rs(“miniature”), Newasp.ChannelData(1)) miniature = Newasp.GetFlashAndPic(miniature, height, width) HtmlFileName = Newasp.ReadFileName(Rs(“HtmlFileDate”), Rs(“flashid”), 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(“flashid”) End If If CInt(newindow) 0 Then LinkTarget = ” target=””_blank””” Else LinkTarget = “” End If strContent = strContent & Newasp.MainSetting(21) strContent = Replace(strContent, “{$Miniature}”, “” & miniature & ““) If CInt(showtopic) = 1 Then strContent = Replace(strContent, “{$FlashTopic}”, “” & strtitle & ““) Else strContent = Replace(strContent, “{$FlashTopic}”, vbNullString) End If strContent = strContent & “ |
” & vbCrLf
End If
Rs.Close: Set Rs = Nothing
LoadFlashPic = strContent
End Function
‘================================================
‘函数名：ReadFlashPic
‘作 用：读取动画图片列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadFlashPic(ByVal str)
Dim strTemp, i
Dim sTempContent, nTempContent, ArrayList
Dim arrTempContent, arrTempContents
On Error Resume Next
strTemp = str
If InStr(strTemp, “{$ReadFlashPic(“) > 0 Then
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(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 = “
| ” 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 & “ Else strContent = strContent & “” & Rs(“LinkName”) & “” End If strContent = strContent & “ |
” & 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
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadFriendLink(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadFriendLink(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadFriendLink(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3)))
Next
End If
ReadFriendLink = strTemp
End Function
‘================================================
‘函数名：PageRunTime
‘作 用：页面执行时间
‘================================================
Public Function ExecutionTime()
Dim Endtime
ExecutionTime = “”
If CInt(Newasp.IsRunTime) = 1 Then
Endtime = Timer()
ExecutionTime = “页面执行时间：” & FormatNumber((((Endtime – startime) * 5000) + 0.5) / 10, 3, -1) & “毫秒”
Else
ExecutionTime = “”
End If
End Function
‘================================================
‘函数名：CurrentStation
‘作 用：当前位置
‘参 数：…
‘================================================
Public Function CurrentStation(ByVal ChannelID, ByVal ClassID, ByVal ClassName, _
ByVal ParentID, ByVal strParent, ByVal HtmlFileDir, ByVal Compart)
Dim rsCurrent, SQL, strContent, ChannelDir
CurrentStation = “”
ChannelID = Newasp.ChkNumeric(ChannelID)
ClassID = Newasp.ChkNumeric(ClassID)
ParentID = Newasp.ChkNumeric(ParentID)
On Error Resume Next
Newasp.LoadChannel(ChannelID)
ChannelDir = Newasp.ChannelPath
strContent = “” & Newasp.ChannelName & “” & Compart & “”
If ParentID 0 And Len(strParent) 0 Then
SQL = “SELECT ClassID,ClassName,HtmlFileDir,UseHtml FROM [NC_Classify] WHERE ChannelID = ” & ChannelID & ” And ClassID in(” & strParent & “)”
Set rsCurrent = Newasp.Execute(SQL)
If Not (rsCurrent.EOF And rsCurrent.BOF) Then
Do While Not rsCurrent.EOF
If CInt(Newasp.IsCreateHtml) 0 Then
strContent = strContent & “” & rsCurrent(“ClassName”) & “” & Compart & “”
Else
strContent = strContent & “” & rsCurrent(“ClassName”) & “” & Compart & “”
End If
rsCurrent.MoveNext
Loop
End If
rsCurrent.Close
Set rsCurrent = Nothing
End If
If CInt(Newasp.IsCreateHtml) 0 Then
strContent = strContent & “” & ClassName & “”
Else
strContent = strContent & “” & ClassName & “”
End If
CurrentStation = strContent
End Function
‘================================================
‘函数名：ReadCurrentStation
‘作 用：读取当前位置
‘参 数：str —-原字符串
‘================================================
Public Function ReadCurrentStation(ByVal str, ByVal ChannelID, ByVal ClassID, _
ByVal ClassName, ByVal ParentID, ByVal strParent, ByVal HtmlFileDir)
Dim strTemp, i
Dim sTempContent, nTempContent
Dim arrTempContent, arrTempContents
On Error Resume Next
strTemp = str
If InStr(strTemp, “{$CurrentStation(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$CurrentStation(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$CurrentStation(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
strTemp = Replace(strTemp, arrTempContents(i), CurrentStation(ChannelID, ClassID, ClassName, ParentID, strParent, HtmlFileDir, arrTempContent(i)))
Next
End If
ReadCurrentStation = strTemp
End Function
‘================================================
‘函数名：NewsPictureAndText
‘作 用：图文混排列表
‘================================================
Public Function NewsPictureAndText(ByVal chanid, ByVal ClassID, ByVal specid, _
ByVal stype, ByVal height, ByVal width, ByVal maxlen, _
ByVal maxline, ByVal hspace, ByVal vspace, ByVal align, _
ByVal divcss, ByVal target, ByVal start, ByVal showpic, _
ByVal showclass, ByVal showdate, ByVal dateformat)
Dim Rs, SQL, i, strContent, foundstr
Dim ChildStr, HtmlFileUrl, HtmlFileName, strPicture
Dim PicTopic, NewsTitle, ClassName, ArticleTitle, WriteTime
chanid = Newasp.ChkNumeric(chanid)
ClassID = Newasp.ChkNumeric(ClassID)
specid = Newasp.ChkNumeric(specid)
stype = Newasp.ChkNumeric(stype)
On Error Resume Next
Newasp.LoadChannel(chanid)
If CInt(stype) >= 3 And CLng(ClassID) 0 Then
SQL = “SELECT ChildStr FROM [NC_Classify] WHERE ChannelID = ” & chanid & ” And ClassID = ” & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
NewsPictureAndText = “”
Exit Function
Else
ChildStr = Rs(“ChildStr”)
End If
Rs.Close
Else
ChildStr = “0”
End If
Select Case CInt(stype)
Case 0: foundstr = “ORDER BY A.Writetime DESC ,A.Articleid DESC”
Case 1: foundstr = “And A.isBest > 0 ORDER BY A.Writetime DESC ,A.Articleid DESC”
Case 2: foundstr = ” ORDER BY A.AllHits DESC ,A.Articleid DESC”
Case 3: foundstr = “And A.ClassID in (” & ChildStr & “) ORDER BY A.Writetime DESC ,A.Articleid DESC”
Case 4: foundstr = “And A.ClassID in (” & ChildStr & “) And A.isBest > 0 ORDER BY A.Writetime DESC ,A.Articleid DESC”
Case 5: foundstr = “And A.ClassID in (” & ChildStr & “) And A.AllHits > B.LeastHotHist ORDER BY A.AllHits DESC ,A.Articleid DESC”
Case 6: foundstr = “And A.ClassID in (” & ChildStr & “) ORDER BY A.Writetime DESC ,A.Articleid DESC”
Case Else
foundstr = “ORDER BY A.Writetime DESC ,A.Articleid DESC”
End Select
If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
foundstr = “ORDER BY A.Writetime DESC ,A.Articleid DESC”
End If
If CLng(specid) 0 Then
foundstr = “And A.SpecialID =” & CLng(specid) & ” ” & foundstr
End If
SQL = ” A.ArticleID,A.ClassID,A.ColorMode,A.FontMode,A.title,A.BriefTopic,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest,”
SQL = “SELECT TOP ” & CInt(maxline) & SQL & ” C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_Article] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=” & chanid & ” ” & foundstr & “”
Set Rs = Newasp.Execute(SQL)
i = 0
strContent = “”
If Rs.BOF And Rs.EOF Then
strContent = “还没有添加任何内容！”
Else
Do While Not Rs.EOF
NewsTitle = Newasp.ReadTopic(Rs(“title”), CInt(maxlen))
NewsTitle = Newasp.ReadFontMode(NewsTitle, Rs(“ColorMode”), Rs(“FontMode”))
PicTopic = Newasp.ReadPicTopic(Rs(“BriefTopic”))
ClassName = Newasp.ReadFontMode(Rs(“ClassName”), Rs(“ColorModes”), Rs(“FontModes”))
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
ClassName = “[” & ClassName & “]”
Else
HtmlFileUrl = Newasp.ChannelPath & “show.asp?id=” & Rs(“ArticleID”)
ClassName = “[” & ClassName & “]”
End If
If CInt(showclass) = 1 Then
ClassName = ClassName
Else
ClassName = “”
End If
If CInt(showdate) = 1 Then
WriteTime = Newasp.ShowDateTime(Rs(“WriteTime”), CInt(dateformat))
Else
WriteTime = “”
End If
ArticleTitle = “” & start & ClassName & ” ” & NewsTitle & “ ” & WriteTime & “”
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 = “”
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 = “” & vbNewLine
Case Else
strPicture = “”
End Select
End If
Rs.Close: Set Rs = Nothing
Else
strPicture = “”
End If
NewsPictureAndText = strPicture & strContent
End Function
‘================================================
‘函数名：ReadNewsPicAndText
‘作 用：读取图文混排列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadNewsPicAndText(ByVal str)
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents
On Error Resume Next
strTemp = str
If InStr(strTemp, “{$NewsPictureAndText(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$NewsPictureAndText(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$NewsPictureAndText(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), NewsPictureAndText(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10), ArrayList(11), ArrayList(12), ArrayList(13), ArrayList(14), ArrayList(15), ArrayList(16), ArrayList(17)))
Next
End If
ReadNewsPicAndText = strTemp
End Function
‘================================================
‘函数名：SoftPictureAndText
‘作 用：软件图文混排列表
‘================================================
Public Function SoftPictureAndText(ByVal chanid, ByVal ClassID, ByVal specid, _
ByVal stype, ByVal height, ByVal width, ByVal maxlen, _
ByVal maxline, ByVal hspace, ByVal vspace, ByVal align, _
ByVal divcss, ByVal target, ByVal start, ByVal showpic, _
ByVal showclass, ByVal showdate, ByVal dateformat)
Dim Rs, SQL, i, strContent, foundstr
Dim ChildStr, HtmlFileUrl, HtmlFileName, strPicture
Dim SoftTopic, ClassName, softname, SoftTime
chanid = Newasp.ChkNumeric(chanid)
ClassID = Newasp.ChkNumeric(ClassID)
specid = Newasp.ChkNumeric(specid)
stype = Newasp.ChkNumeric(stype)
On Error Resume Next
Newasp.LoadChannel(chanid)
If CInt(stype) >= 3 And CLng(ClassID) 0 Then
SQL = “SELECT ChildStr FROM [NC_Classify] WHERE ChannelID = ” & chanid & ” And ClassID = ” & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
SoftPictureAndText = “”
Exit Function
Else
ChildStr = Rs(“ChildStr”)
End If
Rs.Close
Else
ChildStr = “0”
End If
Select Case CInt(stype)
Case 0: foundstr = “ORDER BY A.SoftTime DESC ,A.softid DESC”
Case 1: foundstr = “And A.isBest > 0 ORDER BY A.SoftTime DESC ,A.softid DESC”
Case 2: foundstr = “ORDER BY A.AllHits DESC ,A.softid DESC”
Case 3: foundstr = “And A.ClassID in (” & ChildStr & “) ORDER BY A.SoftTime DESC ,A.softid DESC”
Case 4: foundstr = “And A.ClassID in (” & ChildStr & “) And A.isBest > 0 ORDER BY A.SoftTime DESC ,A.softid DESC”
Case 5: foundstr = “And A.ClassID in (” & ChildStr & “) ORDER BY A.AllHits DESC ,A.softid DESC”
Case Else
foundstr = “ORDER BY A.SoftTime DESC ,A.softid DESC”
End Select
If CInt(stype) >= 3 And CLng(ClassID) = 0 Then
foundstr = “ORDER BY A.SoftTime DESC ,A.softid DESC”
End If
If CLng(specid) > 0 Then
foundstr = “And A.SpecialID =” & CLng(specid) & ” ” & foundstr
End If
SQL = ” A.softid,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,”
SQL = “SELECT TOP ” & CInt(maxline) & SQL & ” C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_SoftList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=” & chanid & ” ” & foundstr & “”
Set Rs = Newasp.Execute(SQL)
i = 0
strContent = “”
If Rs.BOF And Rs.EOF Then
strContent = “还没有添加任何软件！”
Else
Do While Not Rs.EOF
SoftTopic = Newasp.ReadTopic(Trim(Rs(“SoftName”) & ” ” & Rs(“SoftVer”)), CInt(maxlen))
SoftTopic = Newasp.ReadFontMode(SoftTopic, Rs(“ColorMode”), Rs(“FontMode”))
ClassName = Newasp.ReadFontMode(Rs(“ClassName”), Rs(“ColorModes”), Rs(“FontModes”))
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
ClassName = “[” & ClassName & “]”
Else
HtmlFileUrl = Newasp.ChannelPath & “show.asp?id=” & Rs(“softid”)
ClassName = “[” & ClassName & “]”
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 = “” & start & ClassName & ” ” & SoftTopic & “ ” & SoftTime & “”
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 = “”
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))
sExtName = Split(Rs(“SoftImage”), “.”)
ExtName = sExtName(UBound(sExtName))
Select Case LCase(ExtName)
Case “swf”, “swi”
strPicture = “” & vbNewLine
Case Else
strPicture = “”
End Select
End If
Rs.Close: Set Rs = Nothing
Else
strPicture = “”
End If
SoftPictureAndText = strPicture & strContent
End Function
‘================================================
‘函数名：ReadSoftPicAndText
‘作 用：读取软件图文混排列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadSoftPicAndText(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents
strTemp = str
If InStr(strTemp, “{$SoftPictureAndText(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$SoftPictureAndText(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$SoftPictureAndText(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), SoftPictureAndText(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8), ArrayList(9), ArrayList(10), ArrayList(11), ArrayList(12), ArrayList(13), ArrayList(14), ArrayList(15), ArrayList(16), ArrayList(17)))
Next
End If
ReadSoftPicAndText = strTemp
End Function
‘================================================
‘函数名：LoadGuestList
‘作 用：装载留言列表
‘参 数：maxnum —-最多留言数
‘ maxlen —-字符长度
‘ newindow —-是否新窗口打开 1=是，0=否
‘ showdate —-是否显示时间 1=是，0=否
‘ DateMode —-时间模式
‘ styles —-风格名称
‘================================================
Public Function LoadGuestList(ByVal maxnum, ByVal maxlen, ByVal newindow, _
ByVal showdate, ByVal DateMode, ByVal styles)
Dim Rs, SQL, strContent
Dim i, ListStyle, GuestTopic, LinkTarget
Dim WriteTime, lastime, GuestTitle,strChannelDir
On Error Resume Next
Set Rs = Newasp.Execute(“SELECT TOP ” & CInt(maxnum) & ” guestid,Topicformat,title,username,WriteTime,lastime,ReplyNum FROM NC_GuestBook WHERE isAccept>0 ORDER BY isTop DESC,lastime DESC,guestid DESC”)
If Rs.BOF And Rs.EOF Then
LoadGuestList = “没有任何留言!”
Set Rs = Nothing
Exit Function
Else
i = 0
strContent = “
”
End If
LoadGuestList = strContent
End Function
‘================================================
‘函数名：ReadGuestList
‘作 用：读取留言列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadGuestList(ByVal str)
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents
strTemp = str
If InStr(strTemp, “{$ReadGuestList(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadGuestList(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadGuestList(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadGuestList(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5)))
Next
End If
ReadGuestList = strTemp
End Function
‘================================================
‘函数名：LoadPopularSoft
‘作 用：装载排行软件列表
‘参 数：ClassID —-分类ID
‘ chanid —-频道ID
‘ stype —-调用类型
‘ maxline —-显示列表数
‘ maxlen —-显示标题长度
‘ showhits —-是否显示下载数
‘ target —-连接目标
‘ start —-标题头标记
‘ styles —-样式名称
‘================================================
Public Function LoadPopularSoft(ByVal chanid, ByVal ClassID, ByVal stype, _
ByVal maxlen, ByVal maxline, ByVal showhits, _
ByVal target, ByVal start, ByVal styles)
Dim SQL, Rs, foundsql, strHits
Dim ChildStr, i, strContent
Dim HtmlFileName, HtmlFileUrl
Dim NewsTitle, AllHits, strSoftName
Dim divstyle
chanid = Newasp.ChkNumeric(chanid)
ClassID = Newasp.ChkNumeric(ClassID)
stype = Newasp.ChkNumeric(stype)
If chanid = 0 Then chanid = 1
On Error Resume Next
Newasp.LoadChannel(chanid)
If CLng(ClassID) > 0 And Trim(ClassID) “” Then
SQL = “SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=” & chanid & ” And classid=” & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
LoadPopularSoft = “”
Exit Function
Else
ChildStr = Rs(“ChildStr”)
foundsql = “And A.ClassID in (” & ChildStr & “)”
End If
Rs.Close
Else
ChildStr = “0”
foundsql = “”
End If
Select Case CInt(stype)
Case 1
foundsql = foundsql & ” ORDER BY A.DayHits DESC ,A.softid DESC”
strHits = “DayHits”
Case 2
foundsql = foundsql & ” ORDER BY A.WeekHits DESC ,A.softid DESC”
strHits = “WeekHits”
Case 3
foundsql = foundsql & ” ORDER BY A.MonthHits DESC ,A.softid DESC”
strHits = “MonthHits”
Case 4
foundsql = foundsql & ” And A.isBest>0 ORDER BY A.AllHits DESC ,A.softid DESC”
strHits = “AllHits”
Case Else
foundsql = foundsql & “ORDER BY A.AllHits DESC ,A.softid DESC”
strHits = “AllHits”
End Select
SQL = ” A.softid,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,A.DayHits,A.WeekHits,A.MonthHits,”
SQL = “SELECT TOP ” & CInt(maxline) & SQL & ” C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_SoftList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=” & chanid & ” ” & foundsql
Set Rs = Newasp.Execute(SQL)
i = 0
strContent = “”
If Rs.BOF And Rs.EOF Then
strContent = “还没有找到任何内容！”
Else
Do While Not Rs.EOF
If Trim(styles) “” And Trim(styles) “0” Then
If (i Mod 2) = 0 Then
divstyle = ” class=””” & Trim(styles) & “1”””
Else
divstyle = ” class=””” & Trim(styles) & “2”””
End If
End If
NewsTitle = Newasp.GotTopic(Rs(“SoftName”) & ” ” & Rs(“SoftVer”), CInt(maxlen))
NewsTitle = Newasp.ReadFontMode(NewsTitle, Rs(“ColorMode”), Rs(“FontMode”))
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
If CInt(showhits) > 0 Then
AllHits = Rs(strHits)
Else
AllHits = “”
End If
strSoftName = “” & start & ” ” & NewsTitle & “ ” & AllHits & “”
strContent = strContent & strSoftName
Rs.MoveNext
i = i + 1
Loop
End If
Rs.Close: Set Rs = Nothing
LoadPopularSoft = strContent
End Function
‘================================================
‘函数名：ReadPopularSoft
‘作 用：读取软件排行列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadPopularSoft(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents
strTemp = str
If InStr(strTemp, “{$ReadPopularSoft(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadPopularSoft(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadPopularSoft(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadPopularSoft(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
Next
End If
ReadPopularSoft = strTemp
End Function
‘================================================
‘函数名：LoadPopularArticle
‘作 用：装载排行文章列表
‘参 数：ClassID —-分类ID
‘ chanid —-频道ID
‘ stype —-调用类型
‘ maxline —-显示列表数
‘ maxlen —-显示标题长度
‘ showhits —-是否显示下载数
‘ target —-连接目标
‘ start —-标题头标记
‘ styles —-样式名称
‘================================================
Public Function LoadPopularArticle(ByVal chanid, ByVal ClassID, ByVal stype, _
ByVal maxlen, ByVal maxline, ByVal showhits, ByVal target, _
ByVal start, ByVal styles)
Dim SQL, Rs, foundsql, strHits
Dim ChildStr, i, strContent
Dim HtmlFileName, HtmlFileUrl
Dim NewsTitle, AllHits, ArticleTitle
Dim divstyle
chanid = Newasp.ChkNumeric(chanid)
ClassID = Newasp.ChkNumeric(ClassID)
stype = Newasp.ChkNumeric(stype)
If chanid = 0 Then chanid = 2
On Error Resume Next
Newasp.LoadChannel(chanid)
If CLng(ClassID) > 0 And Trim(ClassID) “” Then
SQL = “SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=” & chanid & ” And classid=” & CLng(ClassID)
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
LoadPopularArticle = “”
Exit Function
Else
ChildStr = Rs(“ChildStr”)
foundsql = “And A.ClassID in (” & ChildStr & “)”
End If
Rs.Close
Else
ChildStr = “0”
foundsql = “”
End If
Select Case CInt(stype)
Case 1
foundsql = foundsql & ” ORDER BY A.DayHits DESC ,A.Articleid DESC”
strHits = “DayHits”
Case 2
foundsql = foundsql & ” ORDER BY A.WeekHits DESC ,A.Articleid DESC”
strHits = “WeekHits”
Case 3
foundsql = foundsql & ” ORDER BY A.MonthHits DESC ,A.Articleid DESC”
strHits = “MonthHits”
Case 4
foundsql = foundsql & ” And A.isBest>0 ORDER BY A.AllHits DESC ,A.Articleid DESC”
strHits = “AllHits”
Case Else
foundsql = foundsql & “ORDER BY A.AllHits DESC ,A.Articleid DESC”
strHits = “AllHits”
End Select
SQL = ” A.ArticleID,A.ClassID,A.ColorMode,A.FontMode,A.title,A.BriefTopic,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest,A.DayHits,A.WeekHits,A.MonthHits,”
SQL = “SELECT TOP ” & CInt(maxline) & SQL & ” C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_Article] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=” & chanid & ” ” & foundsql
Set Rs = Newasp.Execute(SQL)
i = 0
strContent = “”
If Rs.BOF And Rs.EOF Then
strContent = “还没有找到任何软件！”
Else
Do While Not Rs.EOF
If Trim(styles) “” And Trim(styles) “0” Then
If (i Mod 2) = 0 Then
divstyle = ” class=””” & Trim(styles) & “1”””
Else
divstyle = ” class=””” & Trim(styles) & “2”””
End If
End If
NewsTitle = Newasp.GotTopic(Rs(“title”), CInt(maxlen))
NewsTitle = Newasp.ReadFontMode(NewsTitle, Rs(“ColorMode”), Rs(“FontMode”))
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
If CInt(showhits) > 0 Then
AllHits = Rs(strHits)
Else
AllHits = “”
End If
ArticleTitle = “” & start & ” ” & NewsTitle & “ ” & AllHits & “”
strContent = strContent & ArticleTitle
Rs.MoveNext
i = i + 1
Loop
End If
Rs.Close: Set Rs = Nothing
LoadPopularArticle = strContent
End Function
‘================================================
‘函数名：ReadPopularSoft
‘作 用：读取软件排行列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadPopularArticle(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents
strTemp = str
If InStr(strTemp, “{$ReadPopularArticle(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadPopularArticle(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadPopularArticle(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadPopularArticle(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
Next
End If
ReadPopularArticle = strTemp
End Function
‘================================================
‘函数名：LoadPopularFlash
‘作 用：装载排行动画列表
‘参 数：ClassID —-分类ID
‘ chanid —-频道ID
‘ stype —-调用类型
‘ maxline —-显示列表数
‘ maxlen —-显示标题长度
‘ showhits —-是否显示下载数
‘ target —-连接目标
‘ start —-标题头标记
‘ styles —-样式名称
‘================================================
Public Function LoadPopularFlash(ByVal chanid, ByVal ClassID, ByVal stype, _
ByVal maxlen, ByVal maxline, ByVal showhits, _
ByVal target, ByVal start, ByVal styles)
Dim SQL, Rs, foundsql, strHits
Dim ChildStr, i, strContent
Dim HtmlFileName, HtmlFileUrl
Dim NewsTitle, AllHits, strtitle
Dim divstyle
chanid = Newasp.ChkNumeric(chanid)
ClassID = Newasp.ChkNumeric(ClassID)
stype = Newasp.ChkNumeric(stype)
If chanid = 0 Then chanid = 1
On Error Resume Next
Newasp.LoadChannel(chanid)
If CLng(ClassID) > 0 And Trim(ClassID) “” Then
SQL = “SELECT ChildStr FROM [NC_Classify] WHERE ChannelID=” & chanid & ” And classid=” & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
Set Rs = Nothing
LoadPopularFlash = “”
Exit Function
Else
ChildStr = Rs(“ChildStr”)
foundsql = “And A.ClassID in (” & ChildStr & “)”
End If
Rs.Close
Else
ChildStr = “0”
foundsql = “”
End If
Select Case CInt(stype)
Case 1
foundsql = foundsql & ” ORDER BY A.DayHits DESC ,A.flashid DESC”
strHits = “DayHits”
Case 2
foundsql = foundsql & ” ORDER BY A.WeekHits DESC ,A.flashid DESC”
strHits = “WeekHits”
Case 3
foundsql = foundsql & ” ORDER BY A.MonthHits DESC ,A.flashid DESC”
strHits = “MonthHits”
Case 4
foundsql = foundsql & ” And A.isBest>0 ORDER BY A.AllHits DESC ,A.flashid DESC”
strHits = “AllHits”
Case Else
foundsql = foundsql & “ORDER BY A.AllHits DESC ,A.flashid DESC”
strHits = “AllHits”
End Select
SQL = ” A.flashid,A.ClassID,A.ColorMode,A.FontMode,A.title,A.AllHits,A.addTime,A.HtmlFileDate,A.isBest,A.DayHits,A.WeekHits,A.MonthHits,”
SQL = “SELECT TOP ” & CInt(maxline) & SQL & ” C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir FROM [NC_FlashList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=” & chanid & ” ” & foundsql
Set Rs = Newasp.Execute(SQL)
i = 0
strContent = “”
If Rs.BOF And Rs.EOF Then
strContent = “还没有找到任何内容！”
Else
Do While Not Rs.EOF
If Trim(styles) “” And Trim(styles) “0” Then
If (i Mod 2) = 0 Then
divstyle = ” class=””” & Trim(styles) & “1”””
Else
divstyle = ” class=””” & Trim(styles) & “2”””
End If
End If
NewsTitle = Newasp.GotTopic(Rs(“title”), CInt(maxlen))
NewsTitle = Newasp.ReadFontMode(NewsTitle, Rs(“ColorMode”), Rs(“FontMode”))
HtmlFileName = Newasp.ReadFileName(Rs(“HtmlFileDate”), Rs(“flashid”), 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(“flashid”)
End If
If CInt(showhits) > 0 Then
AllHits = Rs(strHits)
Else
AllHits = “”
End If
strtitle = “” & start & ” ” & NewsTitle & “ ” & AllHits & “”
strContent = strContent & strtitle
Rs.MoveNext
i = i + 1
Loop
End If
Rs.Close: Set Rs = Nothing
LoadPopularFlash = strContent
End Function
‘================================================
‘函数名：ReadPopularFlash
‘作 用：读取动画排行列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadPopularFlash(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents
strTemp = str
If InStr(strTemp, “{$ReadPopularFlash(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadPopularFlash(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadPopularFlash(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadPopularFlash(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
Next
End If
ReadPopularFlash = strTemp
End Function
‘================================================
‘函数名：LoadSoftType
‘作 用：装载软件类型列表
‘参 数：chanid —-频道ID
‘ SoftType —-软件类型
‘ maxline —-显示列表数
‘ maxlen —-显示标题长度
‘ showclass —-是否显示分类
‘ showdate —-是否显示日期
‘ DateMode —-显示日期模式
‘ newindow —-是否新窗口打开连接
‘ styles —-样式名称
‘================================================
Public Function LoadSoftType(ByVal chanid, ByVal SoftType, ByVal maxlen, _
ByVal maxline, ByVal showclass, ByVal showdate, _
ByVal DateMode, ByVal newindow, ByVal styles)
Dim SQL, Rs, foundsql, strContent, i
Dim strSoftName, ChildStr, ListStyle, HtmlFileName, BestCode, BestString
Dim ClassName, HtmlFileUrl, SoftTime, LinkTarget, SoftTopic
SoftType = Newasp.CheckStr(SoftType)
chanid = Newasp.ChkNumeric(chanid)
maxline = Newasp.ChkNumeric(maxline)
If chanid = 0 Then chanid = 2
If maxline = 0 Then maxline = 10
On Error Resume Next
Newasp.LoadChannel(chanid)
If Trim(SoftType) “” Then
foundsql = “And A.SoftType='” & SoftType & “‘ Order By A.SoftTime Desc ,A.SoftID Desc”
Else
foundsql = “Order By A.SoftTime Desc ,A.SoftID Desc”
End If
SQL = ” A.SoftID,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.SoftType,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,”
SQL = “SELECT TOP ” & maxline & SQL & ” C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtml FROM [NC_SoftList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.isAccept>0 And A.ChannelID=” & chanid & ” ” & foundsql
Set Rs = Newasp.Execute(SQL)
i = 0
strContent = “”
If Rs.BOF And Rs.EOF Then
strContent = “还没有找到任何软件！”
Else
strContent = “
”
End If
Set Rs = Nothing
LoadSoftType = strContent
End Function
‘================================================
‘函数名：ReadSoftType
‘作 用：读取软件类型列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadSoftType(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents
strTemp = str
If InStr(strTemp, “{$ReadSoftType(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadSoftType(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadSoftType(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadSoftType(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3), ArrayList(4), ArrayList(5), ArrayList(6), ArrayList(7), ArrayList(8)))
Next
End If
ReadSoftType = strTemp
End Function
‘================================================
‘函数名：LoadUserRank
‘作 用：装用户排行列表
‘================================================
Public Function LoadUserRank(ByVal stype,ByVal grade,ByVal maxline,ByVal styles)
Dim SQL, Rs, foundsql, strContent, i
Dim ListStyle,username
stype = Newasp.CheckNumeric(stype)
grade = Newasp.CheckNumeric(grade)
maxline = Newasp.CheckNumeric(maxline)
If maxline = 0 Then maxline = 10
If stype = 1 Then
foundsql = “ORDER BY JoinTime DESC,userid DESC”
ElseIf stype = 2 Then
foundsql = “ORDER BY LastTime DESC,userid DESC”
ElseIf stype = 3 Then
foundsql = “ORDER BY userpoint DESC,userid DESC”
Else
foundsql = “ORDER BY userlogin DESC,userid DESC”
End If
If grade > 0 Then
SQL = “SELECT TOP ” & maxline & ” userid,username,userpoint,userlogin FROM [NC_User] WHERE UserGrade=” & grade & ” ” & foundsql
Else
SQL = “SELECT TOP ” & maxline & ” userid,username,userpoint,userlogin FROM [NC_User] ” & foundsql
End If
Set Rs = Newasp.Execute(SQL)
i = 0
strContent = “”
If Not (Rs.BOF And Rs.EOF) Then
strContent = “
”
End If
Rs.Close: Set Rs = Nothing
LoadUserRank = strContent
End Function
‘================================================
‘函数名：ReadUserRank
‘作 用：读取用户排行列表
‘参 数：str —-原字符串
‘================================================
Public Function ReadUserRank(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents
strTemp = str
If InStr(strTemp, “{$ReadUserRank(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadUserRank(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadUserRank(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadUserRank(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3)))
Next
End If
ReadUserRank = strTemp
End Function
‘================================================
‘函数名：LoadStatistic
‘作 用：装载频道统计
‘参 数：moduleid —-所属模块
‘ ChannelID —-频道ID
‘ strClass —-所调用的分类ID或者软件类型
‘ stype —-统计类型，0=全部统计，1=今日更新统计，2=点击数统计，3=软件容量统计
‘================================================
Public Function LoadStatistic(ByVal moduleid, ByVal ChannelID, ByVal strClass, ByVal stype)
moduleid = Newasp.CheckNumeric(moduleid)
ChannelID = Newasp.CheckNumeric(ChannelID)
stype = Newasp.CheckNumeric(stype)
Dim Rs, SQL, StatCount
Dim foundsql, ClassID, ChildStr
ClassID = Newasp.CheckNumeric(strClass)
On Error Resume Next
LoadStatistic = 0
If ClassID > 0 Then
SQL = “SELECT ChildStr FROM [NC_Classify] WHERE ChannelID = ” & ChannelID & ” And ClassID=” & ClassID
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
ChildStr = 0
Else
ChildStr = Rs(“ChildStr”)
End If
Rs.Close: Set Rs = Nothing
foundsql = “And ChannelID=” & ChannelID & ” And ClassID in (” & ChildStr & “)”
Else
foundsql = “And ChannelID=” & ChannelID
End If
Select Case moduleid
Case 1
If stype = 1 Then
If isSqlDataBase = 1 Then
SQL = “SELECT COUNT(ArticleID) FROM NC_Article WHERE isAccept>0 ” & foundsql & ” And Datediff(d,WriteTime,GetDate())=0″
Else
SQL = “SELECT COUNT(ArticleID) FROM NC_Article WHERE isAccept>0 ” & foundsql & ” And WriteTime>=Date()”
End If
ElseIf stype = 2 Then
SQL = “SELECT SUM(AllHits) FROM NC_Article WHERE isAccept>0 ” & foundsql
ElseIf stype = 4 Then
SQL = “SELECT SUM(DayHits) FROM NC_Article WHERE isAccept>0 ” & foundsql
Else
SQL = “SELECT COUNT(ArticleID) FROM NC_Article WHERE isAccept>0 ” & foundsql
End If
Case 2
If Not IsNumeric(strClass) Then
foundsql = foundsql & ” And SoftType='” & Newasp.CheckStr(strClass) & “‘”
End If
If stype = 1 Then
If isSqlDataBase = 1 Then
SQL = “SELECT COUNT(softid) FROM NC_SoftList WHERE isAccept>0 ” & foundsql & ” And Datediff(d,SoftTime,GetDate())=0″
Else
SQL = “SELECT COUNT(softid) FROM NC_SoftList WHERE isAccept>0 ” & foundsql & ” And SoftTime>=Date()”
End If
ElseIf stype = 2 Then
SQL = “SELECT SUM(AllHits) FROM NC_SoftList WHERE isAccept>0 ” & foundsql
ElseIf stype = 3 Then
SQL = “SELECT SUM(SoftSize) FROM NC_SoftList WHERE isAccept>0 ” & foundsql
ElseIf stype = 4 Then
SQL = “SELECT SUM(DayHits) FROM NC_SoftList WHERE isAccept>0 ” & foundsql
Else
SQL = “SELECT COUNT(softid) FROM NC_SoftList WHERE isAccept>0 ” & foundsql
End If
Case 4
If stype = 1 Then
If isSqlDataBase = 1 Then
SQL = “SELECT COUNT(GuestID) FROM NC_GuestBook WHERE isAccept>0 And Datediff(d,WriteTime,GetDate())=0”
Else
SQL = “SELECT COUNT(GuestID) FROM NC_GuestBook WHERE isAccept>0 And WriteTime>=Date()”
End If
Else
SQL = “SELECT COUNT(GuestID) FROM NC_GuestBook WHERE isAccept>0”
End If
Case 5
If stype = 1 Then
If isSqlDataBase = 1 Then
SQL = “SELECT COUNT(flashid) FROM NC_FlashList WHERE isAccept>0 ” & foundsql & ” And Datediff(d,addTime,GetDate())=0″
Else
SQL = “SELECT COUNT(flashid) FROM NC_FlashList WHERE isAccept>0 ” & foundsql & ” And addTime>=Date()”
End If
ElseIf stype = 2 Then
SQL = “SELECT SUM(AllHits) FROM NC_FlashList WHERE isAccept>0 ” & foundsql
ElseIf stype = 3 Then
SQL = “SELECT SUM(filesize) FROM NC_FlashList WHERE isAccept>0 ” & foundsql
ElseIf stype = 4 Then
SQL = “SELECT SUM(DayHits) FROM NC_FlashList WHERE isAccept>0 ” & foundsql
Else
SQL = “SELECT COUNT(flashid) FROM NC_FlashList WHERE isAccept>0 ” & foundsql
End If
Case Else
If stype = 1 Then
If isSqlDataBase = 1 Then
SQL = “SELECT COUNT(userid) FROM NC_User WHERE Datediff(d,JoinTime,GetDate())=0”
Else
SQL = “SELECT COUNT(userid) FROM NC_User WHERE JoinTime>=Date()”
End If
Else
SQL = “SELECT COUNT(userid) FROM NC_User”
End If
End Select
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
StatCount = 0
Else
StatCount = CCur(Rs(0))
If (moduleid = 2 And stype = 3) Or (moduleid = 5 And stype = 3) Then
StatCount = Round(StatCount / 1024 / 1024, 3)
StatCount = FormatNumber(StatCount, 3, -1)
End If
End If
Rs.Close: Set Rs = Nothing
LoadStatistic = StatCount
End Function
‘================================================
‘函数名：ReadStatistic
‘作 用：读取频道统计
‘参 数：str —-原字符串
‘================================================
Public Function ReadStatistic(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents
strTemp = str
On Error Resume Next
If InStr(strTemp, “{$ReadStatistic(“) > 0 Then
sTempContent = Newasp.CutMatchContent(strTemp, “{$ReadStatistic(“, “)}”, 1)
nTempContent = Newasp.CutMatchContent(strTemp, “{$ReadStatistic(“, “)}”, 0)
arrTempContents = Split(sTempContent, “|||”)
arrTempContent = Split(nTempContent, “|||”)
For i = 0 To UBound(arrTempContents)
ArrayList = Split(arrTempContent(i), “,”)
strTemp = Replace(strTemp, arrTempContents(i), LoadStatistic(ArrayList(0), ArrayList(1), ArrayList(2), ArrayList(3)))
Next
End If
ReadStatistic = strTemp
End Function
Public Function ShowIndex(ByVal isHtml)
Dim HtmlContent
Newasp.LoadTemplates 0, 1, 0
HtmlContent = Newasp.HtmlContent
HtmlContent = Replace(HtmlContent, “{$ChannelRootDir}”, Newasp.InstallDir)
HtmlContent = Replace(HtmlContent, “{$InstallDir}”, Newasp.InstallDir)
If Len(Newasp.HtmlSetting(1)) < 2 Then
HtmlContent = Replace(HtmlContent, “{$PageTitle}”, “首页”)
Else
HtmlContent = Replace(HtmlContent, “{$PageTitle}”, Newasp.HtmlSetting(1))
End If
HtmlContent = Replace(HtmlContent, “{$ChannelID}”, 0)
HtmlContent = ReadAnnounceContent(HtmlContent, 0)
HtmlContent = ReadClassMenu(HtmlContent)
HtmlContent = ReadClassMenubar(HtmlContent)
HtmlContent = ReadArticlePic(HtmlContent)
HtmlContent = ReadSoftPic(HtmlContent)
HtmlContent = ReadArticleList(HtmlContent)
HtmlContent = ReadSoftList(HtmlContent)
HtmlContent = ReadFlashList(HtmlContent)
HtmlContent = ReadFlashPic(HtmlContent)
HtmlContent = ReadFriendLink(HtmlContent)
HtmlContent = ReadNewsPicAndText(HtmlContent)
HtmlContent = ReadSoftPicAndText(HtmlContent)
HtmlContent = ReadGuestList(HtmlContent)
HtmlContent = ReadAnnounceList(HtmlContent)
HtmlContent = ReadPopularArticle(HtmlContent)
HtmlContent = ReadPopularSoft(HtmlContent)
HtmlContent = ReadPopularFlash(HtmlContent)
HtmlContent = ReadSoftType(HtmlContent)
HtmlContent = ReadStatistic(HtmlContent)
HtmlContent = ReadUserRank(HtmlContent)
HtmlContent = Replace(HtmlContent, “{$SkinPath}”, Newasp.SkinPath)
HtmlContent = Replace(HtmlContent, “{$InstallDir}”, Newasp.InstallDir)
If isHtml Then
ShowIndex = HtmlContent
Else
Response.Write HtmlContent
End If
End Function
End Class
%>