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

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

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