del.asp

来自「电子商务系统Easy_Buy是一个在线销售系统」· ASP 代码 · 共 23 行

<!--#include file="../0.asp"-->
<!--#include file="../../../conn/conn.asp"-->
<%
if request("id")="" then
response.write "<br>出错了，请确认您的链接来自本网站"
response.end
end if
Set s= Server.CreateObject("abodb.recordset")
set rs = conn.execute("select id from user_name where name='"&session("www.wygk.cn")&"'")
userid=rs("id")
rs.close
Set s= Server.CreateObject("abodb.recordset")
set rs = conn.execute("select userid from user_kefu where id="&clng(Request("id"))&"")
userid2=rs("userid")
rs.close
if userid=userid2 then
Set s= Server.CreateObject("abodb.recordset")
conn.execute("Delete user_kefu where id="&clng(request("id"))&"")
Response.Write("<script>alert(""删除成功"");location.href=""edit.asp?page="&request("page")&""";</script>")
else
Response.Write("对不起，您不能删除该条信息。如有疑问请与网站管理员联系。")
end if
%>