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

📄 qqcf_admin_manage_4.asp

📁 功　能： 1.系统分别为每个网站注册会员分配了一个推广链接
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<%
'==================================
' 乘风网站推广系统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日									
'===================================
%>
<LINK href="QQCF_Pic/ok3.css" type=text/css rel=stylesheet>

<%If Action="sysmodify" Then%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_Admin"
Rs.open Sql,Conn,1,1%>
<SCRIPT>
function ashow_1(){
a_1.style.display = "";
a_2.style.display = "none";
<%If Rs("PutRange")=3 Then%>
b_1.style.display = "";
<%End If%>
}
function ashow_2(){
a_1.style.display = "none";
a_2.style.display = "";
b_1.style.display = "none";
}
function bshow_1(){
b_1.style.display = "none";
}
function bshow_2(){
b_1.style.display = "";
}
</SCRIPT>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5" class="td_1">
  <form name="form2" method="post" action="?action=sysmodifyave">
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>系统</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="34%"><div align="right">系统名称：</div></td>
      <td width="66%"><input name="Title" type="text" id="Title" value="<%=Rs("Title")%>" size="25"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">多少小时内重复点击推广链接无效：</div></td>
      <td><input name="EffectTime" type="text" id="EffectTime" value="<%=Rs("EffectTime")%>" size="15">
        小时</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">系统最大保留来源数：</div></td>
      <td><input name="LyMaxTotal" type="text" id="LyMaxTotal" value="<%=Rs("LyMaxTotal")%>" size="15">
        条&nbsp;　(注：一般在1000-10000之间)</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">系统最大保留IP数：</div></td>
      <td><input name="IpMaxTotal" type="text" id="IpMaxTotal" value="<%=Rs("IpMaxTotal")%>" size="15">
        条&nbsp;　(注：一般在1000-50000之间,防止作弊用)&nbsp;</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">普通用户最低结算金额：</div></td>
      <td><input name="LowSpendCent" type="text" value="<%=Rs("LowSpendCent")%>" size="15">
        元</td>
    </tr>
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>广告发布范围</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">广告发布对象：</div></td>
      <td><input name="PutObj" type="radio" value="1"<%If Rs("PutObj")=1 Then Response.Write " Checked"%> onclick="ashow_1()">
        所有人都可以申请<br> <input type="radio" name="PutObj" value="2"<%If Rs("PutObj")=2 Then Response.Write " Checked"%> onclick="ashow_2()">
        只有有网站的站长才可以申请</td>
    </tr>
    <tr bgcolor="#FFFFFF" id="a_1"> 
      <td><div align="right">广告发布的范围(对象是所有人)：</div></td>
      <td><input type="radio" name="PutRange" value="1"<%If Rs("PutRange")=1 Then Response.Write " checked"%> onclick="bshow_1()">
        可以在任何地方，如网站，论坛，ＱＱ上<br> <input type="radio" name="PutRange" value="2"<%If Rs("PutRange")=2 Then Response.Write " checked"%> onclick="bshow_1()">
        只能发布在网页上，如网站，论坛，但不能发布在ＱＱ上<br> <input type="radio" name="PutRange" value="3"<%If Rs("PutRange")=3 Then Response.Write " checked"%> onclick="bshow_2()">
        只能发布在以下系统允许的站点上</td>
    </tr>
    <tr bgcolor="#FFFFFF" id="b_1"> 
      <td><div align="right">只允许发布在的站点：</div></td>
      <td><input name="PutSite" type="text" id="PutSite" value="<%=GetConVertStr(Rs("PutSite"))%>" size="35">
        多个站点请用英文&quot;,&quot;分隔</td>
    </tr>
    <tr bgcolor="#FFFFFF" id="a_2"> 
      <td><div align="right">广告发布的范围(对象是站长)：</div></td>
      <td> <input type="radio" name="PutRange_2" value="1"<%If Rs("PutRange_2")=1 Then Response.Write " Checked"%>>
        可以发布在任何网页上<br> <input type="radio" name="PutRange_2" value="2"<%If Rs("PutRange_2")=2 Then Response.Write " Checked"%>>
        只能发布在自己申请后通过管理理审核的网站的网页上</td>
    </tr>
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>用户对推荐注册用户提成率</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">用户对推荐的注册用户结算时提成：</div></td>
      <td><input name="UserTcRate" type="text" value="<%=Rs("UserTcRate")%>" size="5">
        %<br>(设置为0则表示提成功能无效;大于0,比如设置10%，下线用户结算100元时，管理员审核后会同时给他的上线用户结算10元)<br>(注：必须设置能进入推广系统用户注册页面的广告支持下线提成功能;请设置能进入推广系统用户注册页面的广告的扣点率大于提成率，否则管理员的收入将可能为负数<br>管理员收入可以从广告扣点率，用户扣点率，手工扣款，降低广告原始发布价格多种方式获取)</td>
    </tr>
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>广告点击率</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">广告点击率<strong>:</strong></div></td>
      <td><input name="AdClickRate" type="text" id="AdClickRate" size="5" value="<%=Rs("AdClickRate")%>">
        %(一般在1-3%左右,设置为0则表示不限制)</td>
    </tr>
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>中转页</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">非正常点击广告后显示中转页：</div></td>
      <td><input name="ShowClickInfo" type="radio" value="-1"<%If Rs("ShowClickInfo")=-1 Then Response.Write " Checked"%>>
        是 
        <input name="ShowClickInfo" type="radio" value="0"<%If Rs("ShowClickInfo")=0 Then Response.Write " Checked"%>>
        否</td>
    </tr>
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>用户扣点</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">单个用户扣点开关：</div></td>
      <td><input type="radio" name="UserDeDuctState" value="-1"<%If Rs("UserDeDuctState")=-1 Then Response.Write " checked"%>>
        开启扣点 
        <input type="radio" name="UserDeDuctState" value="0"<%If Rs("UserDeDuctState")=0 Then Response.Write " checked"%>>
        关闭扣点</td>
    </tr>
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>用户审核</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">普通用户申请后是否需要审核：</div></td>
      <td><input name="UserValid" type="radio" value="-1"<%If Rs("UserValid")=-1 Then Response.Write " checked"%>>
        是 
        <input name="UserValid" type="radio" value="0"<%If Rs("UserValid")=0 Then Response.Write " checked"%>>
        否</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">广告商注册后是否需要审核：</div></td>
      <td><input name="AdUserValid" type="radio" value="-1"<%If Rs("AdUserValid")=-1 Then Response.Write " checked"%>>
        是 
        <input name="AdUserValid" type="radio" value="0"<%If Rs("AdUserValid")=0 Then Response.Write " checked"%>>
        否</td>
    </tr>
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>其它设置</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">首页显示用户总收入排行：</div></td>
      <td><input name="IncomeTop" type="radio" value="-1"<%If Rs("IncomeTop")=-1 Then Response.Write " checked"%>>
        是 
        <input name="IncomeTop" type="radio" value="0"<%If Rs("IncomeTop")=0 Then Response.Write " checked"%>>
        否</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">首页显示用户最新结算：</div></td>
      <td><input name="SpendTop" type="radio" value="-1"<%If Rs("SpendTop")=-1 Then Response.Write " checked"%>>
        是 
        <input name="SpendTop" type="radio" value="0"<%If Rs("SpendTop")=0 Then Response.Write " checked"%>>
        否</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit32" value="修改">
          　　 
          <input type="reset" name="Submit523" value="取消">
        </div></td>
    </tr>
  </form>
</table>
<%End If%>

<%If Action="sysrecset" Then%>
<SCRIPT>
function ashow(){
b_1.style.display = "none";
b_2.style.display = "none";
b_3.style.display = "none";
b_4.style.display = "none";
b_5.style.display = "none";
b_6.style.display = "none";
b_7.style.display = "none";
c_1.style.display = "none";
c_2.style.display = "none";
c_3.style.display = "none";
c_4.style.display = "none";
}
function bshow(){
b_1.style.display = "";
b_2.style.display = "";
b_3.style.display = "";
b_4.style.display = "";
b_5.style.display = "";
b_6.style.display = "";
b_7.style.display = "";
c_1.style.display = "none";
c_2.style.display = "none";
c_3.style.display = "none";
c_4.style.display = "none";
}
function cshow(){
b_1.style.display = "none";
b_2.style.display = "";
b_3.style.display = "";
b_4.style.display = "";
b_5.style.display = "";
b_6.style.display = "";
b_7.style.display = "";
c_1.style.display = "";
c_2.style.display = "";
c_3.style.display = "";
c_4.style.display = "";

t1.innerHTML="SqlServer数据库IP：";
t2.innerHTML="SqlServer数据库名称：";
t3.innerHTML="SqlServer数据库连接用户名：";
t4.innerHTML="SqlServer数据库连接密码：";
  
}
function dshow(){
b_1.style.display = "none";
b_2.style.display = "";
b_3.style.display = "";
b_4.style.display = "";
b_5.style.display = "";
b_6.style.display = "";
b_7.style.display = "";
c_1.style.display = "";
c_2.style.display = "";
c_3.style.display = "";
c_4.style.display = "";

t1.innerHTML="Mysql数据库IP：";
t2.innerHTML="Mysql数据库名称：";
t3.innerHTML="Mysql数据库连接用户名：";
t4.innerHTML="Mysql数据库连接密码：";
}
</SCRIPT>


<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_Admin"
Rs.open Sql,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <form name="form2" method="post" action="?action=sysrecsetsave">
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2">如果你使用推广系统自带的会员注册功能请选择接口类型-系统自带,否则根据你网站的数据库类型选择相应的接口类型 </td>
    </tr>
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>网站接口设置</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="30%"><div align="right">接口类型：</div></td>
      <td> <div align="left"> 
          <input type="radio" name="RegType" value="1"<%If Rs("RegType")=1 Then Response.Write " checked"%> onclick="ashow()">
          本系统自带 
          <input type="radio" name="RegType" value="2"<%If Rs("RegType")=2 Then Response.Write " checked"%> onclick="bshow()">
          Access数据库 
          <input type="radio" name="RegType" value="3"<%If Rs("RegType")=3 Then Response.Write " checked"%> onclick="cshow()">
          SQLSERVER数据库
          <input type="radio" name="RegType" value="4"<%If Rs("RegType")=4 Then Response.Write " checked"%> onclick="dshow()">
          MySql数据库</div></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="b_1"> 
      <td><div align="right">ACCESS数据库文件路径：</div></td>
      <td><input name="AccessPath" type="text" id="AccessPath" value="<%=GetConVertStr(Rs("AccessPath"))%>" size="30">
        如数据库文件夹data.mdb放在网站根目录aa里的bb目录里,路径应该设置为/aa/bb/data.mdb</td>
    </tr>
    <tr bgcolor="#FFFFFF" id="c_1"> 
      <td><div align="right"><span id="t1">SqlServer数据库IP： </span></div></td>
      <td><input name="SqlServerIP" type="text" id="SqlServerIP" value="<%=GetConVertStr(rs("SqlServerIP"))%>" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="c_2"> 
      <td><div align="right"><span id="t2">SqlServer数据库名称：</span></div></td>
      <td><input name="SqlServerDbName" type="text" id="SqlServerDbName" value="<%=GetConVertStr(rs("SqlServerDbName"))%>" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="c_3"> 
      <td><div align="right"><span id="t3">SqlServer数据库连接用户名：</span></div></td>
      <td><input name="SqlServerLinkName" type="text" id="SqlServerLinkName" value="<%=GetConVertStr(rs("SqlServerLinkName"))%>" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="c_4"> 
      <td><div align="right"><span id="t4">SqlServer数据库连接密码：</span></div></td>
      <td><input name="SqlServerLinkPassword" type="text" id="SqlServerLinkPassword" value="<%=GetConVertStr(rs("SqlServerLinkPassword"))%>" size="15"> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF" id="b_2"> 
      <td><div align="right">存放注册用户的表名：</div></td>
      <td><input name="SaveRegTable" type="text" id="SaveRegTable" value="<%=GetConVertStr(Rs("SaveRegTable"))%>" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="b_3"> 
      <td><div align="right">存放注册用户名称的字段名：</div></td>
      <td><input name="SaveRegUserName" type="text" id="SaveRegUserName" value="<%=GetConVertStr(Rs("SaveRegUserName"))%>" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="b_4"> 
      <td><div align="right">存放注册用户密码的字段名：</div></td>
      <td><input name="SaveRegPassword" type="text" id="SaveRegPassword" value="<%=GetConVertStr(Rs("SaveRegPassword"))%>" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="b_5"> 
      <td><div align="right">存放注册用户密码加密方式:</div></td>
      <td><input name="PassWordType" type="radio" value="1"<%If Rs("PassWordType")=1 Then Response.Write " checked"%>>
        没有加密 
        <input type="radio" name="PassWordType" value="2"<%If Rs("PassWordType")=2 Then Response.Write " checked"%>>
        经过了16位Md5加密 
        <input type="radio" name="PassWordType" value="3"<%If Rs("PassWordType")=3 Then Response.Write " checked"%>>
        经过了32位Md5加密</td>
    </tr>
1234

⌨️ 快捷键说明

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