del.asp

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

<!--#include file="../0.asp"-->
<!--#include file="../../../onn/conn.asp"-->
<%if Request("id")="" then
response.write "系统拒绝了您的操作请求"
response.end
end if
Select case Request("x")
   case "a"
   Set s= Server.CreateObject("abodb.recordset")
         set rs = conn.execute("select user_name from telorder where t_id in (select t_id from telorder_goods where t_t_id="&clng(Request("id"))&")")
		user_name=rs("user_name")
	    rs.close
    if user_name=session("www.wygk.cn") then
	Set s= Server.CreateObject("abodb.recordset")
        conn.execute("Delete telorder_goods where t_t_id="&clng(Request("id"))&"")
        Response.redirect "add2.asp?id="&clng(session("id"))&""
    else
		Response.Write("对不起，您不能修改该条信息。如有疑问请与网站管理员联系。")
	 end if
 case "b"
 Set s= Server.CreateObject("abodb.recordset")
         set rs = conn.execute("select user_name from telorder where t_id="&clng(Request("id"))&"")
		user_name=rs("user_name")
	    rs.close
    if user_name=session("www.wygk.cn") then
	Set s= Server.CreateObject("abodb.recordset")
        conn.execute("Delete telorder where t_id="&clng(Request("id"))&"")
        Response.redirect "index.asp?page="&Request("page")&""
    else
		Response.Write("对不起，您不能修改该条信息。如有疑问请与网站管理员联系。")
	 end if
End Select
%>