<%IF Session("mem_username") = "" Then Call Alert("您沒有登入系統，請登入會員","/login",0) End IF%> 個人訂房訂單管理 | <%=Session("SERVER_NAME")%> <% IF Request("state") = "del" Then Set ars = Server.CreateObject("ADODB.Recordset") ars.open "delete from product_hotel_order where mem_auto = "&Request("mem_auto")&"", connCon, 1, 3 set ars = nothing Call Alert("刪除資料成功","/member_order_hotel",0) Response.end End IF %> <% Set R1 = Server.CreateObject("ADODB.Recordset") R1.open "SELECT * FROM product_hotel_order Where mem_num = '"&Session("mem_num")&"' ORDER BY mem_auto DESC", connCon, 1, 1 %>

個人訂房訂單管理

個人訂房訂單管理

<% Call PageView(R1.RecordCount,20,R1) SS = 0 Do While Not R1.EOF AND SS < 20 SS = SS + 1 %> <% R1.MoveNext Loop %>
姓名 手機 入住日期 退房日期 客房數量 成人 孩童 備註 編號 標題 房價 狀態 編輯
<%=R1("mem_name")%> <%=R1("mem_mobile")%> <%=R1("order_date")%> <%=R1("order_date2")%> <%=R1("p_count")%> <%=R1("p_count2")%> <%=R1("p_count3")%> <%=R1("mem_note")%> <%=R1("p_num")%> <%=R1("p_title")%> <%=R1("p_money")%> <%=R1("order_check")%> ';">刪除
<%Call PageCSS_WEB(1,9,"active")%>
<% R1.Close() Set R1 = Nothing %>