【正文】 n/img/End if 39。 border=39。039。 onload=39。javascript:DrawImage(this,amp。SmallImgWidthamp。,amp。SmallImgHeightamp。)。39。/a%/td /tr tr39 td align=center%39。39。 //顯示標(biāo)題 a href=39。?ID=amp。InfoRs(ID)amp。39。 target=39。_blank39。 class=39。WebSmallSort39。amp。Myleft(InfoRs(Title),200)amp。/a %/td /tr /table/td% next% /tr%nextEnd if%/table%Set InfoRs=NothingEnd Sub39。39。==============================================39。39。首頁顯示最新產(chǎn)品列表39。39。參數(shù)：分類 ID ,每頁顯示條數(shù) TopNum39。39。調(diào)用例子：Call ShowNewProListTop(1,10) (設(shè)置分類類別 :SortID=1,每類顯示條數(shù)：TopNum=10 )4039。39。==============================================Private Sub ShowNewProListTop(SortID,TopNum)Dim SetRow,SetList,SmallImgWidth,SmallImgHeightSetRow=1 39。39。//設(shè)置每頁顯示行數(shù)SetList=3 39。39。//設(shè)置每行顯示記錄數(shù)SmallImgWidth=144 39。39。//設(shè)置列表圖寬度SmallImgHeight=15239。39。//設(shè)置列表圖高度ProSql=Select top amp。TopNumamp。 * From [View_SSC_ProList_All] Where SortID in (amp。SortIDamp。ProAllChildClass(SortID)amp。) and IsNew=1 and IsPassed=1 Order by UpdateTime DescSet ProRs= () ProSql,Conn,1,1%table width=100% border=0 cellspacing=0 cellpadding=2%if and then trtd height=39。3039。 align=39。center39。 bgcolor=39。FFFFFF39。暫無相關(guān)數(shù)據(jù)/td/trelse for j=1 to SetRow if thenExit ForEnd if% tr%for i=1 to SetList41if then Exit forEnd if% td width=% =(100/SetList) %% align=centertable width=150 border=0 cellpadding=0 cellspacing=3 bgcolor=4A4B4C tr td height=152 align=center% a href=39。?ID=amp。ProRs(ID)amp。39。 target=39。_blank39。img src=39。if ProRs(SmallPicUrl) then ProRs(SmallPicUrl)else admin/img/End if 39。 border=39。039。 onload=39。javascript:DrawImage(this,amp。SmallImgWidthamp。,amp。SmallImgHeightamp。)。39。/a%/td /tr tr td height=23 align=center bgcolor=000000%39。39。 //顯示標(biāo)題 a href=39。?ID=amp。ProRs(ID)amp。39。 target=39。_blank39。amp。Myleft(ProRs(ProName),200)amp。/a %/td /tr42 /table/td% next% /tr%nextEnd if%/table%Set ProRs=NothingEnd Sub39。39。==============================================39。39。顯示產(chǎn)品所屬分類目錄樹39。39。參數(shù)：父分類 ParentID：顯示該分類下的所有子類；鏈接地址：PathUrl39。39。調(diào)用例子：Call ProSortPathListTree(0,?) (設(shè)置分類類別:ParentID=0 PathUrl=PathUrl)39。39。==============================================Private Sub ProSortPathListTree(ParentID, PathUrl)Dim SQL,Rs,PID,SortNameSQL = Select Top 1 SortID,ParentID,DepthID,SortName From [SSC_ProSort] where ParentID=amp。 ParentIDSet Rs= (SQL)If And Then43Set Rs = NothingExit SubEnd IfPID = Rs(SortID)DID= Rs(DepthID)SortName = Rs(SortName)Set Rs = Nothing a href=39。 amp。 PathUrl amp。 SortID= amp。 ParentID amp。 39。 amp。 SortName amp。 /abrCall ProSortPathListTree(PID,PathUrl)End Sub39。39。==============================================39。39。顯示各頻道信息內(nèi)容39。39。參數(shù)：頻道 ID 號39。39。調(diào)用例子：Call ShowChannelContent(1) (設(shè)置頻道 ID:ChannelID=1)39。39。==============================================Private Sub ShowChannelContent(ChannelID)if not IsNumeric(ChannelID) thenChannelID=0End ifInfoSql=Select top 1 * From [SSC_ChannelList] Where SortID=amp。 ChannelIDSet InfoRs= () InfoSql,Conn,1,1 table width=39。100%39。 border=39。039。 cellspacing=39。039。 cellpadding=39。239。if and then44 trtd height=39。3039。 align=39。center39。 bgcolor=39。FFFFFF39。暫無相關(guān)數(shù)據(jù)/td/trelse trtdamp。InfoRs(Content)amp。/td/tr End if /tableSet InfoRs=NothingEnd Sub39。39。==============================================39。39。首頁顯示下載各分類信息列表39。39。參數(shù)：分類 ID ,每頁顯示條數(shù) TopNum39。39。調(diào)用例子：Call ShowDownloadListTop(1,10) (設(shè)置分類類別 :SortID=1,每類顯示條數(shù)：TopNum=10 )39。39。==============================================Private Sub ShowDownloadListTop(SortID,TopNum)DownSql=Select top amp。TopNumamp。 * From [View_SSC_DownloadList_All] Where SortID in (amp。SortIDamp。DownAllChildClass(SortID)amp。) and IsPassed=1 Order by ID DescSet DownRs= () DownSql,Conn,1,1%table width=100% border=0 cellspacing=0 cellpadding=2%if and then trtd height=39。3039。 align=39。center39。 bgcolor=39。FFFFFF39。暫無相關(guān)數(shù)據(jù)/td/trelse45do while not % tr tdtable width=100% border=0 cellpadding=0 cellspacing=0 tr td class=WebBodyTitleBlack%39。39。 //顯示標(biāo)題 amp。middot。a href=39。?ID=amp。DownRs(ID)amp。39。 target=39。_blank39。 class=39。WebSmallSort39。amp。Myleft(DownRs(FileName),200)amp。/a 39。39。 //顯示時間 (amp。Month(DownRs(UpdateTime))amp。/amp。Day(DownRs(UpdateTime))amp。)%/td /tr /table/td /tr% LoopEnd if%/table%Set DownRs=Nothing46End Sub39。39。==============================================39。39。首頁顯示最新產(chǎn)品列表39。39。參數(shù)：分類 ID ,每頁顯示條數(shù) TopNum39。39。調(diào)用例子：Call ShowCasesListTop(1,10) (設(shè)置分類類別 :SortID=1,每類顯示條數(shù)：TopNum=10 )39。39。==============================================Private Sub ShowCasesListTop(SortID,TopNum)Dim SetRow,SetList,SmallImgWidth,SmallImgHeightSetRow=1 39。39。//設(shè)置每頁顯示行數(shù)SetList=6 39。39。//設(shè)置每行顯示記錄數(shù)SmallImgWidth=88 39。39。//設(shè)置列表圖寬度SmallImgHeight=31 39。39。//設(shè)置列表圖高度CasesSql=Select top amp。TopNumamp。 * From [View_SSC_casesList_All] Where SortID in (amp。SortIDamp。CasesAllChildClass(SortID)amp。) and IsPassed=1 Order by UpdateTime DescSet CasesRs= () CasesSql,Conn,1,1%table width=100% border=0 cellspacing=0 cellpadding=2%if and then trtd height=39。3039。 align=39。center39。 bgcolor=39。FFFFFF39。暫無相關(guān)數(shù)據(jù)/td/trelse for j=1 to SetRow if then47Exit ForEnd if% tr%for i=1 to SetListif then Exit forEnd if% td width=% =(100/SetList) %% align=centertable width=96 border=0 cellpadding=0 cellspacing=3 bgcolor=4A4B4C tr td align=center% a href=39。?ID=amp。CasesRs(ID)amp。39。 tar