【正文】
height=20a target=blank href=Menu=yesimg src= border=0 alt=實時在線溝通 /a/td 39。 border=0 alt=實時在線溝通 39。 td align=center a href=?id=amp。rs(id)amp。 target=_BLANKimg src=images/ border=0 width=15 height=15 alt=修改 /a /tdtd align=center if rs(account)=session(account) then else if rs(active) then a href=?id=amp。rs(id)amp。img src=images/ width=12 height=12 border=0 alt=凍結(jié) /a else a href=?id=amp。rs(id)amp。img src=images/ width=12 height=12 border=0 alt=解除凍結(jié) /a end if end if /td td align=center if rs(account)=session(account) then else % a href= onclick=MM_goToURL(39。parent39。,39。?id=%=rs(id)%39。)。return % img src=images/ border=0 width=15 height=15 alt=刪除 /a/td/tr end if if i+(currentPage1)*MaxPerPage= then exit for end if next set rs=nothing /table end sub sub showpages() dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if table width=39。98%39。 cellspacing=0 cellpadding=0 border=0 style=39。bordercollapse: collapse39。 bordercolor=111111trtd if CurrentPage2 then pfont color=39。99996639。 第 一 頁 上一頁/font else pa href=amp。filenameamp。?page=1amp。pskeyamp。 第 一 頁/a a href=amp。filenameamp。?page=amp。CurrentPage1amp。pskeyamp。上一頁 /a end if if ncurrentpage1 then font color=39。99996639。下一頁 尾頁 /font else a href=amp。filenameamp。?page=amp。(CurrentPage+1)amp。pskey 下一頁 /a a href=amp。filenameamp。?page=amp。namp。pskeyamp。尾頁 /a end if 第 font color=redamp。CurrentPageamp。/font頁共amp。namp。頁 共 bamp。totalnumberamp。/b條記錄 /td/tr/table end sub set conn=nothing % 設備類別管理模塊 設計 % filename= const MaxPerPage=20 dim totalPut,totalnumber dim CurrentPage dim TotalPages dim i,j,typeid if not isempty(request(page)) then currentPage=cint(request(page)) else currentPage=1 end if set rs=() sql=select * from product order by id desc sql,conn,1,1 totalnumber= if not( or ) then totalPut= if currentpage1 then currentpage=1 end if if (currentpage1)*MaxPerPagetotalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpages showContent currentPage,MaxPerPage else if (currentPage1)*MaxPerPagetotalPut then (currentPage1)*MaxPerPage dim bookmark bookmark= showpages showContent currentPage,MaxPerPage else currentPage=1 showpages showContent currentPage,MaxPerPage end if end if end if showpages sub showContent(currentPage,MaxPerPage) table border=1 cellpadding=0 cellspacing=0 style=39。bordercollapse: collapse39。 bordercolor=C0C0C0 id=AutoNumber3 width=39。98%39。 trtd bgcolor=F1F4E4 align=center height=20設備名稱 /td td bgcolor=F1F4E4 align=center height=20供應商 /td td bgcolor=F1F4E4 align=center height=20所屬項目 /td td bgcolor=F1F4E4 align=center height=20設備類別 /td td bgcolor=F1F4E4 align=center height=20供貨數(shù)量 /td td bgcolor=F1F4E4 align=center height=20保修期間 /td td bgcolor=F1F4E4 align=center height=20產(chǎn)品序列號 /td td bgcolor=F1F4E4 align=center height=20產(chǎn)品圖片 /td td bgcolor=F1F4E4 align=center height=20說明 /td td width=20 bgcolor=F1F4E4 align=center修改/td td width=20 bgcolor=F1F4E4 align=center刪除/td /tr for i=1 to MaxPerPage if i/2=int(i/2) then tr style=39。backgroundcolor: F3F3F339。 else tr end if td align=center height=20amp。rs(product_name)amp。/td td align=center height=20 set rs1=() sql1=select name from member where id=amp。rs(member_id) sql1,conn,1,1 if not( or ) then rs1(0) end if /tdtd align=center height=20 sql1=select item_name from item_name where id=amp。rs(item_name) sql1,conn,1,1 if not( or ) then rs1(0) end if /tdtd align=center height=20 sql1=select product_type_name from product_type where id=amp。rs(product_type) sql1,conn,1,1 if not( or ) then rs1(0) end if set rs1=nothing /tdtd align=rightamp。rs(amount)amp。/td td align=centeramp。rs(begin_time)amp。 至amp。rs(end_time)amp。/td td align=centeramp。rs(list)amp。/td td align=centerimg src=amp。rs(pic)amp。 width=40 height=40 /td td align=centeramp。rs(product_use)amp。/td