logout.asp

oracle9i程序事例集

<%
  dim conn
  dim connstr
  Set conn=Server.CreateObject("ADODB.Recordset")
  connstr="Driver={Microsoft ODBC for Oracle};server=mylink;uid=system;pwd=system;"
%>
<%
  if session("user_name")<>"" then
    uname=session("user_name")
  else if session("company_name")<>"" then
    uname=session("company_name")
  end if
  end if
  
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from GSCOTT.shopping_bag_table where sb_consumername='"&uname&"'"
  rs.open sql,connstr,3,3
  if not rs.eof then
  conn.Open connstr
  conn.execute("delete from GSCOTT.shopping_bag_table where sb_consumername='"&uname&"'")
  conn.close
  end if
  rs.close
  set rs=nothing
  
  session("user_name")=""
  session("company_name")=""
  
  response.redirect "index.asp"
%>