www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_Manage_Pre.asp
<% '乘风网站推广系统 Access版 '作者QQ:178575 '作者EMail:yliangcf@163.com '作者网站:http://www.qqcf.com '详细简介:http://www.qqcf.com/?action=list&list=cfwztg '上面有程序在线演示,安装演示,使用疑难解答,最新版本下载等内容 '因为这些内容可能时常更新,就没有放在程序里,请自己上网站查看 %> <% Response.Expires= -1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","no-store" %> <% If Session("CFWztgUser")="" Then Response.Cookies("CFWztgUserCooKie")="" Response.Cookies("CFWztgUserCooKie").Expires=Dateadd("n",-60,Now()) Call AlertUrl("会话已过期,请重新登陆!","Index.asp") Else UserName=Session("CFWztgUser") End If %> <% Tmp=HttpPath(2) Action=ChkStr(Request("Action"),1) If Action="" Then Action="spendlist" %> <%If Action="adcodeget" Then%> <script> function copy(ob){ var obj=findObj(ob); if (obj){ obj.select();js=obj.createTextRange();js.execCommand("Copy");} alert('成功将代码复制到剪贴板中!'); } function cut(ob){ var obj=findObj(ob); if (obj){ obj.select();js=obj.createTextRange();js.execCommand("Cut");} } function findObj(n, d){ var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length){ d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n]; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document); if(!x && document.getElementById) x=document.getElementById(n); return x; } </script> <%End If%> <%If Action="userpaymodify" Then%> <script> function ashow_1(){ document.getElementById('t_1').style.display = "none"; document.getElementById('t_2').style.display = "none"; document.getElementById('t_3').style.display = "none"; document.getElementById('t_4').style.display = "none"; document.getElementById('t_5').style.display = "none"; document.getElementById('t_6').style.display = "none"; } function ashow_2(){ document.getElementById('t_1').style.display = ""; document.getElementById('t_2').style.display = ""; document.getElementById('t_3').style.display = ""; document.getElementById('t_4').style.display = "none"; document.getElementById('t_5').style.display = "none"; document.getElementById('t_6').style.display = "none"; } function ashow_3(){ document.getElementById('t_1').style.display = "none"; document.getElementById('t_2').style.display = "none"; document.getElementById('t_3').style.display = "none"; document.getElementById('t_4').style.display = ""; document.getElementById('t_5').style.display = "none"; document.getElementById('t_6').style.display = "none"; } function ashow_4(){ document.getElementById('t_1').style.display = "none"; document.getElementById('t_2').style.display = "none"; document.getElementById('t_3').style.display = "none"; document.getElementById('t_4').style.display = "none"; document.getElementById('t_5').style.display = ""; document.getElementById('t_6').style.display = "none"; } function ashow_5(){ document.getElementById('t_1').style.display = "none"; document.getElementById('t_2').style.display = "none"; document.getElementById('t_3').style.display = "none"; document.getElementById('t_4').style.display = "none"; document.getElementById('t_5').style.display = "none"; document.getElementById('t_6').style.display = ""; } </SCRIPT> <% Set Rs = Server.CreateObject("ADODB.Recordset") Sql="Select * From CFWztg_User where UserName='"&UserName&"'" Rs.open Sql,Conn,1,1 If Rs("PayType")=0 Then show=show&"ashow_1();" ElseIf Rs("PayType")=1 Then show=show&"ashow_2();" ElseIf Rs("PayType")=2 Then show=show&"ashow_3();" ElseIf Rs("PayType")=3 Then show=show&"ashow_4();" ElseIf Rs("PayType")=4 Then show=show&"ashow_5();" End If %> <%End If%>