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

    <%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<%
CFWztgUserCookie=Chkstr(Request.Cookies("CFWztgUserCookie"),1)

If Session("CFWztgUser")="" Then
 If CFWztgUserCookie<>"" Then
  Set Rs= Server.CreateObject("Adodb.RecordSet")
  Sql="Select UserName From CFWztg_User Where UserCode='"&CFWztgUserCookie&"'"
  Rs.Open Sql,Conn,1,1  
  If Not Rs.Eof Then
   Session("CFWztgUser")=Rs("UserName")
  Else
   Response.Cookies("CFWztgUserCookie")=""
   Response.Cookies("CFWztgUserCookie").Expires=Dateadd("n",-60,Now())
  End If
  Rs.Close()
 End If
End If

If Session("CFWztgUser")<>"" And CFWztgUserCookie="" Then'Session存在但cookie不存在时，重新写Cookie
  Sql="Select UserCode From CFWztg_User Where UserName='"&Session("CFWztgUser")&"'"
  Set Rs=Conn.Execute(Sql)
  If Not Rs.Eof Then
   Response.Cookies("CFWztgUserCookie")=Rs("UserCode")
   Response.Cookies("CFWztgUserCookie").expires=Dateadd("n",60,Now())
  Else
   Session("CFWztgUser")=""
  End If
  Rs.Close()
End If


CFWztgAdUserCookie=Chkstr(Request.Cookies("CFWztgAdUserCookie"),1)
If Session("CFWztgAdUser")="" Then
 If CFWztgAdUserCookie<>"" Then  
  Set Rs= Server.CreateObject("Adodb.RecordSet")
  Sql="Select AdUserName From CFWztg_AdUser Where AdUserCode='"&CFWztgAdUserCookie&"'"
  Rs.Open Sql,Conn,1,1
  If Not Rs.Eof Then
   Session("CFWztgAdUser")=Rs("AdUserName")
  Else
   Response.Cookies("CFWztgAdUserCookie")=""
   Response.Cookies("CFWztgAdUserCookie").Expires=Dateadd("n",-60,Now())
  End If
 End If
End If

If Session("CFWztgAdUser")<>"" And CFWztgAdUserCookie="" Then'Session存在但cookie不存在时，重新写Cookie
  Sql="Select AdUserCode From CFWztg_AdUser Where AdUserName='"&Session("CFWztgAdUser")&"'"
  Set Rs=Conn.Execute(Sql)
  If Not Rs.Eof Then
   Response.Cookies("CFWztgAdUserCookie")=Rs("AdUserCode")
   Response.Cookies("CFWztgAdUserCookie").expires=Dateadd("n",60,Now())
  Else
   Session("CFWztgAdUser")=""
  End If
  Rs.Close()
End If


CFWztgAdminCookie=Chkstr(Request.Cookies("CFWztgAdminCookie"),1)

If Session("CFWztgAdmin")="" Then 
 If CFWztgAdminCookie<>"" then   
  If RsSet("AdminCode")=CFWztgAdminCookie Then Session("CFWztgAdmin")="ok"
 End If
End If

If Session("CFWztgAdmin")<>"" And CFWztgAdminCookie="" Then'Session存在但cookie不存在时，重新写Cookie
   Response.Cookies("CFWztgAdminCookie")=RsSet("AdminCode")
   Response.Cookies("CFWztgAdminCookie").expires=Dateadd("n",60,Now())
End If
%>