F_Admin_Manage.asp 乘风网站推广系统 3.99 (acc)码程序 - ASP源码程序

www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_Admin_Manage.asp
    <%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">

<%
Response.Expires= -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="CF_MyFunCtion.asp"-->
<!--#Include File="CF_Md5.asp"-->
<!--#Include File="CF_GetCookie.asp"-->
<%
If Session("CFWztgAdmin")="" Then
  Response.Cookies("CFWztgAdminCookie")=""
  Response.Cookies("CFWztgAdminCookie").Expires=Dateadd("n",-60,Now())
  Call AlertUrl("会话已过期，请重新登陆!","Admin.asp")
End If
%>
<%
Tmp=HttpPath(2)
Action=ChkStr(Request("Action"),1)
If Action="" Then Action="userdatadaytj"
%>
<!--#Include File="CF_Admin_Manage_Do.asp"-->
<html>
<head>
<title><%=Rsset("SysTitle")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="CF_Style.asp"-->

<%If Action="usermodify" Then%>
<%
 show="bshow_2();"
%>
<%End If%>

<%If Action="sysrecset" Then%>
<%
If RsSet("RegType")=1 Then
 show="ashow();"
ElseIf RsSet("RegType")=2 Then
 show="bshow();"
ElseIf RsSet("RegType")=3 Then
 show="cshow();"
ElseIf RsSet("RegType")=4 Then
 show="dshow();"
End If
%>
<%End If%>

<%If Action="admodify" Then%>
<%
ID=ChkStr(Request("ID"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_AD where ID="&ID
Rs.open Sql,Conn,1,1


If Rs("PutSiteClassID")="" Then
 show=show&"bshow_1();"
Else
 show=show&"bshow_2();"
End If

If Rs("PutObj") =1 Then
 show=show&"cshow_1();"

 If Rs("PutRange") =1 Or Rs("PutRange") =2 Or Rs("PutRange") =4 Then
  show=show&"dshow_1();"
 ElseIf Rs("PutRange")=3 Then
  show=show&"dshow_2();"
 ElseIf Rs("PutRange")=5 Then
  show=show&"dshow_3();"
 End If
ElseIf Rs("PutObj") =2 Then
 show=show&"cshow_2();"

 If Rs("PutRange_2")=1 Or Rs("PutRange_2")=2 Then
  show=show&"gshow_1();"
 ElseIf Rs("PutRange_2")=3 Then
  show=show&"gshow_2();"
 ElseIf Rs("PutRange_2")=4 Then
  show=show&"gshow_3();"
 End If
End If


If Rs("AdPutArea")="" Then
 show=show&"fshow_1();"
Else
 show=show&"fshow_2();"
End If

%>
<%End If%>

<%If Action="qqmanage" Then%>
<%
If RsSet("QQShow")=-1 Then
 show="ashow_1();"
ElseIf RsSet("QQShow")=0 Then
 show="ashow_2();"
End If
%>
<%End If%>

<%If Action="emailserverset" Then%>
<%
If RsSet("emailsendtype")=1 Then
 show="ashow_1();"
ElseIf RsSet("emailsendtype")=2 Then
 show="ashow_2();"
End If
%>
<%End If%>

<%If Action="sysadcode" 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%>



</head>

<body>
<!--#Include File="Top.asp"-->


<div class="co_1">


 <div class="co_left">
  <!--#include file="CF_Admin_Manage_Menu.asp"-->
 </div>

 <div class="co_right">
  <!--#Include File="CF_Admin_Manage_Select.asp"-->
 </div>


</div>


<!--#Include File="Bottom.asp"-->
</body>
</html>