www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_AdUser_Manage_Do.asp

    <%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<%
If Action="usergo" Then
 Sql="Select * From CFWztg_User where AdUserName='"&AdUserName&"'"
 Set Rs = Server.CreateObject("ADODB.Recordset")
 Rs.open Sql,Conn,1,1
 If Rs("AdUserName")<>"" Then
  UserName=Rs("UserName")
  Session("CFWztgUser")=UserName
  Response.Cookies("CFWztgUserCookie")=""
  Response.Cookies("CFWztgUserCookie").Expires=Dateadd("n",-60,Now())
  Response.Redirect("Manage.asp")
 End If
End If

If Action="aduserlogout" Then
 Session("CFWztgAdUser")=""
 Response.Cookies("CFWztgAdUserCooKie")=""
 Response.Cookies("CFWztgAdUserCooKie").Expires=Dateadd("n",-60,Now())
 Response.Redirect "Index.asp"
End If
%>