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

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

Action=ChkStr(Request("Action"),1)
%>

<%If Action="" Then%>
<%
If RsSet("RegType")=2 Then
 Connstr_Rec="DBQ="+server.mappath(RsSet("AccessPath"))+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
 Set conn_Rec= Server.CreateObject ("ADODB.Connection")
 Conn_Rec.Open Connstr_Rec
 UserName=Chkstr(Request("UserName"),1)
 Pwd=Chkstr(Request("Pwd"),1)
 Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&UserName&"' And "&RsSet("SaveRegPassword")&"='"&Pwd&"'"
 Set Rs=Conn_Rec.ExeCute(Sql)
 If Rs(0)>0 Then Session("CFWztgUser")=UserName
ElseIf RsSet("RegType")=3 Then
 Connstr_rec="DRIVER={SQL Server};SERVER="&RsSet("SqlIP")&","&RsSet("SqlPort")&";UID="&RsSet("SqlLinkName")&";PWD="&RsSet("SqlLinkPassword")&";DATABASE="&RsSet("SqlDbName")&""
 Set Conn_Rec= Server.CreateObject ("ADODB.Connection")
 Conn_Rec.Open Connstr_rec
 UserName=Chkstr(Request("UserName"),1)
 Pwd=Chkstr(Request("Pwd"),1)
 Sql="Select Count(*) From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&UserName&"' And "&RsSet("SaveRegPassword")&"='"&Pwd&"'"
 Set Rs=Conn_Rec.ExeCute(Sql)
 If Rs(0)>0 Then Session("CFWztgUser")=UserName
ElseIf RsSet("RegType")=4 Then
 UserName=Chkstr(Request("UserName"),1)
 Session("CFWztgUser")=UserName
End if
%>
<html>
<head>
<title><%=RsSet("SysTitle")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="CF_Style.asp"-->
</head>
<body>

<table width="120" border="0" cellpadding="0" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr> 
    <td bgcolor="D6DFF5"><div align="center"><strong><font color="#FF0000">推广让你获利</font></strong></div></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" nowrap>

<%If Session("CFWztgUser")="" Then%>
<%
If RsSet("RegType")=1 Then
 Rurl="Reg.asp"
Else
  Rurl=RsSet("RegUrl")
End If
 %>
<br>&nbsp;<a href="<%=Rurl%>" target="_blank"><b>现在就开始注册吧!</b></a><br><br>
&nbsp;<a href="<%=Tmp&"Index.asp"%>" target="_blank"><b>已经注册我要登陆!</b><br><br></a>
<%
Else
%>
<%
 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="Select Count(ID) From CFWztg_User Where UserName='"&Session("CFWztgUser")&"'"
 Rs.Open Sql,Conn,3,2
 IF Rs(0)=0 Then
	 If RsSet("UserValid")=0 Then
      Sql="Insert Into CFWztg_User (UserName,State,UserCode) Values ('"&UserName&"',-1,'" & DateDiff("s","2000-1-1",Now()) &"')"
	 Else
      Sql="Insert Into CFWztg_User (UserName,State,UserCode) Values ('"&UserName&"',0,'" & DateDiff("s","2000-1-1",Now()) &"')"
	 End If
 End If
 Rs.Close
 Conn.Execute Sql
%>

<%
Set Rs= Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_User Where UserName='"&Session("CFWztgUser")&"'"
Rs.Open Sql,Conn,1,1

If RsSet("RegType")=4 Then'为mysql接口时都要到首页登陆
 Session("CFWztgUser")=""
 ManageUrl="Index.asp"
Else
 ManageUrl="Manage.asp"
End If
%>	
<br>&nbsp;你好:<b><%=Session("CFWztgUser")%></b><br>&nbsp;你的推广剩余金额:<br>&nbsp;<%=Rs("Spare_Cent")%>元<br>
 <br>
 &nbsp;<strong><a href="Manage.asp" target="_blank">点击获得推广代码</a></strong>
<%End If%></td>
  </tr>
</table>
</body>
</html>

<%End If%>
<%If Action="float" Then%>
<%
RecType=Int(ChkStr(Request("RecType"),2))
If RecType=0 Then
 iframecode="<iframe id='cfrec' src="&Tmp&"cf_rec.asp frameBorder=0 width=110 height=100 marginheight=0 marginwidth=0 scrolling=no></iframe>"
ElseIf RecType=1 Then
 iframecode="<iframe id='cfrec' src="&Tmp&"cf_rec.asp?UserName="&ChkStr(Request("UserName"),1)&"&pwd="&ChkStr(Request("Pwd"),1)&" frameBorder=0 width=120 height=100 marginheight=0 marginwidth=0 scrolling=no></iframe>"
End If
 %>
document.write("<div id='float' style='right:0px;POSITION:absolute;TOP:200px;;left: 0px'> ");

document.write("<TABLE cellSpacing=0 cellPadding=0 border=0>");
document.write("    <TR> ");
document.write("      <TD width=120><%=iframecode%></TD>");
document.write("    </TR>");
document.write("</TABLE>");

document.write("</div>");
var iframeids=["cfrec"]
 var iframehide="yes"
 function dyniframesize() 
 {
  var dyniframe=new Array()
  for (i=0; i<iframeids.length; i++)
  {
   if (document.getElementById)
   {
    dyniframe[dyniframe.length] = document.getElementById(iframeids[i]);
    if (dyniframe[i] && !window.opera)
    {
     dyniframe[i].style.display="block"
     if (dyniframe[i].contentDocument && dyniframe[i].contentDocument.body.offsetHeight)
      dyniframe[i].height = dyniframe[i].contentDocument.body.offsetHeight; 
     else if (dyniframe[i].Document && dyniframe[i].Document.body.scrollHeight)
      dyniframe[i].height = dyniframe[i].Document.body.scrollHeight;
    }
   }
   if ((document.all || document.getElementById) && iframehide=="no")
   {
    var tempobj=document.all? document.all[iframeids[i]] : document.getElementById(iframeids[i])
    tempobj.style.display="block"
   }
  }
 }

 if (window.addEventListener)
 window.addEventListener("load", dyniframesize, false)
 else if (window.attachEvent)
 window.attachEvent("onload", dyniframesize)
 else
 window.onload=dyniframesize
 

        var lastScrollY = 0;
        function floatRefresh() {
                diffY = document.body.scrollTop;
                percent =.1*(diffY-lastScrollY);
                if(percent>0){
                        percent = Math.ceil(percent);
                }else{
                        percent = Math.floor(percent);
                }
                document.all.float.style.pixelTop += percent;
                lastScrollY = lastScrollY + percent;
        }
        window.setInterval("floatRefresh()",1);
<%End If%>