?? del.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 + -