<!--#include file="top.asp"-->
<%if userflag1=0 then
response.redirect"ok.asp?action=flag"
end if

page=request("page")
if page="" then page=1

if request("action")="del" then
id=request("id")

conn.execute("delete From dlxf_cp Where dlxf_ID="&ID&" and dlxf_yp_id="&session("id"))
conn.execute("delete from dlxf_leaveword where dlxf_book_sort=4 and dlxf_book_table="&id&" and dlxf_book_ypid="&session("id")&"")

Response.Redirect "cp.asp?page="&page

elseif request("action")="key" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from dlxf_cp where dlxf_id="&request("id")&" and dlxf_yp_id="&session("id")
rs.open sql,conn,1,3
rs("dlxf_key")=request("zt")
rs.update
rs.close
set rs=nothing
response.redirect"cp.asp?page="&page
end if%>