⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 manage.asp

📁 功　能： 1.系统分别为每个网站注册会员分配了一个推广链接
💻 ASP
字号:
🔍 
<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
'　　　　　　　 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'                       2006年9月14日									
'===================================
%>
<%
Response.Expires= -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#Include File="QQCF_Conn.asp"-->
<!--#Include File="QQCF_ChkStr.asp"-->
<!--#Include File="QQCF_MyFunCtion.asp"-->
<!--#Include File="QQCF_Md5.asp"-->
<!--#Include File="QQCF_GetCookie.asp"-->
<%
If Session("CfWztgUser")="" Then
 Response.Cookies("CfWztgUserCooKie")=""
 Call AlertUrl("请重新登陆!","Index.asp")
Else
 User_Name=Session("CfWztgUser")
End If
%>
<%
Tmp=HttpPath(2)
Action=Request("Action")
If Action="" Then Action="lylist"
%>
<!--#Include File="QQCF_Manage_Do.asp"-->



<HTML><HEAD><TITLE><%=RsSet("Title")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="QQCF_Pic/ok3.css" type=text/css rel=stylesheet>
<%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="usermodifypay" Then%>
<script>
function ashow_1(){
 t_1.style.display = "none";
 t_2.style.display = "none";
 t_3.style.display = "none";
 t_4.style.display = "none";
 t_5.style.display = "none";
}
function ashow_2(){
 t_1.style.display = "";
 t_2.style.display = "";
 t_3.style.display = "";
 t_4.style.display = "none";
 t_5.style.display = "none";
}
function ashow_3(){
 t_1.style.display = "none";
 t_2.style.display = "none";
 t_3.style.display = "none";
 t_4.style.display = "";
 t_5.style.display = "none";
}
function ashow_4(){
 t_1.style.display = "none";
 t_2.style.display = "none";
 t_3.style.display = "none";
 t_4.style.display = "none";
 t_5.style.display = "";
}
</SCRIPT>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser where User_Name='"&User_Name&"'"
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();"
End If
%>
<%End If%>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0"<%If Action="usermodifypay" Then Response.Write " onload="&show%>>




<TABLE cellSpacing=0 cellPadding=0 width=780 align=center border=0>
  <TBODY>
  <TR>
    <TD bgColor=#000000 colSpan=3><IMG height=1 
      src="QQCF_Pic/spacer.gif" width=1></TD></TR>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=10><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>

    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=40><IMG height=12 src="QQCF_Pic/ok3-3_r2_c15.gif" 
      width=40></TD>
    <TD width=200 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center bgColor=#ffffff 
border=0>
  <TBODY>
    <TR> 
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD width=14><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD><a href="http://www.qqcf.com" target="_blank"><IMG src="QQCF_Pic/logo.gif" width="480" height="60" border="0"></a></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE height=6 cellSpacing=0 cellPadding=0 width=780 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=780 align=center border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD background=QQCF_Pic/ok3-1_r7_c2.jpg><table width="758" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="758">&nbsp;</td>
          </tr>
        </table></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=12 cellSpacing=0 cellPadding=0 width=780 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 

      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1>


          <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td width="150" valign="top"><!--#include file="QQCF_Manage_Menu.asp"--></td>
              <td valign="top"> 
                <!--#Include File="QQCF_Manage_2.asp"-->
                <!--#Include File="QQCF_Manage_3.asp"-->
              </td>
            </tr>
          </table>
          
</TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=12 cellSpacing=0 cellPadding=0 width=780 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=200 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=41><IMG height=14 src="QQCF_Pic/ok3-3_r15_c12.gif" 
      width=41></TD>
    <TD vAlign=top width=373>
      <P align=center></P></TD>
    <TD vAlign=top width=133>
      <P align=center> </P></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 rowSpan=2><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=5><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000 rowSpan=2><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR>
  <TR>
      <TD bgColor=#ce3300 height=5> <P align=center> <A href="http://www.qqcf.com" target=_blank><FONT 
      color=#ffffff>乘风原创程序开发 [&nbsp;<%=RsSet("Title")%>&nbsp;]提供推广服务</FONT></A></P>
	  
	  </TD></TR>
    <TD bgColor=#000000 colSpan=3><IMG height=1 
      src="QQCF_Pic/spacer.gif" width=1></TD></TR></TBODY></TABLE>
</BODY></HTML>

<%If Action="lylist" Then%>
 <%If Rsset("QQ_State")=-1 Then%>
  <script src=QQCF_QQ.asp></script>
 <%End If%>
<%End If%>
<%Call ConnClose()%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -