<%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 p_kind_hotel where mem_auto="&Request("mem_auto")&"", connCon, 1, 3 set ars = nothing '調整排序 set rs = Server.CreateObject("ADODB.Recordset") rs.open "Select * FROM p_kind_hotel ORDER BY p_rank ASC",connCon,1,3 Call PageView(rs.RecordCount,100,rs) SS = 0 Do While Not rs.EOF AND SS < 100 SS = SS + 1 rs("p_rank") = SS rs.update rs.MoveNext Loop rs.close set rs=nothing Call Alert("刪除資料成功","hotel_kind",0) Response.end End IF %> <% IF Request("state") = "add_product" Then Set ars = connCon.Execute("SELECT * FROM p_kind_hotel Where p_kind = '"&Request("p_kind")&"'") IF Not ars.Eof And Not ars.Bof Then Call Alert("此選單已經存在",0,0) End IF Set brs = connCon.Execute("SELECT * FROM p_kind_hotel Order By p_rank DESC") IF brs.Eof and brs.BOF Then p_rank = 1 Else p_rank = brs("p_rank")+1 End IF Set rs = Server.CreateObject("ADODB.Recordset") SQL="SELECT * FROM p_kind_hotel" rs.Open SQL,connCon,1,3 rs.addnew rs("p_rank") = p_rank rs("company_num") = Session("mem_num") rs("p_kind") = Request("p_kind") rs("meta_img") = Request("rePic") rs.update rs.close Set rs = nothing Call Alert("新增資料成功","hotel_kind",0) Response.end End IF %> <% Set R1 = Server.CreateObject("ADODB.Recordset") R1.open "SELECT * FROM p_kind_hotel Where company_num = '"&Session("mem_num")&"' ORDER BY company_num ASC", connCon, 1, 1 %> <%Set R1a = connCon.Execute("SELECT * FROM member Where mem_num = '"&Session("mem_num")&"'")%> <%IF R1a.BOF AND R1a.EOF Then Call Alert("您沒有填寫公司單位名稱","/member_fix",0) End IF%>

訂房類別

訂房類別

新增訂房類別
<% Call PageView(R1.RecordCount,20,R1) SS = 0 Do While Not R1.EOF AND SS < 20 SS = SS + 1 %> <%Set Smem = connCon.Execute("SELECT * FROM member Where mem_num = '"&R1("company_num")&"'")%> <% R1.MoveNext Loop %>
圖片 公司 類別名稱 編輯
" target="_blank">"><%=Smem("company_name")%> <%=R1("p_kind")%> ">編輯 　';">刪除
<%Call PageCSS_WEB(1,9,"active")%>
<% R1.Close() Set R1 = Nothing %>