⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 cf.asp

📁 功　能： 1.系统分别为每个网站注册会员分配了一个推广链接
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%
'==================================
' 乘风网站推广系统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日									
'===================================
%>
<!--#Include File="QQCF_MyFunCtion.asp"-->
<%Action=Request("Action")
If Action="" Then Action="geturl"
Tmp=HttpPath(2)
If Application("AdWidth_"&Ad_ID)="" Or IsEmpty(Application("AdWidth_"&Ad_ID)) Or Application("AdHeight_"&Ad_ID)="" Or IsEmpty(Application("AdHeight_"&Ad_ID)) Or Application("Ad_Class_"&Ad_ID)="" Or IsEmpty(Application("Ad_Class_"&Ad_ID)) Or Action="getad_2" Or Action="getcyclead" Or Action="getcyclead_2" Or Action="gotoad" Then%>
 <!--#Include File="QQCF_Conn.asp"-->
<%End If
If Action="geturl" Or Action="geturl_2" Or Action="gotoad" Then%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script>
if (top.location != location) top.location.href = location.href;
self.moveTo(-2,-4);
self.resizeTo(screen.availWidth+6,screen.availHeight+6);
</script>
<%End If
If Action="geturl" Then
Cookies_Time=DateAdd("s",30,Now())
Response.Cookies("CfWztgCheckCookie")="yes"
Response.Cookies("CfWztgCheckCookie").Expires=Cookies_Time
%>
<script>
var url=document.URL;
var firstsplit=url.split("?");
var secstr=firstsplit[1];
var num_1=secstr.indexOf(".");
if(num_1>0){
var secsplit=secstr.split(".");
var user_name=secsplit[1]
var ad_id=secsplit[0]
}
var num_2=secstr.indexOf("&");
if(num_2>0){
var secsplit=secstr.split("&");
var user_name=secsplit[1]
var ad_id=secsplit[0]
}
if(num_1==-1&&num_2==-1){
var user_name=secstr
var ad_id=1
}
var ly=escape(document.referrer);
ly=ly.replace(/\&/g,"|");
ly=ly.replace(/\%26/g,"|");
location.href='cf.asp?Action=geturl_2&User_Name='+user_name+'&Ad_ID='+ad_id+'&Ly='+ly
</script>
<%End If
If Action="geturl_2" Then
User_Name=Request("User_Name")
Ad_ID=Int(Request("Ad_ID"))
If Ad_ID=0 Then Ad_ID=1
CheckCode="QQCF_"&Gen_Key(20)
If Request.Cookies("CfWztgCheckCookie")="yes" Then  
Application("AllCheckCode_"&Ad_ID)=Application("AllCheckCode_"&Ad_ID)&CheckCode&"|"
End If
Myarray=Split(Application("AllCheckCode_"&Ad_ID),"|")
If Ubound(Myarray)>100 Then
For I=UBound(MyArray)-50 To UBound(MyArray)
AllCheckCode = AllCheckCode&Myarray(I)&"|"
Next
Application("AllCheckCode_"&Ad_ID)=AllCheckCode
End If
CheckIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If CheckIp = "" Then CheckIp=Request.ServerVariables("REMOTE_ADDR") 
CheckTime=DateDiff("s","2000-1-1 0:0:10",Now())
Ly=Request("Ly")
Response.Redirect "Cf.asp?Action=gotoad&User_Name="&User_Name&"&Ad_ID="&Ad_ID&"&AdType=1&CheckCode="&CheckCode&"&CheckIp="&CheckIp&"&CheckTime="&CheckTime&"&Ly_"&CheckCode&"="&Ly
End if
If Action="getcyclead" Then
User_Name=Request("User_Name") 
CycleAdID=Int(Request("CycleAdID"))
If CycleAdID=1 Then
AdWidth=CycleAd_1_Width
AdHeight=CycleAd_1_Height
ElseIf CycleAdID=2 Then
AdWidth=CycleAd_2_Width
AdHeight=CycleAd_2_Height
ElseIf CycleAdID=3 Then
AdWidth=CycleAd_3_Width
AdHeight=CycleAd_3_Height
ElseIf CycleAdID=4 Then
AdWidth=CycleAd_4_Width
AdHeight=CycleAd_4_Height
ElseIf CycleAdID=5 Then
AdWidth=CycleAd_5_Width
AdHeight=CycleAd_5_Height
ElseIf CycleAdID=6 Then
AdWidth=CycleAd_6_Width
AdHeight=CycleAd_6_Height
End If
%>
var ly=location.href;
ly=ly.replace(/\&/g, "|");
ly=ly.replace(/\%26/g,"|"); 
document.write('<iframe src=<%=Tmp%>cf.asp?action=getcyclead_2&CycleAdID=<%=CycleAdID%>&User_Name=<%=User_Name%>&Ly=' + ly + ' frameBorder=0 width=<%=AdWidth%> height=<%=AdHeight%> marginheight=0 marginwidth=0 scrolling=no></iframe>');
<%End if
If Action="getcyclead_2" Then
CycleAdID=Int(Request("CycleAdID"))
User_Name=Request("User_Name")
Ly=Request("Ly")
If CycleAdID=1 Then
MyArray=Split(Cyclead_1_SonAd,",")
AdTotal=Ubound(MyArray)+1
ElseIf CycleAdID=2 Then
MyArray=Split(Cyclead_2_SonAd,",")
AdTotal=Ubound(MyArray)+1
ElseIf CycleAdID=3 Then
MyArray=Split(Cyclead_3_SonAd,",")
AdTotal=Ubound(MyArray)+1
ElseIf CycleAdID=4 Then
MyArray=Split(Cyclead_4_SonAd,",")
AdTotal=Ubound(MyArray)+1
ElseIf CycleAdID=5 Then
MyArray=Split(Cyclead_5_SonAd,",")
AdTotal=Ubound(MyArray)+1
ElseIf CycleAdID=6 Then
MyArray=Split(Cyclead_6_SonAd,",")
AdTotal=Ubound(MyArray)+1
End If
If AdTotal>=1 Then%>
<span id="t1" style="display:none"><script src="<%=Tmp%>Cf.asp?Action=getad&Ad_ID=<%=MyArray(0)%>&User_Name=<%=User_Name%>&CycleAd=-1&Ly_CycleAd=<%=ly%>"></script></span>
<%End If%>
<%If AdTotal>=2 Then%>
<span id="t2" style="display:none"><script src="<%=Tmp%>Cf.asp?Action=getad&Ad_ID=<%=MyArray(1)%>&User_Name=<%=User_Name%>&CycleAd=-1&Ly_CycleAd=<%=ly%>"></script></span>
<%End If%>
<%If AdTotal>=3 Then%>
<span id="t3" style="display:none"><script src="<%=Tmp%>Cf.asp?Action=getad&Ad_ID=<%=MyArray(2)%>&User_Name=<%=User_Name%>&CycleAd=-1&Ly_CycleAd=<%=ly%>"></script></span>
<%End If%>
<%If AdTotal>=4 Then%>
<span id="t4" style="display:none"><script src="<%=Tmp%>Cf.asp?Action=getad&Ad_ID=<%=MyArray(3)%>&User_Name=<%=User_Name%>&CycleAd=-1&Ly_CycleAd=<%=ly%>"></script></span>
<%End If%>
<%If AdTotal>=5 Then%>
<span id="t5" style="display:none"><script src="<%=Tmp%>Cf.asp?Action=getad&Ad_ID=<%=MyArray(4)%>&User_Name=<%=User_Name%>&CycleAd=-1&Ly_CycleAd=<%=ly%>"></script></span>
<%End If%>
<%If AdTotal>=6 Then%>
<span id="t6" style="display:none"><script src="<%=Tmp%>Cf.asp?Action=getad&Ad_ID=<%=MyArray(5)%>&User_Name=<%=User_Name%>&CycleAd=-1&Ly_CycleAd=<%=ly%>"></script></span>
<%End If%>
<script>
<%If AdTotal=1 Then%>
var a=1;
function abc(){
 if(a==1){
  t1.style.display="";
  a=1;
  setTimeout("abc()",4000);
 }
}
abc();
<%ElseIf AdTotal=2 Then%>
var a=1;
function abc(){
 if(a==1){
  t1.style.display="";
  t2.style.display="none";
  a=2;
  setTimeout("abc()",4000);
 }
 else if(a==2){
  t1.style.display="none"
  t2.style.display="";
  a=1;
  setTimeout("abc()",4000);
 }
}
abc();
<%ElseIf AdTotal=3 Then%>
var a=1;
function abc(){
 if(a==1){
  t1.style.display="";
  t2.style.display="none";
  t3.style.display="none";
  a=2;
  setTimeout("abc()",4000);
 }
 else if(a==2){
  t1.style.display="none"
  t2.style.display="";
  t3.style.display="none";
  a=3;
  setTimeout("abc()",4000);
 }
 else if(a==3){
  t1.style.display="none"
  t2.style.display="none";
  t3.style.display="";
  a=1;
  setTimeout("abc()",4000);
 }
}
abc();
<%ElseIf AdTotal=4 Then%>
var a=1;
function abc(){
 if(a==1){
  t1.style.display="";
  t2.style.display="none";
  t3.style.display="none";
  t4.style.display="none";
  a=2;
  setTimeout("abc()",4000);
 }
 else if(a==2){
  t1.style.display="none"
  t2.style.display="";
  t3.style.display="none";
  t4.style.display="none";
  a=3;
  setTimeout("abc()",4000);
 }
 else if(a==3){
  t1.style.display="none"
  t2.style.display="none";
  t3.style.display="";
  t4.style.display="none";
  a=4;
  setTimeout("abc()",4000);
 }
 else if(a==4){
  t1.style.display="none"
  t2.style.display="none";
  t3.style.display="none";
  t4.style.display="";
  a=1;
  setTimeout("abc()",4000);
 }
}
abc();
<%ElseIf AdTotal=5 Then%>
var a=1;
function abc(){
 if(a==1){
  t1.style.display="";
  t2.style.display="none";
  t3.style.display="none";
  t4.style.display="none";
  t5.style.display="none";
  a=2;
  setTimeout("abc()",4000);
 }
 else if(a==2){
  t1.style.display="none"
  t2.style.display="";
  t3.style.display="none";
  t4.style.display="none";
  t5.style.display="none";
  a=3;
  setTimeout("abc()",4000);
 }
 else if(a==3){
  t1.style.display="none"
  t2.style.display="none";
  t3.style.display="";
  t4.style.display="none";
  t5.style.display="none";
  a=4;
  setTimeout("abc()",4000);
 }
 else if(a==4){
  t1.style.display="none"
  t2.style.display="none";
  t3.style.display="none";
  t4.style.display="";
  t5.style.display="none";
  a=5;
  setTimeout("abc()",4000);
 }
 else if(a==5){
  t1.style.display="none"
  t2.style.display="none";
  t3.style.display="none";
  t4.style.display="none";
  t5.style.display="";
  a=1;
  setTimeout("abc()",4000);
 }
}
abc();
<%ElseIf AdTotal=6 Then%>
var a=1;
function abc(){
 if(a==1){
  t1.style.display="";
  t2.style.display="none";
  t3.style.display="none";
  t4.style.display="none";
  t5.style.display="none";
  t6.style.display="none";
  a=2;
  setTimeout("abc()",4000);
 }
 else if(a==2){
  t1.style.display="none"
  t2.style.display="";
  t3.style.display="none";
  t4.style.display="none";
  t5.style.display="none";
  t6.style.display="none";
  a=3;
  setTimeout("abc()",4000);
 }
 else if(a==3){
  t1.style.display="none"
  t2.style.display="none";
  t3.style.display="";
  t4.style.display="none";
  t5.style.display="none";
  t6.style.display="none";
  a=4;
  setTimeout("abc()",4000);
 }
 else if(a==4){
  t1.style.display="none"
  t2.style.display="none";
  t3.style.display="none";
  t4.style.display="";
  t5.style.display="none";
  t6.style.display="none";
  a=5;
  setTimeout("abc()",4000);
 }
 else if(a==5){
  t1.style.display="none"
  t2.style.display="none";
  t3.style.display="none";
  t4.style.display="none";
  t5.style.display="";
  t6.style.display="none";
  a=6;
  setTimeout("abc()",4000);
 }
 else if(a==6){
  t1.style.display="none"
  t2.style.display="none";
  t3.style.display="none";
  t4.style.display="none";
  t5.style.display="none";
  t6.style.display="";
  a=1;
  setTimeout("abc()",4000);
 }
}
abc();
<%End If%>
</script>
<%End If
If Action="getad" Then
User_Name=ChkStr(Request("User_Name"))
Ad_ID=ChkStr(Request("Ad_ID"))
CycleAd=Int(Request("CycleAd"))
If Ad_ID="" Or User_Name="" Then
ErrorMessage="<A href="&Tmp&"Index.asp Target=_blank>广告代码设置有误,请到后台重新获取!</a>"
Response.Write("document.write("& chr(34) & ErrorMessage & chr(34) &");")
Response.End
End If
If CycleAd=0 Then%>
if (top.location != location) top.location.href = location.href;
self.moveTo(0,0);
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -