del_travelline.asp

来自「一个非常好的旅游网站程序.」· ASP 代码 · 共 43 行

ASP
43
字号
<%@ LANGUAGE="VBSCRIPT" %>
<%
'////////////////////////删除商品///////////////////////////////
if request.cookies("sp_name")="" then
  response.redirect "login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="pic_conn.asp"-->
<%
   dim SQL, Rs,contentID,shop_name1
   
   contentID=request("ID")
   shop_name1=request.cookies("sp_name")
   '=======================删除商品资料=============================
   set rs=server.createobject("adodb.recordset")
   sqltext="delete from travelline where P_shop='"&shop_name1&"' and Product_Id='"&contentID&"'"
   rs.open sqltext,conn,3,3
   
   set rs=nothing
   
   '=======================删除商品图片=============================
   set pic_rs=server.createobject("adodb.recordset")
   sqltext="delete from pic where pic_id="& contentID
   pic_rs.open sqltext,pic_conn,3,3
   
   set pic_rs=nothing
   pic_conn.close
    
%>
<html>
<head>
<title>OK</title>
<meta http-equiv=refresh content="1; url=travelline_check.asp">
<BODY bgcolor="#ffffff" >
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center"><strong><font color="#FF3300">已经成功删除</font></strong></p>
<p align="center"><font color="#FF3300"><strong>二秒钟后系统自动返回</strong></font></p>
</body></html>

⌨️ 快捷键说明

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