<%IF Session("mem_username") = "" Then Call Alert("您沒有登入系統，請登入會員","/login",0) End IF%>
<%
IF Request("state") = "add" Then
IF Request("p_kind") <> Request("p_kind_old") Then
Set ars = connCon.Execute("SELECT * FROM p_kind_res Where p_kind = '"&Request("p_kind")&"'")
IF Not ars.Eof And Not ars.Bof Then Call Alert("此選單已經存在",0,0) End IF
End IF
Set rs = Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM p_kind_res Where mem_auto = "&Request("mem_auto")&""
rs.Open SQL,connCon,1,3
rs("p_kind") = Request("p_kind")
rs("meta_img") = Request("rePic")
rs.update
rs.close
Set rs = nothing
connCon.execute("UPDATE p_kind_res SET p_kind = '"&Request("p_kind")&"' WHERE p_kind = '"&Request("p_kind_old")&"'")
Call Alert("修改資料成功","res_kind",0)
Response.end
End IF
%>
<%
Set R1 = Server.CreateObject("ADODB.Recordset")
R1.open "SELECT * FROM p_kind_res Where mem_auto = "&Request("mem_auto")&"", connCon, 1, 1
%>
修改類別 | <%=Session("SERVER_NAME")%>