網(wǎng)上購(gòu)物系統(tǒng)畢業(yè)論文-畢業(yè)論文(已改無(wú)錯(cuò)字)
2023-03-03 02:52:18 本頁(yè)面
【正文】 sql = Select * From Admin Where AdminId=39。 amp。 AdminId amp。 39。 And Passwd=39。 amp。 Passwd amp。 39。 39。是否存在此用戶名 Set rs = (sql) If Then End If Else End If 畢業(yè)設(shè)計(jì) 網(wǎng)上購(gòu)物系統(tǒng) % 3） 注冊(cè)用戶在確認(rèn)訂單、查看購(gòu)物車、提交投訴等情況下，需要通過(guò)身份驗(yàn)證。 可以實(shí)現(xiàn)此功能，代碼如下： % 39。從 Session 變量中讀取注冊(cè)用戶信息，并連接到數(shù)據(jù)庫(kù)驗(yàn)證 UserId = Trim(Session(user_id)) Pwd = Trim(Session(user_pwd)) 39。如果用戶名為空，則顯示提示信息 If UserId = Then (不是注冊(cè)用戶，不能進(jìn)入 ) Else 39。連接數(shù)據(jù)庫(kù)，進(jìn)行身份驗(yàn)證 sql=SELECT * FROM Users WHERE UserId=39。 amp。 UserId amp。 39。 AND Pwd=39。 amp。 Pwd amp。 39。 Set rs = (sql) If Then (不是注冊(cè)用戶， 不能進(jìn)入 ) End If End If % 程序從 Session 變量中讀取注冊(cè)用戶信息，并連接到數(shù)據(jù)庫(kù)身份驗(yàn)證。如果是注冊(cè)用戶，則程序不執(zhí)行任何操作；否則顯示提示信息。在文件中應(yīng)用此文件作為頭文件，代碼如下： !include file=” ” 系統(tǒng)主界面與登錄程序設(shè)計(jì) 本系統(tǒng)的主界面為 ，它的功能顯示網(wǎng)絡(luò)商城的給定信息，包括系統(tǒng)公告、用戶公告、用戶登錄、訂單查詢、商品查詢、最新商品、熱賣商 品和商品分類等信息 錄入商品類別和商品信息后， 的界面如圖 41 所示。 畢業(yè)設(shè)計(jì) 網(wǎng)上購(gòu)物系統(tǒng) 圖 41: 主界面 %@LANGUAGE=VBSCRIPT CODEPAGE=936% % %!include file=manage/inc/ !include file=inc/ html head meta equiv=ContentType content=text/html。 charset=gb2312 title網(wǎng)上商品超市 /title link href= rel=stylesheet type=text/css /head body !include file= table width=780 border=0 align=center cellpadding=0 cellspacing=0 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=212 height=32/td /tr tr td align=center valign=toptable width=568 border=0 cellpadding=0 畢業(yè)設(shè)計(jì) 網(wǎng)上購(gòu)物系統(tǒng) cellspacing=0 %39。開(kāi)始分頁(yè) Const MaxPerPage=5 dim totalPut dim CurrentPage dim TotalPages dim j dim sql if Not isempty(request(page)) then currentPage=Cint(request(page)) else currentPage=1 end if set rs=() select top 100 pronum,discount,score,name,mark,vipprice,id,author,productdate,price2,price1,discount,pic from product order by solded desc,conn,1,1 if 0 then call MsgBox(數(shù)據(jù)庫(kù)中無(wú)數(shù)據(jù) ,Back,None) end if if And then call MsgBox(對(duì)不起，目前沒(méi)有更新商品！ ,Back,None) else totalPut= if currentpage1 then urrentpage=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 else if (currentPage1)*MaxPerPagetotalPut then (currentPage1)*MaxPerPage dim bookmark bookmark= else 畢業(yè)設(shè)計(jì) 網(wǎng)上購(gòu)物系統(tǒng) currentPage=1 end if end if end if dim i i=0 do while not % tr td width=17% height=130 align=center valign=middle bgcolor=E0EBFC 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 bgcolor=E0EBFC td colspan=2img src=images/ width=18 height=18span class=booktitle%=trim(rs(name))%/span/td /tr tr bgcolor=E0EBFC class=bookinfo td width=50% height=12 class=bookinfo 品 牌：%=trim(rs(author))%/td td width=50% class=bookinfo 出廠地址： %=trim(rs(mark))%/td /tr tr bgcolor=E0EBFC class=bookinfo td width=50%優(yōu)惠價(jià)： %=trim(rs(price2))%/td td width=50%出廠日期： %=trim(rs(productdate))%/td /tr tr bgcolor=E0EBFC class=bookinfo td定 價(jià)： %=trim(r
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1