qqcf_getcookie.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
'　　　　　　　 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'                       2006年9月14日									
'===================================
%>
<%
If Session("CfWztgUser")="" Then
 If Request.Cookies("CfWztgUserCookie")<>"" then
  CfWztgUserCooKie=Chkstr(Request.Cookies("CfWztgUserCookie"))
  CfWztgUserCheckCooKie=Chkstr(Request.Cookies("CfWztgUserCheckCooKie"))
  If Md5(CfWztgUserCooKie&SysCode,1)=CfWztgUserCheckCooKie Then
   Set Rs= Server.CreateObject("Adodb.RecordSet")
   Sql="Select User_Name From WWW_QQCF_COM_CfWztg_RegUser Where Cookies='"&CfWztgUserCookie&"'"
   Rs.Open Sql,Conn,1,1
   If Not Rs.Eof Then Session("CfWztgUser")=Rs("User_Name")
  End If
 End If
End If

If Session("CfWztgAdUser")="" Then
 If Request.Cookies("CfWztgAdUserCookie")<>"" then
  CfWztgAdUserCookie=Chkstr(Request.Cookies("CfWztgAdUserCookie"))
  CfWztgAdUserCheckCookie=Chkstr(Request.Cookies("CfWztgAdUserCheckCookie"))
  If Md5(CfWztgAdUserCookie&SysCode,1)=CfWztgAdUserCheckCookie Then
   Set Rs= Server.CreateObject("Adodb.RecordSet")
   Sql="Select AdUser_Name From WWW_QQCF_COM_CfWztg_AdUser Where Cookies='"&CfWztgAdUserCookie&"'"
   Rs.Open Sql,Conn,1,1
   If Not Rs.Eof Then Session("CfWztgAdUser")=Rs("AdUser_Name")
  End If
 End If
End If

If Session("CfWztgAdmin")="" Then
  If Request.Cookies("CfWztgAdminCookie")<>"" then
   CfWztgAdminCookie=Chkstr(Request.Cookies("CfWztgAdminCookie"))
   CfWztgAdminCheckCookie=Chkstr(Request.Cookies("CfWztgAdminCheckCookie"))
   If Md5(CfWztgAdminCookie&SysCode,1)=CfWztgAdminCheckCookie Then
    If RsSet("Cookies")=CfWztgAdminCookie Then Session("CfWztgAdmin")="ok"
   End If
  End If
End If
%>