📄 qqcf_aduser_manage_3.asp

📁 功　能： 1.系统分别为每个网站注册会员分配了一个推广链接
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<%
'==================================
' 乘风网站推广系统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="enoughlist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_AdUser where AdUser_Name='"&AdUser_Name&"'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr> 
    <td colspan="6" bgcolor="D6DFF5"><div align="center"><strong>你的余额</strong></div></td>
  </tr>
  <tr> 
    <td colspan="6" bgcolor="#FFFFFF">您好：<%=AdUser_Name%><br>
      剩余金额：<%=Rs("Spare_Cent")/1000%>元</td>
  </tr>
  
<%If Online_Pay=1 Then%>
<form name="form2" method="post" action="?Action=onlinepay" target="_blank">
<tr>
    <td colspan="6" bgcolor="#FFFFFF" class="td_1"><input type="submit" name="Submit2" value="在线支付"></td>
  </tr>
 </form>
<%End If%>
  <tr> 
 
    <td colspan="6" bgcolor="#FFFFFF" class="td_1">
<p>
<%
If Online_Pay=1 Then
 Response.write "建议你用银行卡在线支付，充值完后钱到账号里，不能在线支付的话首页有系统管理员的银行账号，你也可以去银行汇款,汇款后请联系管理员QQ，或在系统里留言或其它方式，说明里的汇款时间和金额.管理员为你加入余额，这样不耽误你发布广告！<br>"
else
 Response.write "首页有系统管理员的银行账号，你可以去银行汇款,汇款后请联系管理员QQ，或在系统里留言或其它方式，说明里的汇款时间和金额.管理员为你加入余额，这样不耽误你发布广告！<br>"
End If
%>
      </td>
  </tr>
</table>

<%
Sql="Select * From WWW_QQCF_COM_Cfwztg_AdUser_Enough Where AdUser_Name='"&AdUser_Name&"' Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
        

<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr bgcolor="D6DFF5"> 
    <td colspan="5"><div align="center"><strong>充值记录</strong></div></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"><div align="center">序号</div></td>
    <td bgcolor="#FFFFFF"><div align="center">充值编号</div></td>
    <td bgcolor="#FFFFFF"><div align="center">充值金额</div></td>
    <td bgcolor="#FFFFFF"><div align="center">充值时间</div></td>
    <td bgcolor="#FFFFFF"><div align="center">管理员说明</div></td>
  </tr>
  <%
While Not Rs.Eof
I=I+1
%>
  <tr
<%
If I Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
    <td bgcolor="#FFFFFF"><div align="center"><%=I%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%=Rs("ID")%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%=Rs("Enough_Cent")/1000%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%=Rs("AddTime")%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%=Rs("AdminDesc")%></div></td>
  </tr>
  <%
Rs.MoveNext
Wend
%>
</table>
<%End If%>

<%If Action="onlinepay" Then%>
<%Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_AdUser Where AdUser_Name='"&AdUser_Name&"'"
Rs.Open Sql,Conn,1,1%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5" >
  <FORM name=formbill action="?Action=paysend" method=post>
    <TBODY>
      <TR bgcolor="#FFFFFF"> 
        <TD height=23 colspan="2" align=right><div align="center"><b>在线充值</b> 
          </div></TD>
      </TR>
      <TR bgcolor="#FFFFFF"> 
        <TD width="290" height=23 align=right>用户名：</TD>
        <TD width="444" height=23 ><%=AdUser_Name%> <input name="merchant_param" type="hidden" value="<%=AdUser_Name%>" maxlength="25"> 
        </TD>
      </TR>
      <TR bgcolor="#FFFFFF"> 
        <TD height=24 align=right>定单号：</TD>
        <TD height=24><%orderid=DateDiff("s","2000-1-1 0:0:0",Now())%> <input name="orderid" type="hidden" id="orderid" value="<%=orderid%>"> 
          <%=orderid%></TD>
      </TR>
      <TR bgcolor="#FFFFFF">
        <TD height=24 align=right>Email：</TD>
        <TD height=24><input name="pemail" type="hidden" id="pemail" value="<%=Rs("email")%>"><%=Rs("email")%></TD>
      </TR>
      <TR bgcolor="#FFFFFF"> 
        <TD height=24 align=right>充值：</TD>
        <TD height=24><input name="amount" type=text size="10">
          元 </TD>
      </TR>
      <TR bgcolor="#FFFFFF"> 
        <TD height=24 align=right>&nbsp;</TD>
        <TD valign="top"><input type="submit" name="Submit" value="开始支付"></TD>
      </TR>
  </FORM>
</TABLE>
<%End If%>

<%If Action="paysend" Then%>
<%
'''''''''
 ' @Description: 快钱网关接口范例
 ' @Copyright (c) 上海快钱信息服务有限公司
 ' @version 2.0
'''''''''
 merchant_id = merchant_id		'''商户编号
 merchant_key = merchant_key		'''商户密钥
 orderid = Request("orderid")		'''订单编号
 amount = Request("amount")		'''订单金额
 curr = "1"		'''货币类型,1为人民币
 isSupportDES = "2"		'''是否安全校验,2为必校验,推荐

 merchant_url = HttpPath(2)&"qqcf_onlinepay_receive.asp"		'''支付结果返回地址
 pname = Request("pname")		'''支付人姓名
 commodity_info = Request("commodity_info")		'''商品信息
 merchant_param = Request("merchant_param")		'''商户私有参数
	
pemail=Request("pemail")		'''传递email到快钱网关页面
pid=""		'''代理/合作伙伴商户编号

'''生成加密串,注意顺序
ScrtStr="merchant_id=" & merchant_id & "&orderid=" & orderid & "&amount=" & amount & "&merchant_url=" & merchant_url & "&merchant_key=" & merchant_key
mac=ucase(md5(ScrtStr,2))

%>

	
	  
  <table width="300" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC" >
    <tr bgcolor="#FFFFFF"> 
      <td>订单编号：</td>
      <td><%=orderid%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="107">订单金额：</td>
      <td><%=Request("amount")%>元</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>Email：</td>
      <td><%=pemail%></td>
    </tr>
    <form name="frm" method="post" action="https://www.99bill.com/webapp/receiveMerchantInfoAction.do">
      <tr bgcolor="#FFFFFF"> 
        <td colspan="2"> <input name="merchant_id" type="hidden" value="<%=merchant_id%>"> 
          <input name="orderid"  type="hidden" value="<%=orderid%>"> 
          <input name="amount"  type="hidden" value="<%=amount%>"> 
          <input name="currency"  type="hidden" value="<%=curr%>"> 
          <input name="isSupportDES"  type="hidden" value="<%=isSupportDES%>"> 
          <input name="mac"  type="hidden" value="<%=mac%>"> 
          <input name="merchant_url"  type="hidden"  value="<%=merchant_url%>"> 
          <input name="pname"  type="hidden" value="<%=pname%>"> 
          <input name="commodity_info"  type="hidden"  value="<%=commodity_info%>"> 
          <input name="merchant_param" type="hidden"  value="<%=merchant_param%>"> 
          <input name="pemail" type="hidden"  value="<%=pemail%>"> 
          <input name="pid" type="hidden"  value="<%=pid%>"> 
          <input name="payby99bill"  type="submit" value="确认支付">
          支持各种银行卡、快钱账户支付</td>
      </tr>
    </form>
    <tr> 
      <td></td>
      <td></td>
    </tr>
  </table>

<%End If%>

<%If Action="expendlist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_Cfwztg_AdUser_Expend where AdUser_Name='"&AdUser_Name&"' Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
        
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr> 
    <td colspan="6" bgcolor="D6DFF5"><div align="center"><strong>消费记录</strong></div></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"><div align="center">序号</div></td>
    <td bgcolor="#FFFFFF"><div align="center">消费编号</div></td>
    <td bgcolor="#FFFFFF"><div align="center">消费金额</div></td>
    <td bgcolor="#FFFFFF"><div align="center">用途描述</div></td>
    <td bgcolor="#FFFFFF"><div align="center">审核状态</div></td>
    <td bgcolor="#FFFFFF"><div align="center">管理员说明</div></td>
  </tr>
  <%
While Not Rs.Eof
I=I+1
%>
  <tr
<%
If I Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
    <td bgcolor="#FFFFFF"><div align="center"><%=I%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%=Rs("ID")%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%=Rs("Expend_Cent")/1000%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%=Rs("ExpendDesc")%></div></td>
    <td bgcolor="#FFFFFF"><div align="center">
	<%
	If Rs("ExpendState")=1 Then
	  Response.Write "审核中"
	 ElseIf Rs("ExpendState")=2 Then
	  Response.Write "审核成功"
     ElseIf Rs("ExpendState")=3 Then
	  Response.Write "审核失败,"&Rs("ExPendAbortFeedBack")
	 End If
	 %></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%=Rs("AdminDesc")%></div></td>
  </tr>
  <%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>

        <%End If%>
		
<%
ViewAdEffect=Request("ViewAdEffect")
If ViewAdEffect="" Then ViewAdEffect="lytj"

If Action="viewadeffect" Then%>		
<%
Ad_ID=Request("Ad_ID")
12 3 下一页
💿 文件大小 946 K
👤 上传用户 god_dog
📂 所属分类其他
🏷️ 相关标签

#分 #分配 #网站
⌨️ 快捷键说明

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