ÎÄÕÂÁбíÀà±ð

&lt;% <br>Dim&nbsp;HTML <br>Set&nbsp;HTML&nbsp;=&nbsp;New&nbsp;NewaspPublic_Cls <br>Class&nbsp;NewaspPublic_Cls <br><br>&nbsp;&nbsp;&nbsp;&nbsp;Private&nbsp;Sub&nbsp;Class_Initialize() <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;On&nbsp;Error&nbsp;Resume&nbsp;Next <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Newasp.LoadTemplates&nbsp;0,&nbsp;0,&nbsp;0 <br>&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;Sub <br>&nbsp;&nbsp;&nbsp;&nbsp;'================================================ <br>&nbsp;&nbsp;&nbsp;&nbsp;'º¯ÊýÃû£ºLoadArticleList <br>&nbsp;&nbsp;&nbsp;&nbsp;'×÷&nbsp;&nbsp;Óãº×°ÔØÎÄÕÂÁбí <br>&nbsp;&nbsp;&nbsp;&nbsp;'²Î&nbsp;&nbsp;Êý£ºClassID&nbsp;&nbsp;&nbsp;----·ÖÀàID <br>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ChannelID&nbsp;&nbsp;&nbsp;----ƵµÀID <br>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SpecialID&nbsp;&nbsp;----רÌâID <br>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sType&nbsp;&nbsp;&nbsp;----µ÷ÓÃÎÄÕÂÀàÐÍ,0=ËùÓÐ×îÐÂÎÄÕ£¬1=ÍƼöÎÄÕ£¬2=ÈÈÃÅÎÄÕ£¬3=ͼÎÄÎÄÕ£¬4=·ÖÀà×îÐÂÎÄÕ <br>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TopNum&nbsp;&nbsp;&nbsp;----ÏÔʾÎÄÕÂÁбíÊý <br>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strlen&nbsp;&nbsp;&nbsp;----ÏÔʾ±êÌⳤ¶È <br>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowClass&nbsp;&nbsp;&nbsp;----ÊÇ·ñÏÔʾ·ÖÀà <br>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowPic&nbsp;&nbsp;&nbsp;----ÊÇ·ñÏÔʾͼÎıêÌâ <br>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowDate&nbsp;&nbsp;&nbsp;----ÊÇ·ñÏÔʾÈÕÆÚ <br>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateMode&nbsp;&nbsp;&nbsp;----ÏÔʾÈÕÆÚģʽ <br>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;newindow&nbsp;&nbsp;&nbsp;----д°¿Ú´ò¿ª <br>&nbsp;&nbsp;&nbsp;&nbsp;'================================================ <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;Function&nbsp;LoadArticleList(ByVal&nbsp;ChannelID,&nbsp;ByVal&nbsp;ClassID,&nbsp;ByVal&nbsp;SpecialID,&nbsp;_ <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ByVal&nbsp;stype,&nbsp;ByVal&nbsp;TopNum,&nbsp;ByVal&nbsp;strLen,&nbsp;_ <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ByVal&nbsp;showclass,&nbsp;ByVal&nbsp;showpic,&nbsp;ByVal&nbsp;showdate,&nbsp;_ <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ByVal&nbsp;DateMode,&nbsp;ByVal&nbsp;newindow,&nbsp;ByVal&nbsp;styles) <br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;Rs,&nbsp;SQL,&nbsp;i,&nbsp;strContent,&nbsp;foundstr <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;sTitle,&nbsp;sTopic,&nbsp;ChildStr,&nbsp;ListStyle,&nbsp;BestCode,&nbsp;BestString <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;ArticleTopic,&nbsp;ClassName,&nbsp;HtmlFileUrl,&nbsp;WriteTime,&nbsp;LinkTarget,&nbsp;HtmlFileName <br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ChannelID&nbsp;=&nbsp;Newasp.ChkNumeric(ChannelID) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ClassID&nbsp;=&nbsp;Newasp.ChkNumeric(ClassID) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SpecialID&nbsp;=&nbsp;Newasp.ChkNumeric(SpecialID) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;stype&nbsp;=&nbsp;Newasp.ChkNumeric(stype) <br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;On&nbsp;Error&nbsp;Resume&nbsp;Next <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Newasp.LoadChannel(ChannelID) <br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;CInt(stype)&nbsp;&gt;=&nbsp;4&nbsp;And&nbsp;CLng(ClassID)&nbsp;&lt;&gt;&nbsp;0&nbsp;Then <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQL&nbsp;=&nbsp;"SELECT&nbsp;ChildStr&nbsp;FROM&nbsp;[NC_Classify]&nbsp;WHERE&nbsp;ChannelID="&nbsp;&amp;&nbsp;ChannelID&nbsp;&amp;&nbsp;"&nbsp;And&nbsp;ClassID="&nbsp;&amp;&nbsp;ClassID <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;Rs&nbsp;=&nbsp;Newasp.Execute(SQL) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Rs.BOF&nbsp;And&nbsp;Rs.EOF&nbsp;Then <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;Rs&nbsp;=&nbsp;Nothing <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;LoadArticleList&nbsp;=&nbsp;"" <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit&nbsp;Function <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ChildStr&nbsp;=&nbsp;Rs("ChildStr") <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;Rs&nbsp;=&nbsp;Nothing <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ChildStr&nbsp;=&nbsp;"0" <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If <br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Select&nbsp;Case&nbsp;CInt(stype) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case&nbsp;0:&nbsp;foundstr&nbsp;=&nbsp;"Order&nbsp;By&nbsp;A.Writetime&nbsp;Desc&nbsp;,A.Articleid&nbsp;Desc" <