quit.asp

来自「1。超强文件读写锁定」· ASP 代码 · 共 23 行

<%'创建时间:2004/07/04
'创建人:

%>
<!--#include file="Include/conn.asp"-->

<!--#include file="Include/Islogin.asp"-->
  <% dim s
  s=session("A_name")

  set M_rs=server.createobject("adodb.recordset")

    M_sql="select * from Agent where Agent_name='"&s&"'"
 M_rs.open M_sql,conn,1,3
  M_rs("Agent_relogin")=0
  M_rs("Agent_page")=""
  M_rs.update

session("a_name")=""
session("a_password")=""

response.redirect "index.asp"
%>