⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 del.asp

📁 是一套完整宽屏漂亮的茶叶网站
💻 ASP
字号:
<%if session("shopxpadmin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆!');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限!</font></p>"
response.End
end if
end if%>
<!--#include file="conn.asp"-->
<%Select case Request("x")
   case "a"
         set rs = conn.execute("select user_name from telorder where t_id in (select t_id from telorder_goods where t_t_id="&Request("id")&")")
		user_name=rs("user_name")
	    rs.close
    if user_name=request.cookies("shopxp")("shjianame") then
        conn.execute("Delete telorder_goods where t_t_id="&Request("id")&"")
        Response.redirect "add2.asp?id="&session("id")&""
    else
		Response.Write("对不起,您不能修改该条信息。如有疑问请与网站管理员联系。")
	 end if
 case "b"
         set rs = conn.execute("select user_name from telorder where t_id="&Request("id")&"")
		user_name=rs("user_name")
	    rs.close
    if user_name=request.cookies("shopxp")("shjianame") then
        conn.execute("Delete from telorder where t_id="&Request("id")&" ")
        Response.redirect "index.asp?page="&Request("page")&""
    else
		Response.Write("对不起,您不能修改该条信息。如有疑问请与网站管理员联系。")
	 end if
End Select
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -