qqcf_getcookie.asp

软件下载平台 软件下载平台

<%
' 乘风电影V3.5 Mssql版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 程序安装演示:http://www.qqcf.com/?Action=setup&Setup=cffilmforsql
' 使用帮助：http://www.qqcf.com/?Action=help&Help=cffilmforsql

' 功　能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，可完全整合Helix和Servu服务器，完善的防盗链机制
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<%
CFFilmUserCookie=Chkstr(Request.Cookies("CFFilmUserCookie"),1)

If Session("CFFilmUser")="" Then'Session不存在但cookie存在时，重新获得Session
 If CFFilmUserCookie<>"" Then
  Sql="Select UserName From CFFilm_User Where Cookies='"&CFFilmUserCookie&"'"
  Set Rs=Conn.Execute(Sql)
  If Not Rs.Eof Then
   Session("CFFilmUser")=Rs("UserName")
  Else
   Response.Cookies("CFFilmUserCookie")=""
   Response.Cookies("CFFilmUserCookie").Expires=Dateadd("n",-60,Now())
  End If
  Rs.Close()
 End If
End If

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


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

If Session("CFFilmAdmin")="" Then 
 If CFFilmAdminCookie<>"" then   
  If RsSet("Cookies")=CFFilmAdminCookie Then Session("CFFilmAdmin")="ok"
 End If
End If


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