文章列表类别
2018-09-06 11:23
<%
DimHTML
SetHTML=NewNewaspPublic_Cls
ClassNewaspPublic_Cls
PrivateSubClass_Initialize()
OnErrorResumeNext
Newasp.LoadTemplates0,0,0
EndSub
================================================
函数名：LoadArticleList
作用：装载文章列表
参数：ClassID----分类ID
ChannelID----频道ID
SpecialID----专题ID
sType----调用文章类型,0=所有最新文章，1=推荐文章，2=热门文章，3=图文文章，4=分类最新文章
TopNum----显示文章列表数
strlen----显示标题长度
ShowClass----是否显示分类
ShowPic----是否显示图文标题
ShowDate----是否显示日期
DateMode----显示日期模式
newindow----新窗口打开
================================================
PublicFunctionLoadArticleList(ByValChannelID,ByValClassID,ByValSpecialID,_
ByValstype,ByValTopNum,ByValstrLen,_
ByValshowclass,ByValshowpic,ByValshowdate,_
ByValDateMode,ByValnewindow,ByValstyles)
DimRs,SQL,i,strContent,foundstr
DimsTitle,sTopic,ChildStr,ListStyle,BestCode,BestString
DimArticleTopic,ClassName,HtmlFileUrl,WriteTime,LinkTarget,HtmlFileName
ChannelID=Newasp.ChkNumeric(ChannelID)
ClassID=Newasp.ChkNumeric(ClassID)
SpecialID=Newasp.ChkNumeric(SpecialID)
stype=Newasp.ChkNumeric(stype)
OnErrorResumeNext
Newasp.LoadChannel(ChannelID)
IfCInt(stype)>=4AndCLng(ClassID)<>0Then
SQL=SELECTChildStrFROM[NC_Classify]WHEREChannelID=&ChannelID&AndClassID=&ClassID
SetRs=Newasp.Execute(SQL)
IfRs.BOFAndRs.EOFThen
SetRs=Nothing
LoadArticleList=
ExitFunction
Else
ChildStr=Rs(ChildStr)
EndIf
SetRs=Nothing
Else
ChildStr=0
EndIf
SelectCaseCInt(stype)
Case0:foundstr=OrderByA.WritetimeDesc,A.ArticleidDesc
Case1:foundstr=AndA.isBest>0OrderByA.WritetimeDesc,A.ArticleidDesc
Case2:foundstr=OrderByA.AllHitsDesc,A.ArticleidDesc
Case3:foundstr=And(A.BriefTopic=1OrA.BriefTopic=2)OrderByA.WritetimeDesc,A.ArticleidDesc
Case4:foundstr=AndA.ClassIDin(&ChildStr&)OrderByA.WritetimeDesc,A.ArticleidDesc
Case5:foundstr=AndA.ClassIDin(&ChildStr&)AndA.isBest>0OrderByA.WritetimeDesc,A.ArticleidDesc
Case6:foundstr=AndA.ClassIDin(&ChildStr&)OrderByA.AllHitsDesc,A.ArticleidDesc
Case7:foundstr=AndA.ClassIDin(&ChildStr&)And(A.BriefTopic=1OrA.BriefTopic=2)OrderByA.WritetimeDesc,A.ArticleidDesc
CaseElse
foundstr=OrderByA.WritetimeDesc,A.ArticleidDesc
EndSelect
IfCInt(stype)>=4AndCLng(ClassID)=0Then
foundstr=OrderByA.WritetimeDesc,A.ArticleidDesc
EndIf
IfCLng(SpecialID)<>0Then
foundstr=AndA.SpecialID=&CLng(SpecialID)&&foundstr
EndIf
SetRs=Newasp.Execute(SQL)
i=0
IfRs.BOFAndRs.EOFThen
strContent=该分类还没有添加任何内容！
Else
strContent=<tablewidth=100%border=0cellpadding=2cellspacing=0>
DoWhileNotRs.EOF
If(iMod2)=0Then
ListStyle=Trim(styles)&1
Else
ListStyle=Trim(styles)&2
EndIf
IfRs(isBest)<>0Then
BestCode=2
BestString=<fontcolor=&Newasp.MainSetting(3)&>推荐</font>
Else
BestCode=1
BestString=
EndIf
strContent=strContent&Newasp.MainSetting(13)
sTitle=Newasp.GotTopic(Rs(title),CInt(strLen))
sTitle=Newasp.ReadFontMode(sTitle,Rs(ColorMode),Rs(FontMode))
sTopic=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,)
IfCInt(Newasp.ChannelUseHtml)<>0Then
HtmlFileUrl=Newasp.ChannelPath&Rs(HtmlFileDir)&Newasp.ShowDatePath(Rs(HtmlFileDate),Newasp.ChannelHtmlPath)&HtmlFileName
ClassName=<ahref=&Newasp.ChannelPath&Rs(HtmlFileDir)&index&Newasp.ChannelHtmlExt&>&ClassName&</a>
Else
HtmlFileUrl=Newasp.ChannelPath&show.asp?id=&Rs(ArticleID)
ClassName=<ahref=&Newasp.ChannelPath&list.asp?classid=&Rs(ClassID)&>&ClassName&</a>
EndIf
IfCInt(showclass)=0ThenClassName=
IfCInt(showpic)=0ThensTopic=
IfCInt(showdate)<>0Then
WriteTime=Newasp.ShowDateTime(Rs(WriteTime),CInt(DateMode))
Else
WriteTime=
EndIf
IfCInt(newindow)<>0Then
LinkTarget=
Else
LinkTarget=
EndIf
ArticleTopic=<ahref=&HtmlFileUrl&&LinkTarget&title=&Newasp.ChannelModule&标题：&Rs(title)&
发布时间：&Rs(WriteTime)&
阅览次数：&Rs(AllHits)&class=showlist>&sTitle&</a>
strContent=Replace(strContent,{$ArticleTopic},ArticleTopic)
strContent=Replace(strContent,{$ArticleID},Rs(ArticleID))
strContent=Replace(strContent,{$ArticleTitle},sTitle)
strContent=Replace(strContent,{$Title},Rs(title))
strContent=Replace(strContent,{$DateAndTitle},Rs(WriteTime))
strContent=Replace(strContent,{$BriefTopic},sTopic)
strContent=Replace(strContent,{$HtmlFileUrl},HtmlFileUrl)
strContent=Replace(strContent,{$ClassName},ClassName)
strContent=Replace(strContent,[],)
strContent=Replace(strContent,{$Target},LinkTarget)
strContent=Replace(strContent,{$WriteTime},WriteTime)
strContent=Replace(strContent,{$AticleHits},Rs(AllHits))
strContent=Replace(strContent,{$ListStyle},ListStyle)
strContent=Replace(strContent,{$BestCode},BestCode)
strContent=Replace(strContent,{$BestString},BestString)
Rs.MoveNext
i=i+1
Loop
strContent=strContent&</table>
EndIf
Rs.Close:SetRs=Nothing
LoadArticleList=strContent
EndFunction
================================================
函数名：ReadArticleList
作用：读取文章列表
参数：str----原字符串
================================================
PublicFunctionReadArticleList(ByValstr)
DimstrTemp,i
DimsTempContent,nTempContent
DimarrTempContent,arrTempContents,ArrayList
OnErrorResumeNext
strTemp=str
IfInStr(strTemp,{$ReadArticleList()>0Then
sTempContent=Newasp.CutMatchContent(strTemp,{$ReadArticleList(,)},1)
nTempContent=Newasp.CutMatchContent(strTemp,{$ReadArticleList(,)},0)
arrTempContents=Split(sTempContent,)
arrTempContent=Split(nTempContent,)
Fori=0ToUBound(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
EndIf
ReadArticleList=strTemp
EndFunction
================================================
函数名：LoadSoftList
作用：装载软件列表
参数：ClassID----分类ID
ChannelID----频道ID
sType----调用类型
TopNum----显示列表数
strlen----显示标题长度
ShowClass----是否显示分类
ShowDate----是否显示日期
DateMode----显示日期模式
newindow----新窗口打开
================================================
PublicFunctionLoadSoftList(ByValChannelID,ByValClassID,ByValSpecialID,_
ByValstype,ByValTopNum,ByValstrLen,ByValshowclass,_
ByValshowdate,ByValDateMode,ByValnewindow,ByValstyles)
DimRs,SQL,i,strContent,foundstr,j
DimstrSoftName,ChildStr,ListStyle
DimHtmlFileName,BestCode,BestString,ChannelPath
DimClassName,HtmlFileUrl,SoftTime,LinkTarget,SoftTopic
ChannelID=Newasp.ChkNumeric(ChannelID)
ClassID=Newasp.ChkNumeric(ClassID)
SpecialID=Newasp.ChkNumeric(SpecialID)
stype=Newasp.ChkNumeric(stype)
OnErrorResumeNext
Newasp.LoadChannel(ChannelID)
IfCInt(stype)>=3AndCLng(ClassID)<>0Then
SQL=SELECTChildStrFROM[NC_Classify]WHEREChannelID=&ChannelID&AndClassID=&ClassID
SetRs=Newasp.Execute(SQL)
IfRs.BOFAndRs.EOFThen
SetRs=Nothing
LoadSoftList=
ExitFunction
Else
ChildStr=Rs(ChildStr)
EndIf
Rs.Close
Else
ChildStr=0
EndIf
SelectCaseCInt(stype)
Case0:foundstr=OrderByA.SoftTimeDesc,A.SoftIDDesc
Case1:foundstr=AndA.isBest>0OrderByA.SoftTimeDesc,A.SoftIDDesc
Case2:foundstr=OrderByA.AllHitsDesc,A.SoftIDDesc
Case3:foundstr=AndA.ClassIDin(&ChildStr&)OrderByA.SoftTimeDesc,A.SoftIDDesc
Case4:foundstr=AndA.ClassIDin(&ChildStr&)AndA.isBest>0OrderByA.SoftTimeDesc,A.SoftIDDesc
Case5:foundstr=AndA.ClassIDin(&ChildStr&)OrderByA.AllHitsDesc,A.SoftIDDesc
CaseElse
foundstr=OrderByA.SoftTimeDesc,A.SoftIDDesc
EndSelect
IfCInt(stype)>=3AndCLng(ClassID)=0Then
foundstr=OrderByA.SoftTimeDesc,A.SoftIDDesc
EndIf
IfCLng(SpecialID)<>0Then
foundstr=AndA.SpecialID=&CLng(SpecialID)&&foundstr
EndIf
SQL=A.SoftID,A.ClassID,A.ColorMode,A.FontMode,A.SoftName,A.SoftVer,A.AllHits,A.SoftTime,A.HtmlFileDate,A.isBest,
SQL=SELECTTOP&CInt(TopNum)&SQL&C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtmlFROM[NC_SoftList]AINNERJOIN[NC_Classify]COnA.ClassID=C.ClassIDWHEREA.isAccept>0AndA.ChannelID=&ChannelID&&foundstr&
SetRs=Newasp.Execute(SQL)
j=0
IfRs.BOFAndRs.EOFThen
strContent=没有添加任何软件！
Else
SQL=Rs.GetRows(-1)
strContent=<tablewidth=100%border=0cellpadding=2cellspacing=0>
Fori=0ToUbound(SQL,2)
If(jMod2)=0Then
ListStyle=Trim(styles)&1
Else
ListStyle=Trim(styles)&2
EndIf
IfCInt(SQL(9,i))<>0Then
BestCode=2
BestString=<fontcolor=&Newasp.MainSetting(3)&>推荐</font>
Else
BestCode=1
BestString=
EndIf
strContent=strContent&Newasp.MainSetting(14)
strSoftName=Newasp.GotTopic(SQL(4,i)&&SQL(5,i),CInt(strLen))
strSoftName=Newasp.ReadFontMode(strSoftName,SQL(2,i),SQL(3,i))
ClassName=Newasp.ReadFontMode(SQL(10,i),SQL(11,i),SQL(12,i))
HtmlFileName=Newasp.ReadFileName(SQL(8,i),SQL(0,i),Newasp.ChannelHtmlExt,Newasp.ChannelPrefix,Newasp.ChannelHtmlForm,)
IfCInt(Newasp.ChannelUseHtml)<>0Then
HtmlFileUrl=Newasp.ChannelPath&SQL(13,i)&Newasp.ShowDatePath(SQL(8,i),Newasp.ChannelHtmlPath)&HtmlFileName
ClassName=<ahref=&Newasp.ChannelPath&SQL(13,i)&index&Newasp.ChannelHtmlExt&>&ClassName&</a>
Else
HtmlFileUrl=Newasp.ChannelPath&show.asp?id=&SQL(0,i)
ClassName=<ahref=&Newasp.ChannelPath&list.asp?classid=&SQL(1,i)&>&ClassName&</a>
EndIf
IfCInt(showclass)=0ThenClassName=
IfCInt(showdate)<>0Then
SoftTime=Newasp.ShowDateTime(SQL(7,i),CInt(DateMode))
Else
SoftTime=
EndIf
IfCInt(newindow)<>0Then
LinkTarget=
Else
LinkTarget=
EndIf
SoftTopic=<ahref=&HtmlFileUrl&&LinkTarget&title=&Newasp.ChannelModule&名称：&Trim(SQL(4,i)&&SQL(5,i))&
发布时间：&SQL(7,i)&
下载次数：&SQL(6,i)&class=showlist>&strSoftName&</a>
strContent=Replace(strContent,{$SoftTopic},SoftTopic)
strContent=Replace(strContent,{$SoftID},Rs(softid))
strContent=Replace(strContent,{$InstallDir},Newasp.InstallDir)
strContent=Replace(strContent,{$SoftName},strSoftName)
strContent=Replace(strContent,{$Title},SQL(4,i))
strContent=Replace(strContent,{$DateAndTitle},SQL(7,i))
strContent=Replace(strContent,{$HtmlFileUrl},HtmlFileUrl)
strContent=Replace(strContent,{$ClassName},ClassName)
strContent=Replace(strContent,[],)
strContent=Replace(strContent,{$Target},LinkTarget)
strContent=Replace(strContent,{$SoftTime},SoftTime)
strContent=Replace(strContent,{$SoftHits},SQL(6,i))
strContent=Replace(strContent,{$ListStyle},ListStyle)
strContent=Replace(strContent,{$BestCode},BestCode)
strContent=Replace(strContent,{$BestString},BestString)
j=j+1
Next
SQL=Null
strContent=strContent&</table>
EndIf
Rs.Close:SetRs=Nothing
LoadSoftList=strContent
EndFunction
================================================
函数名：ReadSoftList
作用：读取软件列表
参数：str----原字符串
================================================
PublicFunctionReadSoftList(ByValstr)
DimstrTemp,i
DimsTempContent,nTempContent
DimarrTempContent,arrTempContents,ArrayList
OnErrorResumeNext
strTemp=str
IfInStr(strTemp,{$ReadSoftList()>0Then
sTempContent=Newasp.CutMatchContent(strTemp,{$ReadSoftList(,)},1)
nTempContent=Newasp.CutMatchContent(strTemp,{$ReadSoftList(,)},0)
arrTempContents=Split(sTempContent,)
arrTempContent=Split(nTempContent,)
Fori=0ToUBound(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
EndIf
ReadSoftList=strTemp
EndFunction
================================================
函数名：LoadFlashList
作用：装载动画列表
参数：ClassID----分类ID
ChannelID----频道ID
sType----调用类型
TopNum----显示列表数
strlen----显示标题长度
ShowClass----是否显示分类
ShowDate----是否显示日期
DateMode----显示日期模式
newindow----新窗口打开
================================================
PublicFunctionLoadFlashList(ByValChannelID,ByValClassID,ByValSpecialID,_
ByValstype,ByValTopNum,ByValstrLen,ByValshowclass,_
ByValshowdate,ByValDateMode,ByValnewindow,ByValstyles)
DimRs,SQL,i,strContent,foundstr,j
DimstrTitle,ChildStr,ListStyle
DimHtmlFileName,BestCode,BestString,ChannelPath
DimClassName,HtmlFileUrl,addTime,LinkTarget,FlashTopic
ChannelID=Newasp.ChkNumeric(ChannelID)
ClassID=Newasp.ChkNumeric(ClassID)
SpecialID=Newasp.ChkNumeric(SpecialID)
stype=Newasp.ChkNumeric(stype)
OnErrorResumeNext
Newasp.LoadChannel(ChannelID)
IfCInt(stype)>=3AndCLng(ClassID)<>0Then
SQL=SELECTChildStrFROM[NC_Classify]WHEREChannelID=&ChannelID&AndClassID=&ClassID
SetRs=Newasp.Execute(SQL)
IfRs.BOFAndRs.EOFThen
SetRs=Nothing
LoadFlashList=
ExitFunction
Else
ChildStr=Rs(ChildStr)
EndIf
Rs.Close
Else
ChildStr=0
EndIf
SelectCaseCInt(stype)
Case0:foundstr=OrderByA.addTimeDesc,A.flashidDesc
Case1:foundstr=AndA.isBest>0OrderByA.addTimeDesc,A.flashidDesc
Case2:foundstr=OrderByA.AllHitsDesc,A.flashidDesc
Case3:foundstr=AndA.ClassIDin(&ChildStr&)OrderByA.addTimeDesc,A.flashidDesc
Case4:foundstr=AndA.ClassIDin(&ChildStr&)AndA.isBest>0OrderByA.addTimeDesc,A.flashidDesc
Case5:foundstr=AndA.ClassIDin(&ChildStr&)OrderByA.AllHitsDesc,A.flashidDesc
CaseElse
foundstr=OrderByA.addTimeDesc,A.flashidDesc
EndSelect
IfCInt(stype)>=3AndCLng(ClassID)=0Then
foundstr=OrderByA.addTimeDesc,A.flashidDesc
EndIf
IfCLng(SpecialID)<>0Then
foundstr=AndA.SpecialID=&CLng(SpecialID)&&foundstr
EndIf
SQL=A.flashid,A.ClassID,A.ColorMode,A.FontMode,A.title,A.Author,A.AllHits,A.addTime,A.HtmlFileDate,A.isBest,
SQL=SELECTTOP&CInt(TopNum)&SQL&C.ClassName,C.ColorModes,C.FontModes,C.HtmlFileDir,C.UseHtmlFROM[NC_FlashList]AINNERJOIN[NC_Classify]COnA.ClassID=C.ClassIDWHEREA.isAccept>0AndA.ChannelID=&ChannelID&&foundstr&
SetRs=Newasp.Execute(SQL)
j=0
IfRs.BOFAndRs.EOFThen
strContent=没有添加任何信息！
Else
SQL=Rs.GetRows(-1)
strContent=<tablewidth=100%border=0cellpadding=2cellspacing=0>
Fori=0ToUbound(SQL,2)
If(jMod2)=0Then
ListStyle=Trim(styles)&1
Else
ListStyle=Trim(styles)&2
EndIf
IfCInt(SQL(9,i))<>0Then
BestCode=2
BestString=<fontcolor=&Newasp.MainSetting(3)&>推荐</font>
Else
BestCode=1
BestString=
EndIf
strContent=strContent&Newasp.MainSetting(22)
strTitle=Newasp.GotTopic(SQL(4,i),CInt(strLen))
strTitle=Newasp.ReadFontMode(strTitle,SQL(2,i),SQL(3,i))
ClassName=Newasp.ReadFontMode(SQL(10,i),SQL(11,i),SQL(12,i))
HtmlFileName=Newasp.ReadFileName(SQL(8,i),SQL(0,i),Newasp.ChannelHtmlExt,Newasp.ChannelPrefix,Newasp.ChannelHtmlForm,)
IfCInt(Newasp.ChannelUseHtml)<>0Then
HtmlFileUrl=Newasp.ChannelPath&SQL(13,i)&Newasp.ShowDatePath(SQL(8,i),Newasp.ChannelHtmlPath)&HtmlFileName
ClassName=<ahref=&Newasp.ChannelPath&SQL(13,i)&index&Newasp.ChannelHtmlExt&>&ClassName&</a>
Else
HtmlFileUrl=Newasp.ChannelPath&show.asp?id=&SQL(0,i)
ClassName=<ahref=&Newasp.ChannelPath&list.asp?classid=&SQL(1,i)&>&ClassName&</a>
EndIf
IfCInt(showclass)=0ThenClassName=
IfCInt(showdate)<>0Then
addTime=Newasp.ShowDateTime(SQL(7,i),CInt(DateMode))
Else
addTime=
EndIf
IfCInt(newindow)<>0Then
LinkTarget=
Else
LinkTarget=
EndIf
FlashTopic=<ahref=&HtmlFileUrl&&LinkTarget&title=&Newasp.ChannelModule&名称：&SQL(4,i)&
发布时间：&SQL(7,i)&
下载次数：&SQL(6,i)&class=showlist>&strTitle&</a>
strContent=Replace(strContent,{$FlashTopic},FlashTopic)
strContent=Replace(strContent,{$FlashID},Rs(flashid))
strContent=Replace(strContent,{$InstallDir},Newasp.InstallDir)
strContent=Replace(strContent,{$FlashTopic},strTitle)
strContent=Replace(strContent,{$Title},SQL(4,i))
strContent=Replace(strContent,{$DateAndTime},SQL(7,i))
strContent=Replace(strContent,{$HtmlFileUrl},HtmlFileUrl)
strContent=Replace(strContent,{$ClassName},ClassName)
strContent=Replace(strContent,[],)
strContent=Replace(strContent,{$Target},LinkTarget)
strContent=Replace(strContent,{$addTime},addTime)
strContent=Replace(strContent,{$FlashHits},SQL(6,i))
strContent=Replace(strContent,{$ListStyle},ListStyle)
strContent=Replace(strContent,{$BestCode},BestCode)
strContent=Replace(strContent,{$BestString},BestString)
j=j+1
Next
SQL=Null
strContent=strContent&</table>
EndIf
Rs.Close:SetRs=Nothing
LoadFlashList=strContent
EndFunction
================================================
函数名：ReadFlashList
作用：读取动画列表
参数：str----原字符串
================================================
PublicFunctionReadFlashList(ByValstr)
DimstrTemp,i
DimsTempContent,nTempContent
DimarrTempContent,arrTempContents,ArrayList
OnErrorResumeNext
strTemp=str
IfInStr(strTemp,{$ReadFlashList()>0Then
sTempContent=Newasp.CutMatchContent(strTemp,{$ReadFlashList(,)},1)
nTempContent=Newasp.CutMatchContent(strTemp,{$ReadFlashList(,)},0)
arrTempContents=Split(sTempContent,)
arrTempContent=Split(nTempContent,)
Fori=0ToUBound(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
EndIf
ReadFlashList=strTemp
EndFunction
================================================
函数名：LoadAnnounceContent
作用：装载内容公告
参数：str----原字符串
================================================
PublicFunctionLoadAnnounceContent(ByValsTopic,ByValChannelID)
DimSQL,Rs,strTemp
strTemp=
sTopic=Newasp.CheckStr(sTopic)
IfsTopic<>AndsTopic<>0Then
SQL=SelectAnnounceID,Content,PostTime,writerFromNC_AnnouncewhereAnnounceType=1Andtitle=&sTopic&OrderByPostTimeDesc,AnnounceIDDesc
Else
SQL=SelectAnnounceID,ContentFromNC_AnnouncewhereAnnounceType=1AndChannelIDin(&ChannelID&,999)OrderByPostTimeDesc,AnnounceIDDesc
EndIf
SetRs=Newasp.Execute(SQL)
IfNot(Rs.BOFAndRs.EOF)Then
strTemp=Rs(Content)
EndIf
Rs.Close:SetRs=Nothing
LoadAnnounceContent=strTemp
EndFunction
================================================
函数名：ReadAnnounceContent
作用：读取内容公告
参数：str----原字符串
================================================
PublicFunctionReadAnnounceContent(ByValstr,ByValChannelID)
DimstrTemp,i,sTempContent,nTempContent,strValue
DimarrTempContent,arrTempContents
OnErrorResumeNext
strTemp=str
IfInStr(strTemp,{$AnnounceContent()>0Then
sTempContent=Newasp.CutMatchContent(strTemp,{$AnnounceContent(,)},1)
nTempContent=Newasp.CutMatchContent(strTemp,{$AnnounceContent(,)},0)
IfnTempContent=ThennTempContent=0
arrTempContents=Split(sTempContent,)
arrTempContent=Split(nTempContent,)
Fori=0ToUBound(arrTempContents)
strValue=arrTempContent(i)
strTemp=Replace(strTemp,arrTempContents(i),LoadAnnounceContent(strValue,ChannelID))
Next
EndIf
ReadAnnounceContent=strTemp
EndFunction
================================================
函数名：LoadAnnounceList
作用：装载公告列表
参数：maxnum----最多公告数
maxlen----字符长度
newindow----是否新窗口打开1=是，0=否
showdate----是否显示时间1=是，0=否
DateMode----时间模式
showtree----树型显示
================================================
PublicFunctionLoadAnnounceList(ByValChannelID,ByValmaxnum,ByValmaxlen,_
ByValnewindow,ByValshowdate,ByValDateMode,ByValshowtree)
DimRs,SQL,strContent
DimAnnounceTopic,LinkTarget
DimPostTime
ChannelID=Newasp.ChkNumeric(ChannelID)
maxnum=Newasp.ChkNumeric(maxnum)
Ifmaxnum=0Thenmaxnum=10
OnErrorResumeNext
SetRs=Newasp.Execute(SELECTTOP&CInt(maxnum)&AnnounceID,title,Content,PostTime,writer,hitsFROMNC_AnnounceWHERE(ChannelID=&ChannelID&OrChannelID=999)AndAnnounceType<>1ORDERBYPostTimeDESC,AnnounceIDDESC)
IfRs.BOFAndRs.EOFThen
LoadAnnounceList=
SetRs=Nothing
ExitFunction
Else
DoWhileNotRs.EOF
IfCInt(newindow)<>0Then
LinkTarget=
Else
LinkTarget=
EndIf
IfCInt(showdate)<>0Then
PostTime=Newasp.ShowDateTime(Rs(PostTime),CInt(DateMode))
Else
PostTime=
EndIf
AnnounceTopic=Newasp.GotTopic(Rs(title),CInt(maxlen))
AnnounceTopic=<ahref=&Newasp.InstallDir&Announce.Asp?AnnounceID=&Rs(AnnounceID)&title=&Rs(title)&&LinkTarget&>&AnnounceTopic&</a>
IfCInt(showtree)=1Then
strContent=strContent&<div>·&AnnounceTopic&</div><divalign=rightclass=dottedline>&PostTime&</div>&vbNewLine
Else
strContent=strContent&·&AnnounceTopic&&PostTime&vbNewLine
EndIf
Rs.MoveNext
Loop
EndIf
LoadAnnounceList=strContent
EndFunction
================================================
函数名：ReadAnnounceList
作用：读取公告列表
参数：str----原字符串
================================================
PublicFunctionReadAnnounceList(ByValstr)
DimstrTemp,i
DimsTempContent,nTempContent,ArrayList
DimarrTempContent,arrTempContents
OnErrorResumeNext
strTemp=str
IfInStr(strTemp,{$ReadAnnounceList()>0Then
sTempContent=Newasp.CutMatchContent(strTemp,{$ReadAnnounceList(,)},1)
nTempContent=Newasp.CutMatchContent(strTemp,{$ReadAnnounceList(,)},0)
arrTempContents=Split(sTempContent,)
arrTempContent=Split(nTempContent,)
Fori=0ToUBound(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
EndIf
ReadAnnounceList=strTemp
EndFunction
================================================
函数名：LoadArticlePic
作用：装载文章图片列表
参数：ClassID----分类ID
ChannelID----频道ID
sType----调用文章类型,0=所有最新文章，1=推荐文章，2=热门文章，3=图文文章，4=分类最新文章
TopNum----显示文章列表数
strlen----显示标题长度
ShowClass----是否显示分类
ShowPic----是否显示图文标题
ShowDate----是否显示日期
DateMode----显示日期模式
newindow----新窗口打开
================================================
PublicFunctionLoadArticlePic(ChannelID,ClassID,SpecialID,stype,TopNum,PerRowNum,strLen,newindow,width,height,showtopic)
DimRs,SQL,i,strContent,foundstr
DimsTitle,ChildStr,ImageUrl,HtmlFileName
DimHtmlFileUrl,WriteTime,LinkTarget
ChannelID=Newasp.ChkNumeric(ChannelID)
ClassID=Newasp.ChkNumeric(ClassID)
SpecialID=Newasp.ChkNumeric(SpecialID)
stype=Newasp.ChkNumeric(stype)
OnErrorResumeNext
Newasp.LoadChannel(ChannelID)
IfCInt(stype)>=3AndCLng(ClassID)<>0Then
SQL=SELECTChildStrFROM[NC_Classify]WHEREChannelID=&ChannelID&AndClassID=&ClassID
SetRs=Newasp.Execute(SQL)
IfRs.BOFAndRs.EOFThen
SetRs=Nothing
LoadArticlePic=
ExitFunction
Else
ChildStr=Rs(ChildStr)
EndIf
SetRs=Nothing
Else
ChildStr=0
EndIf
SelectCaseCInt(stype)
Case0:foundstr=OrderByA.WritetimeDesc,A.ArticleidDesc
Case1:foundstr=AndA.isBest>0OrderByA.WritetimeDesc,A.ArticleidDesc
Case2:foundstr=OrderByA.AllHitsDesc,A.ArticleidDesc
Case3:foundstr=AndA.ClassIDin(&ChildStr&)OrderByA.WritetimeDesc,A.ArticleidDesc
Case4:foundstr=AndA.ClassIDin(&ChildStr&)AndA.isBest>0OrderByA.WritetimeDesc,A.ArticleidDesc
Case5:foundstr=AndA.ClassIDin(&ChildStr&)OrderByA.AllHitsDesc,A.ArticleidDesc
CaseElse
foundstr=OrderByA.WritetimeDesc,A.ArticleidDesc
EndSelect
IfCInt(stype)>=4AndCLng(ClassID)=0Then
foundstr=OrderByA.WritetimeDesc,A.ArticleidDesc
EndIf
IfCLng(SpecialID)<>0Then
foundstr=AndA.SpecialID=&CLng(SpecialID)&&foundstr
EndIf
SQL=A.ArticleID,A.ClassID,A.title,A.AllHits,A.WriteTime,A.HtmlFileDate,A.isBest,A.ImageUrl,
SQL=selectTop&CInt(TopNum)&SQL&C.ClassName,C.HtmlFileDir,C.UseHtmlfrom[NC_Article]Ainnerjoin[NC_Classify]COnA.ClassID=C.ClassIDwhereA.isAccept>0AndA.ImageUrl<>AndA.ChannelID=&ChannelID&&foundstr&
SetRs=Newasp.Execute(SQL)
IfRs.BOFAndRs.EOFThen
strContent=<imgsrc=&Newasp.InstallDir&images/no_pic.gifwidth=&width&height=&height&border=0>
Else
strContent=<tablewidth=100%border=0cellpadding=1cellspacing=5>&vbCrLf
DoWhileNotRs.EOF
strContent=strContent&<tr>&vbCrLf
Fori=1ToCInt(PerRowNum)
strContent=strContent&<tdalign=centerclass=imagelist>
IfNotRs.EOFThen
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,)
IfCInt(Newasp.ChannelUseHtml)<>0Then
HtmlFileUrl=Newasp.ChannelPath&Rs(HtmlFileDir)&Newasp.ShowDatePath(Rs(HtmlFileDate),Newasp.ChannelHtmlPath)&HtmlFileName
Else
HtmlFileUrl=Newasp.ChannelPath&show.asp?id=&Rs(ArticleID)
EndIf
IfCInt(newindow)<>0Then
LinkTarget=
Else
LinkTarget=
EndIf
strContent=strContent&Newasp.MainSetting(18)
strContent=Replace(strContent,{$ArticlePicture},<ahref=&HtmlFileUrl&title=&Rs(title)&&LinkTarget&>&ImageUrl&</a>)
IfCInt(showtopic)=1Then
strContent=Replace(strContent,{$ArticleTopic},<ahref=&HtmlFileUrl&title=&Rs(title)&&LinkTarget&>&sTitle&</a>)
Else
strContent=Replace(strContent,{$ArticleTopic},vbNullString)
EndIf
strContent=strContent&</td>&vbCrLf
Rs.MoveNext
EndIf
Next
strContent=strContent&</tr>&vbCrLf
Loop
strContent=strContent&</table>&vbCrLf
EndIf
Rs.Close:SetRs=Nothing
LoadArticlePic=strContent
EndFunction
================================================
函数名：ReadArticlePic
作用：读取文章图片列表
参数：str----原字符串
================================================
PublicFunctionReadArticlePic(ByValstr)
DimstrTemp,i
DimsTempContent,nTempContent,ArrayList
DimarrTempContent,arrTempContents
OnErrorResumeNext
strTemp=str
IfInStr(strTemp,{$ReadArticlePic()>0Then
sTempContent=Newasp.CutMatchContent(strTemp,{$ReadArticlePic(,)},1)
nTempContent=Newasp.CutMatchContent(strTemp,{$ReadArticlePic(,)},0)
arrTempContents=Split(sTempContent,)
arrTempContent=Split(nTempContent,)
Fori=0ToUBound(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
EndIf
ReadArticlePic=strTemp
EndFunction
================================================
函数名：LoadSoftPic
作用：装载软件图片列表
参数：ClassID----分类ID
ChannelID----频道ID
sType----调用软件类型,0=所有最新软件，1=推荐软。