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> <a href="<%=Rurl%>" target="_blank"><b>现在就开始注册吧!</b></a><br><br> <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> 你好:<b><%=Session("CFWztgUser")%></b><br> 你的推广剩余金额:<br> <%=Rs("Spare_Cent")%>元<br> <br> <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%>