【文章內(nèi)容簡(jiǎn)介】 mp。/td amp。 VBCrlf TempStr = TempStramp。tda href=39。amp。fUrlamp。39。amp。Left(Trim(Rs(Item1)),Int(TrimStr))amp。/a/td amp。 VBCrlf 39。TempStr = TempStramp。td align=39。right39。spanamp。fItemAddDateamp。/span/td amp。 VBCrlf TempStr = TempStramp。/tr amp。 VBCrlf Wend :Set Rs=Nothing HotList = table width=39。100%39。 border=39。039。 cellspacing=39。039。 cellpadding=39。039。 Class=39。list39。amp。TempStramp。/tableEnd Function39。================================================39。推薦列表39。================================================Function ComdList(eims,SortID,Num,TrimStr,fImg,fImgWidth) Dim Sql,fUrl,TempStr : TempStr = If SortID Then fSortID = and SortID = amp。SortID Set Rs=() Sql=Select top amp。CommandNumamp。 ItemID,Item1,ItemHit,SortID,ItemAddDate,Item9 From [eims_amp。eimsamp。] where amp。ItemRecTamp。 amp。fSortIDamp。 and Item9 = 39。推薦39。 order by ItemID desc Sql,Conn,1,1 While Not 39。 fYear = Year(Trim(Rs(ItemAddDate))) fMonth = Month(Trim(Rs(ItemAddDate))) : If fMonth 10 Then fMonth = 0amp。fMonth fDay = Day(Trim(Rs(ItemAddDate))) : If fDay 10 Then fDay = 0amp。fDay fItemAddDate = fYearamp。amp。fMonthamp。amp。fDay 39。 fUrl = eimsamp。.asp?SortID=amp。Int(Rs(SortID))amp。amp。ItemID=amp。Int(Rs(ItemID)) TempStr = TempStramp。tr valign=39。middle39。 amp。 VBCrlf TempStr = TempStramp。td width=39。amp。fImgWidthamp。39。amp。fImgamp。/td amp。 VBCrlf TempStr = TempStramp。tda href=39。amp。fUrlamp。39。amp。Left(Trim(Rs(Item1)),Int(TrimStr))amp。/a/td amp。 VBCrlf 39。TempStr = TempStramp。td align=39。right39。spanamp。fItemAddDateamp。/span/td amp。 VBCrlf TempStr = TempStramp。/tr amp。 VBCrlf Wend :Set Rs=Nothing ComdList = table width=39。100%39。 border=39。039。 cellspacing=39。039。 cellpadding=39。039。 Class=39。list39。amp。TempStramp。/tableEnd Function39。================================================39。產(chǎn)品調(diào)用39。================================================Function eimsListProduct(eims,SortID,Num,TrimStr,ImgWidth,ImgHeight) Dim Sql,fUrl,TempStr : TempStr = 39。 TempStr = table border=39。039。 cellspacing=39。239。 cellpadding=39。239。tr amp。 VBCrlf 39。 If SortID Then fSortID = and SortID = amp。SortID Set Rs=() Sql=Select top amp。Numamp。 ItemID,Item1,Item3,ItemHit,SortID,ItemAddDate From [eims_amp。eimsamp。] where amp。ItemRecTamp。 amp。fSortIDamp。 order by ItemID desc Sql,Conn,1,1 Dim i : i = 1 While Not fUrl = eimsamp。.asp?SortID=amp。Int(Rs(SortID))amp。amp。ItemID=amp。Int(Rs(ItemID)) ImgPath = Replace(Trim(Rs(Item3)),../,) 39。TempStr = TempStramp。td align=39。center39。div class=39。iProductBox39。a href=39。amp。fUrlamp。39。img src=39。amp。ImgPathamp。39。 title=39。amp。Left(Trim(Rs(Item1)),Int(TrimStr))amp。39。 class=39。iProductImg39。 onload=39。javascript:DrawImage(this,amp。ImgWidthamp。,amp。ImgHeightamp。)。39。/a/div/td amp。 VBCrlf TempStr = TempStramp。td align=39。center39。div class=39。iProductBox39。a href=39。amp。fUrlamp。39。img src=39。amp。ImgPathamp。39。 title=39。amp。Left(Trim(Rs(Item1)),Int(TrimStr))amp。39。 class=39。iProductImg39。 width=39。amp。ImgWidthamp。39。 height=39。amp。ImgHeightamp。39。/a/div/td amp。 VBCrlf If i Mod 20 = 0 Then TempStr = TempStramp。/trtr i = i + 1 Wend :Set Rs=Nothing eimsListProduct = TempStramp。/tr/tableEnd Function39。================================================39。分類導(dǎo)航39。================================================Function ListSort(eims,SortID) fSortID = Int(SortID) : TempStr = Set RsLs=() Sql=Select * From [eims_amp。eimsamp。Sort] where ParentID=amp。fSortIDamp。 order by SortSeq Sql,Conn,1,1 39。 For n = 1 to i*2 TempStr = TempStramp。amp。nbsp。 Next 39。 While Not If fSortID = 0 Then trtdimg src=39。Images/39。a href=39。amp。eimsamp。?SortID=amp。Int(RsLs(SortID))amp。39。amp。Trim(RsLs(SortName))amp。/a/td/tr amp。 VBCrlf Else trtdamp。TempStramp。img src=39。Images/39。a href=39。amp。eimsamp。?SortID=amp。Int(RsLs(SortID))amp。39。amp。Trim(RsLs(SortName))amp。/a/td/tr amp。 VBCrlf End If i = i + 1 ListSort eims,Int(RsLs(SortID)) i = i 1 Wend :Set RsLs=NothingEnd Function39。================================================39。文章上下頁(yè)39。================================================Function Pre()Sql = select top 1 SortID,ItemID,Item1,ItemAddDate from [amp。eimsTableamp。] where SortID=amp。SortIDamp。 and amp。ItemRecTamp。 and ItemIDamp。ItemIDamp。 order by ItemIDSet Rs=(Sql) If ThenPre = 上一篇：沒(méi)有上一篇了ElsefUrl = eimsamp。.asp?SortID=amp。Int(Rs(SortID))amp。amp。ItemID=amp。Int(Rs(ItemID))Pre = 上一篇：a href=39。amp。fUrlamp。39。amp。Trim(Rs(Item1))amp。/aEnd If:Set Rs=NothingEnd Function39。Function Nex()Sql = select top 1 SortID,ItemID,Item1,ItemAddDate from [amp。eimsTableamp。] where SortID=amp。SortIDamp。 and amp。ItemRecTamp。 and ItemIDamp。ItemIDamp。 order by ItemID DescSet Rs=(Sql) If ThenNex = 下一篇：沒(méi)有下一篇了ElsefUrl = eimsamp。.asp?SortID=amp。Int(Rs(SortID))amp。amp。ItemID=amp。Int(Rs(ItemID))Nex = 下一篇：a href=39