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

📄 qqcf_admin_manage_4.asp

📁 功　能： 1.系统分别为每个网站注册会员分配了一个推广链接
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
function ashow_2(){
a_1.style.display = "";
a_2.style.display = "";
a_3.style.display = "";
a_4.style.display = "";
}
</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=emailserversetsave">
    <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="eamilsendtype" value="1"<%if rs("eamilsendtype")=1 then%> checked<%end if%> onclick="ashow_1()">
        CDONTS组件<%
on error resume next
set TestObj=server.CreateObject ("CDONTS.NewMail")
If -2147221005 <> Err then
 Response.write "(支持)"
Else
  Response.write "(不支持)"
End If
%> 
        <input type="radio" name="eamilsendtype" value="2"<%if rs("eamilsendtype")=2 then%> checked<%end if%> onclick="ashow_2()">
        JMAIL组件<%
on error resume next
set TestObj=server.CreateObject ("JMail.SmtpMail")
If -2147221005 <> Err then
 Response.write "(支持)"
Else
  Response.write "(不支持)"
End If
%></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="a_1"> 
      <td><div align="right">发送邮件服务器地址：</div></td>
      <td><input name="JmailAddress" type="text" value="<%=GetConVertStr(rs("JmailAddress"))%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="a_2"> 
      <td><div align="right">发送邮件帐号名称：</div></td>
      <td><input name="JmailUser" type="text" value="<%=GetConVertStr(rs("JmailUser"))%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="a_3"> 
      <td><div align="right">发送邮件帐号的密码：</div></td>
      <td><input name="JmailPassword" type="password" value="<%=GetConVertStr(rs("JmailPassword"))%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF" id="a_4"> 
      <td><div align="right"></div></td>
      <td>如：你有一个邮件abc@163.com，密码为1234，发信服务器地址设置设置为：smtp.163.com<br>发送邮件帐号名称设置为abc@163.com，发送邮件帐号的密码设置为1234，其它邮件类似</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit32" value="修改">
          　　 
          <input type="reset" name="Submit5232" value="取消">
        </div></td>
    </tr>
  </form>
</table>
<%End If%>


 
<%If Action="testset" Then%> 
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
    <tr>
      <td bgcolor="#FFFFFF" class="td_1">有时你想对本系统进行测试，由于防作弊机制造你无法实现，所以本功能可以清除在系统中清除你的IP和Cookie,你如果要测试广告显示数时，第一次刷新广告后，点击下面的按钮就可以，第二次刷新广告显示数才也会增加,测试点击数也如此。注：此操作只对你本机一台有效，并不影响别的电脑的防作弊功能！</td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><div align="center"> 
          <input type="submit" name="Submit332" value="点击这里在系统清除我的IP,Cookie及Application" onClick="window.location='?Action=testsetsave';return false">
      </div></td>
    </tr>
  </table>
<%End if%>

<%If Action="sysuse" Then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr> 
    <td bgcolor="D6DFF5"> <div align="center"><strong>系统使用说明</strong></div></td>
  </tr>
  <tr> 
    <td height="25" bgcolor="#FFFFFF"><strong>程序作者联系方式:</strong></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" class="td_1"><p>乘风网站推广系统<br>
        版 本：Access版<br>
        作 者：乘 风<br>
        网 址：<a href="http://www.qqcf.com" target="_blank">http://www.QQCF.com</a><br>
        <strong><a href="http://www.qqcf.com/?action=help&help=cfwztg" target="_blank">网站上提供详细的使用帮助，图文并貌，点击浏览帮助</a></strong><br>
        技术支持QQ，Email，最新版本和价格功能请浏览作者网站!<br>
        Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。<br>
        提供免费技术支持!<br>
        也大家欢迎使用Mssql版本的，没有任何功能限制，保留版权即可!<br>
        这里的信息请不要删除,因为对你系统升级和寻求技术支持一定有用的.</p></td>
  </tr>
  <tr> 
    <td height="25" bgcolor="#FFFFFF"><strong>使用范围:</strong></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" class="td_1">　可以做一个单独的广告联盟,也可以使用本系统和你网站本身结合让每个注册用户,结合推广你的网站.如果你的网站上的销售产品,推荐你使用<font color="#FF0000"><strong>乘风产品推广系统</strong></font>,让每一位网民都成为你的网上推销员,获得网站上销售的产品提成.详细请浏览作者网站<a href="http://www.qqcf.com" target="_blank">http://www.qqcf.com</a></td>
  </tr>
  <tr> 
    <td height="25" bgcolor="#FFFFFF"><strong>付费版本说明:</strong></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" class="td_1">　付费版本没有功能限制,付费个人版使用Access数据库,企业版本使用SqlServer数据库,结合存储过程编写,可以在超大流量的网站上稳定运行,购买方法和程序下载请浏览乘风网站<a href="http://www.qqcf.com" target="_blank">http://www.qqcf.com</a></td>
  </tr>
  <tr> 
    <td height="25" bgcolor="#FFFFFF"><strong>安装步骤:</strong></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" class="td_1">单独运行上传到空间可使用，如果还需要和你的网站本身的数据库里的注册用户结合，还要执行以下步骤!<br>
      轻松两步即可安装成功<br>
      第一步: 在超级管理员接口设置里设置相应的接口,设置下面有接口设置的选择说明,很简单的<br>
      第二步:设置好接口后在接口设置下面有接口调用的代码,请把代码放在你网站的页面上即可<br> <strong>如果还不会请上作者网站浏览设置示范图,可以整合动网论坛,动易,数字人等系统的原有注册用户,无须注册再用户即可使用本推广系统,当然推广系统本身也有会员注册功能.</strong></td>
  </tr>
  <tr> 
    <td height="25" bgcolor="#FFFFFF"><strong>网友和网站主后台功能的一些说明:</strong></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" class="td_1"> <p>1.普通会员注册后在获得广告代码里把自己的广告取出后去推广,当推广达到一定数量,就可以申请结算了,每一次结算产生一条记录,并扣除用户的结算金额,管理员在后台审核结算记录,通过结算时需要给会员付结算费用,拒绝结算的话系统会把结算金额退回给会员!<br>
        <br>
        2.系统可以限制用户的广告是不是只有发在网页上,或管理员指定的网站上,或用户自己审核通过后的网站上,或都所有地方,不是从网页上点击过来的广告记录不了来源地址,比如发在QQ里,但点击正常</p>
      <p>3.广告有五种类型:直接文字广告,直接图片广告,网页文字广告,网页图片广告,弹出文字广告<strong>,</strong>前两种适合所有人都可以申请,不能记录广告显示量,后三种只适合有网站的人申请,可以记录广告显示量,其中,网页文字广告特别的是你还可以把其它广告联盟的代码放进去,让别人再申请..</p></td>
  </tr>
  <tr> 
    <td height="25" bgcolor="#FFFFFF"><strong>广告主后台使用的一些说明:</strong></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" class="td_1">1.广告主注册后需要冲值一定金额也可以发布广告,广告发布后,会扣除金额,广告置为等待审核状态,管理员请在广告主消费记录里审核广告的消费记录,通过广告会状态置为正在运行状态,不通过广告会置为拒绝审核状态,并把广告款项退回给广告主.<br> 
      <br>
      2.广告主可以对运行中的广告和已经完成的点击的广告追加广告的点数.<br> <br>
      3.广告主可以使用下线的代码加在自己网站的会员注册页面,能让更多人注册为广告主网站的会员</td>
  </tr>
  <tr>
    <td height="25" bgcolor="#FFFFFF"><strong>超级管理员后台的一些说明</strong></td>
  </tr>
  <tr> 
    <td height="25" bgcolor="#FFFFFF">1.可以使用系统接口设置好参数整合管理员原来网站的会员用户,原网站用户不用重新注册就可以使用本系统提供的推广服务<br> 
      <br>
      2.如果广告的点击和实际有些出入可以修改广告的扣点率,减少会员的有效点击,而广告不用支付费用,也可以对特定推广人设置扣点率<br>
      <br>
      3.使用中有任何不明白的地方,或有任何意见,建议请联系http://www.qqcf.com</td>
  </tr>
  <tr> 
    <td height="25" bgcolor="#FFFFFF"><strong>系统功能：</strong></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" class="td_1">
1.适合用途:一.广告联盟;二.和网站或论坛原有的注册用户集成。让众多网友为你的网站,论坛或产品作宣传。<br><br>

2.广告主后台：在线即时充值，自由发布广告，支持文字，图片，Flash，轮循广告，外部联盟广告等多种形式<br>
　随时查看每个广告的推广即时的实际效果。<br><br>

3.网友或网站主后台：随时查看每个广告的推广即时的实际效果，达到结算要求随时请求结算，支持多种结算方式<br>
　银行卡，支付宝，快钱等，支持对推荐来的注册下线用户无限级提成其结算金额<br><br>

4.管理后台：对广告主，网站主进行用户管理，广告管理，结算管理，网站审核管理<br>
　对系统进行各项设置，如接口，扣点率，发信组件设置等<br><br>

5.强大的防作弊功能:IP防作弊,Cookie校验,代理IP查询，且后台有强大的防作弊查询功能,让作弊用户无处遁形。<br><br>

6.自带会员注册系统.系统也提供接口设置,简单方便地支持使用Access，SqlServer<br>
　或Myssql数据库的网站的注册系统和本系统集成，如动网，动易，Discuz等<br><br>

7.可以从Access版升级到Mssql版，推广流量再大也能应付自如。<br><br>

8.<font color="#FF0000"><a href="http://www.qqcf.com" target="_blank">专业原创程序</a></font>，可靠性，稳定性，安全性，服务都是有保障的。
</td>
  </tr>
  <tr> 
    <td height="25" bgcolor="#FFFFFF"><strong>安全功能</strong></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" class="td_1">1.完全防止Sql注入<br>
      2.完全防止Cookie值盗取,随机产生<br>
      3.数据库在线备份,压缩修复,保证数据即使出错了也可以迅速恢复正常状态<br>
      4.防止用户作弊机制:IP防止,Cookie防止,Iframe防止,广告随机产生验证码，广告最大点击率限制，手工查询</td>
  </tr>
</table>
<%End if%>

<%If Action="pwdmodify" Then%>
<%
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=pwdmodifysave">
      <tr bgcolor="D6DFF5"> 
        <td colspan="2"><div align="center"><strong>修改管理员名称和密码</strong></div></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="33%"><div align="right">管理员名称：</div></td>
        <td width="67%"><input name="Admin" type="text" id="admin" value="<%=Rs("Admin")%>" size="15"></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td><div align="right">密　　码：</div></td>
        <td><input name="Password" type="password" id="password" size="15"></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td><div align="right">密码确认： </div></td>
        <td><input name="Password2" type="password" id="Password2" size="15"></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td>&nbsp;</td>
        <td><input type="submit" name="Submit323" value="修改">
          　　 
          <input type="reset" name="Submit5233" value="取消"> </td>
      </tr>
    </form>
  </table>
<%End If%>

<%If Action="infolist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_SysInfo Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1

If Not Rs.eof Then
 If Not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
  Page=1
 Else
  Page=Int(Abs(Request("Page")))
 End if
 Rs.pagesize=10
 TotalRs=Rs.RecordCount
 TotalPage=Rs.PageCount
 MyPageSize=Rs.PageSize
 Rs.AbsolutePage=Page
End If
%>
<table width="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr bgcolor="#FFFFFF"> 
    <td colspan="5"><input type="submit" name="Submit3" value="增加公告" onClick="location.href='?Action=infoadd'"></td>
  </tr>
  <tr bgcolor="D6DFF5"> 
    <td><div align="center"><strong>序 号</strong></div></td>
    <td><div align="center"><strong>对象</strong></div></td>
    <td><div align="center"><strong>内容</strong></div></td>
    <td><div align="center"><strong>时 间</strong></div></td>
    <td><div align="center"><strong>操作</strong></div></td>
  </tr>
  <%
While Not Rs.Eof And MyPageSize>0
%>
  <tr
<%
If MyPageSize Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
    <td height="18"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
    <td><div align="center"><%
	If Rs("Assort")=1 Then
	 Response.Write "网友或网站主"
	ElseIf Rs("Assort")=2 Then
	 Response.Write "广告主"
	End If%></div></td>
    <td><div align="center"><%=rs("Content")%></div></td>
    <td><div align="center"><%=rs("AddDate")%></div></td>
    <td><div align="center"><a href="?action=infomodify&id=<%=rs("id")%>">修改</a> 
        <a href="?action=infodel&id=<%=rs("id")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
  </tr>
  <%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table border="0" align="center" cellpadding="2" cellspacing="1">
  <tr>
    <td height="35"><div align="right"><a href="?Action=<%=Action%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
            <a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount   then%>
            <a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
            <a href="?Action=<%=Action%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
    <form name="form1" method="post" action="jczx.asp">
      <td valign="top">
        <Select  name="Page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%
For I=1 To TotalPage    
 Response.Write "<option value="&filename&"?Action="&Action&"&Page="& i     
 If Page=I Then Response.Write " selected" 
 Response.write ">转到第"& i &"页</option>"    
Next    
%>
        </select>
      </td>
    </form>
  </tr>
</table>
<%End If%>
<%If Action="infoadd" Then%>

<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <form name="form2" method="post" action="?Action=infoaddsave">
    <tr> 
      <td colspan="2"><div align="center"><strong>公告增加</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><div align="right"><strong>对象：</strong></div></td>
1234

⌨️ 快捷键说明

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