【正文】 agenc,myself,datafrom,pagenmax,pagenmin,datawhere,sqlid,taxispage = Int(Request(page))39。Trim(Rs(Item1))amp。39。amp。ItemID=amp。Int(Rs(SortID))amp。 order by ItemID DescSet Rs=(Sql) If ThenNex = 下一篇：沒有下一篇了ElsefUrl = eimsamp。 and ItemIDamp。 and amp。] where SortID=amp。Function Nex()Sql = select top 1 SortID,ItemID,Item1,ItemAddDate from [amp。Trim(Rs(Item1))amp。39。amp。ItemID=amp。Int(Rs(SortID))amp。 order by ItemIDSet Rs=(Sql) If ThenPre = 上一篇：沒有上一篇了ElsefUrl = eimsamp。 and ItemIDamp。 and amp。] where SortID=amp。================================================Function Pre()Sql = select top 1 SortID,ItemID,Item1,ItemAddDate from [amp。================================================39。/a/td/tr amp。amp。Int(RsLs(SortID))amp。eimsamp。a href=39。img src=39。 VBCrlf Else trtdamp。Trim(RsLs(SortName))amp。39。?SortID=amp。amp。Images/39。 Next 39。amp。 order by SortSeq Sql,Conn,1,1 39。Sort] where ParentID=amp。================================================Function ListSort(eims,SortID) fSortID = Int(SortID) : TempStr = Set RsLs=() Sql=Select * From [eims_amp。================================================39。/trtr i = i + 1 Wend :Set Rs=Nothing eimsListProduct = TempStramp。/a/div/td amp。ImgHeightamp。 height=39。ImgWidthamp。 width=39。 class=39。Left(Trim(Rs(Item1)),Int(TrimStr))amp。 title=39。ImgPathamp。img src=39。fUrlamp。a href=39。div class=39。td align=39。/a/div/td amp。)。,amp。javascript:DrawImage(this,amp。iProductImg39。39。amp。39。amp。39。amp。iProductBox39。center39。TempStr = TempStramp。ItemID=amp。Int(Rs(SortID))amp。 order by ItemID desc Sql,Conn,1,1 Dim i : i = 1 While Not fUrl = eimsamp。 amp。] where amp。 ItemID,Item1,Item3,ItemHit,SortID,ItemAddDate From [eims_amp。SortID Set Rs=() Sql=Select top amp。 VBCrlf 39。239。239。039。================================================Function eimsListProduct(eims,SortID,Num,TrimStr,ImgWidth,ImgHeight) Dim Sql,fUrl,TempStr : TempStr = 39。================================================39。TempStramp。list39。039。039。039。100%39。/tr amp。/span/td amp。spanamp。td align=39。 VBCrlf 39。Left(Trim(Rs(Item1)),Int(TrimStr))amp。39。amp。 VBCrlf TempStr = TempStramp。fImgamp。39。amp。 VBCrlf TempStr = TempStramp。middle39。Int(Rs(ItemID)) TempStr = TempStramp。amp。.asp?SortID=amp。fDay 39。fMonthamp。fDay fItemAddDate = fYearamp。 fYear = Year(Trim(Rs(ItemAddDate))) fMonth = Month(Trim(Rs(ItemAddDate))) : If fMonth 10 Then fMonth = 0amp。推薦39。fSortIDamp。ItemRecTamp。eimsamp。CommandNumamp。================================================Function ComdList(eims,SortID,Num,TrimStr,fImg,fImgWidth) Dim Sql,fUrl,TempStr : TempStr = If SortID Then fSortID = and SortID = amp。================================================39。TempStramp。list39。039。039。039。100%39。/tr amp。/span/td amp。spanamp。td align=39。 VBCrlf 39。Left(Trim(Rs(Item1)),Int(TrimStr))amp。39。amp。 VBCrlf TempStr = TempStramp。fImgamp。39。amp。 VBCrlf TempStr = TempStramp。middle39。Int(Rs(ItemID)) TempStr = TempStramp。amp。.asp?SortID=amp。fDay 39。fMonthamp。fDay fItemAddDate = fYearamp。 fYear = Year(Trim(Rs(ItemAddDate))) fMonth = Month(Trim(Rs(ItemAddDate))) : If fMonth 10 Then fMonth = 0amp。fSortIDamp。ItemRecTamp。eimsamp。HotNumamp。================================================Function HotList(eims,SortID,Num,TrimStr,fImg,fImgWidth) Dim Sql,fUrl,TempStr : TempStr = If SortID Then fSortID = and SortID = amp。================================================39。TempStramp。list39。039。039。039。100%39。/tr amp。/span/td amp。spanamp。td align=39。/a/td amp。amp。fUrlamp。tda href=39。/td amp。amp。fImgWidthamp。td width=39。 amp。tr valign=39。ItemID=amp。Int(Rs(SortID))amp。 fUrl = eimsamp。amp。amp。fMonth fDay = Day(Trim(Rs(ItemAddDate))) : If fDay 10 Then fDay = 0amp。 order by ItemID desc Sql,Conn,1,1 While Not 39。 amp。] where amp。 ItemID,Item1,ItemHit,SortID,ItemAddDate From [eims_amp。SortID Set Rs=() Sql=Select top amp。列表調(diào)用39。Int(ItemID),Conn,1,1 If Not ( And ) Then Select Case fItem Case Item1 Read = Trim(Rs(Item1)) Case Item2 Read = Trim(Rs(Item2)) Case Item3 Read = Trim(Rs(Item3)) Case Item4 Read = Trim(Rs(Item4)) Case Item5 Read = Trim(Rs(Item5)) Case Item6 Read = Trim(Rs(Item6)) Case Item7 Read = Trim(Rs(Item7)) Case Item8 Read = Trim(Rs(Item8)) Case Item9 Read = Trim(Rs(Item9)) Case ItemHit Read = Trim(Rs(ItemHit)) Case ItemAddDate Read = Trim(Rs(ItemAddDate)) Case ItemEditDate Read = Trim(Rs(ItemEditDate)) Case Else Read = Trim(Rs(ItemNote)) End Select End If:Set Rs=NothingEnd Function39。ItemRecTamp。eimsamp。fItemamp。單頁信息函數(shù)39。SortAction = CheckSql(Trim((Action)))If Int(fItemID) 0 Then ItemID = Int(fItemID)39。ProeimsSort = eims_amp。eimseimsPro = eims_amp。數(shù)據(jù)表來源39。ists, 1, 1, 1) Str = Replace(Str,Chr(13),br, 1, 1, 1) CheckSql = Replace(Str,’,’’, 1, 1, 1) End Function%!include file= （4）、數(shù)據(jù)來源數(shù)據(jù)調(diào)用：!include file=Include/ !include file=Include/!include file=Include/!include file=Include/ %i = 039。t, 1,