<%'IF Session("mem_username") = "" Then Call Alert("您沒有登入會員，請登入會員","/login",0) End IF%> <% IF Request("state") = "add54" Then ChkNum = Request.Form("ChkNum") IF ChkNum="" Or Cstr(ChkNum) <> Cstr(Session("ChkNum")) Then Call Alert("驗證碼輸入錯誤",0,0) End IF Set rs = Server.CreateObject("ADODB.Recordset") SQL="SELECT * FROM product_res_order" rs.Open SQL,connCon,1,3 rs.addnew rs("p_num") = Request("p_num") rs("p_title") = Request("p_title") rs("p_money") = Request("p_money") rs("company_num") = Request("company_num") rs("mem_num") = Session("mem_num") rs("mem_code") = Session("mem_code") rs("mem_name") = Request("mem_name") rs("mem_mobile") = Request("mem_mobile") rs("order_date") = Request("order_date") rs("p_count") = Request("p_count") rs("mem_note") = Request("mem_note") rs("p_size") = Request("p_size") rs("order_check") = "未審核" rs.update rs.close Set rs = nothing Call Alert("訂餐成功","/member",0) Response.end End IF %> <% Set R1 = Server.CreateObject("ADODB.Recordset") R1.open "SELECT * FROM product_res Where mem_auto = "&Request("mem_auto")&"", connCon, 1, 1 %> <%IF R1.BOF AND R1.EOF Then Call Alert("這個已經下架","/index",0) End IF%> <%=R1("p_title")%>

訂餐明細

" title="skybni" data-open-effect="bounceInDown" data-close-effect="bounceOutDown" data-open-speed="1000" data-close-speed="1000" data-blur-bg="true"> " alt="">

<%=R1("p_title")%>

<%=R1("p_num")%>

<%=R1("p_explan")%>
<%=R1("p_money")%> 元
<%Set S2 = connCon.Execute("SELECT * FROM product_size_res where p_count > 0 and pic_num = '"&R1("pic_num")&"' ORDER BY p_count DESC")%> <%IF not S2.EOF Then%>
<%End IF%>
內容說明

<%=R1("p_content")%>

<% R1.Close() Set R1 = Nothing %>