【正文】 tr td align=lefta href=img src=images/ width=42 height=15 border=0/a/td td width=10amp。nbsp。/td /tr /table/td /tr tr td colspan=4 align=centerimg src=images/ width=568 height=9/td /tr /table/td /tr /table/td /tr/table!include file=/body/html查看新書(shū)，：%@LANGUAGE=VBSCRIPT CODEPAGE=936%!include file=manage/inc/ !include file=inc/ htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312title網(wǎng)上書(shū)店/titlelink href= rel=stylesheet type=text/cssstyle type=text/css!body { backgroundcolor: CCCCCC。}/style/headbody!include file=table width=780 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=FFFFFF tr td width=219 align=left valign=top!include file=/td td width=561 align=left valign=top table width=100% border=0 cellspacing=0 cellpadding=0 tr td align=left valign=topbr img src=images/ width=221 height=28/td /tr tr td align=center valign=toptable width=568 border=0 cellpadding=0 cellspacing=0% Const MaxPerPage=5dim totalPut dim CurrentPagedim TotalPagesdim jdim sqlif Not isempty(request(page)) then currentPage=Cint(request(page))else currentPage=1end if set rs=() select top 100 name,discount,mark,vipprice,id,author,adddate,price2,price1,discount,pic from product order by adddate desc,conn,1,1if And then call MsgBox(對(duì)不起，目前沒(méi)有更新商品！,Back,None) else totalPut=if currentpage1 then currentpage=1end ifif (currentpage1)*MaxPerPagetotalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end ifend ifif currentPage=1 thenelse if (currentPage1)*MaxPerPagetotalPut then (currentPage1)*MaxPerPage dim bookmark bookmark= else currentPage=1 end if end ifend ifdim ii=0do while not % tr td width=17% height=130 align=center valign=middle class=shadowa href=?id=%=trim(rs(id))% target=_blankimg src=%=trim(rs(pic))% width=85 height=125 border=0/a/td td height=130 align=left valign=toptable width=100% border=0 cellspacing=2 cellpadding=0 tr td colspan=2img src=images/ width=18 height=18span class=booktitle%=trim(rs(name))%/span/td /tr tr class=bookinfo td width=50% height=12 class=bookinfo作　者：%=trim(rs(author))%/td td width=50% class=bookinfo 出版社：%=trim(rs(mark))%/td /tr tr class=bookinfo td width=50%優(yōu)惠價(jià)： %=trim(rs(price2))%/td td width=50%日　期：%=trim(rs(adddate))%/td /tr tr class=bookinfo td定　價(jià)：%=trim(rs(price1))%/td tdVIP價(jià)格：%=rs(vipprice)%/td /tr tr class=bookinfo td折　扣：%=trim(rs(discount)*100)%/td td /td /tr tr class=bookinfo td width=50%amp。nbsp。/td td width=50%amp。nbsp。 /td /tr tr td colspan=2 align=centera href=?id=%=rs(id)%amp。action=add target=pcartimg src=images/ width=23 height=20 border=0購(gòu)物車(chē)/a/td /tr /table/td/tr tr td colspan=2 align=centerimg src=images/ width=568 height=9/td /tr%i=i+1 if i=MaxPerPage then Exit Do loop set rs=nothing% % Function showpage(totalnumber,maxperpage,filename) Dim n If totalnumber Mod maxperpage=0 Then n= totalnumber \ maxperpage Else n= totalnumber \ maxperpage+1 End If form method=Post action=amp。filenameamp。 p align=39。center39。 class=39。contents39。 If CurrentPage2 Then font class=39。contents39。首頁(yè) 上一頁(yè)/font Else a href=amp。filenameamp。?page=1 class=39。contents39。首頁(yè)/a a href=amp。filenameamp。?page=amp。CurrentPage1amp。 class=39。contents39。上一頁(yè)/a End If If ncurrentpage1 Then font class=39。contents39。下一頁(yè) 尾頁(yè)/font Else a href=amp。filenameamp。?page=amp。(CurrentPage+1)amp。 class=39。contents39。 下一頁(yè)/a a href=amp。filenameamp。?page=amp。namp。 class=39。contents39。尾頁(yè)/a End If font class=39。contents39。 頁(yè)次：/fontfont class=39。contents39。amp。CurrentPageamp。/fontfont class=39。contents39。/amp。namp。頁(yè)/font font class=39。contents39。 共有bamp。nbsp。amp。totalnumberamp。amp。nbsp。/b種商品 amp。maxperpageamp。種商品/頁(yè)/font font class=39。contents39。轉(zhuǎn)到：/fontinput type=39。text39。 name=39。page39。 size=2 maxlength=10 class=smallInput value=amp。currentpageamp。 amp。nbsp。input type=39。submit39。 class=39。contents39。 value=39。GO39。 name=39。dok39。/form End Function % tr align=center td colspan=2br form name=form1 method=post action= % showpage totalput,MaxPerPage,% /form /td /tr /table/td/tr tr tdamp。nbsp。/td/tr /table/td/tr/table!include file=/body/html用戶(hù)注冊(cè)，：%@LANGUAGE=VBSCRIPT CODEPAGE=936%!include file=manage/inc/ !include file=inc/ % if NOT isempty(request(RegSubmit)) then if session(regtimes)=1 then call MsgBox(對(duì)不起，