emptycartsure.asp

来自「能实现用户注册」· ASP 代码 · 共 17 行

<%@ LANGUAGE="VBSCRIPT" %>
<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
on error resume next
Set RS = Server.CreateObject("ADODB.Recordset")
sSQL = "DELETE * "
sSQL=sSQL & "FROM tbl_ShoppingCart "
sSQL=sSQL & "WHERE (intSessionID=" & Session.SessionID & ")"
RS.Open sSQL, conn , 3, 2 'write

if err.number<>0 then
	'response.write "error: " & err.description & "<BR>"
end if

response.redirect "inventory.asp"
%>