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%>