電子商務(wù)課程設(shè)計—購物網(wǎng)站-文庫吧資料
2024-11-09 14:18本頁面
【正文】 d=POST action= target=main table width=200 border=0 % Do Until (trtd) (input type=checkbox ) (name=orderlist value=) (objRs(descript)) If objRs(checkStatus) = 1 Then ( checked) Else () End If (objRs(descript)) (/td/tr) Loop Set objRs = Nothing % trtd height=16/td/tr tr td align=center input type=submit name=submitbtn value= 整 理 訂 單 /td/tr tr td align=center input type=submit name=submitbtn value= 決 定 購 買 /td/tr /table /form /center /body /html 4．訂單查詢 ! include file=proc/ % Dim objRs1, objRs2, objRs3 Dim strRs1, strRs2, strRs3, strRsOpen Dim strListArray, strUserNo, strMsg Dim intI, lngTotal strListArray = Split(Request(orderlist), , ) strUserNo = CStr((user)(lngNo)) strRs1 = SELECT * amp。 _ AND status = 39。 _ WHERE shopNo = amp。 _ ON = amp。 _ ) amp。 _ FROM (orders LEFT JOIN orderDetail amp。 (user)(lngNo) Set objRs = () strRs, Application(strCn) blnHasEmail = (objRs() Empty) Set objRs = Nothing % html body center % If blnHasEmail Then % h2 style=color:darkorchid留言版 /h2 hr form method=POST action= target=main table border=0 tr td align=center colspan=2 font size=5 color=90a030 b請輸入您的意見 /b /font /td /tr tr td colspan=2textarea rows=8 cols=80 name=note/textarea/td /tr tr td align=center input type=submit value= 確定 /td td align=center input type=reset value=重新輸入 /td /tr /table /form % Else % h2 style=color:darkorchid請留 EMail/h2 hr font size=4 color=90a030 b很抱歉！由于您未留下 EMail 帳號， br 本功能無法提供服務(wù)。 _ FROM shopper amp。 strArgMsg amp。 _ Chr(34)) End If % /td/tr tr td align=right性別： /td td input type=radio name=sex value=女 % If blnOK Then If strSex = 女 Then (checked) End If End If % 女 input type=radio name=sex value=男 % If blnOK Then If strSex = 男 Then (checked) End If End If % 男 /td /tr tr valign=top td align=right年齡： /td td select name=age option % If blnOK Then If intAge = 19 Then (selected) End If End If % 20 以下 /option option % If blnOK Then If intAge = 20 Then (selected) End If End If % 20 ~ 29/option option % If blnOK Then If intAge = 30 Then (selected) End If End If % 30 ~ 39/option option % If blnOK Then If intAge = 40 Then (selected) End If End If % 40 ~ 49/option option % If blnOK Then If intAge = 50 Then (selected) End If End If % 50 ~ 59/option option % If blnOK Then If intAge = 60 Then (selected) End If End If % 60(含 )以上 /option /select /td /tr tr td align=center input type=subm
公司管理相關(guān)推薦
鄂ICP備17016276號-1