乘风广告联盟系统(Access版) v4.9.rar

Upload

Templet

mb_b

images

mb_a

images

default

images

images

FckEditor

editor

skins

default

images

plugins

insertcode

js

css

images

Data

User

AdUser

AdminUser

loading...

<%

'乘风广告联盟系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://http://www.zjjv.com//
'详细简介：http://http://www.zjjv.com///cfwztg.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<table>
    <tr> 
    <td colspan="12">
<a href="?action=orderadd">手工导入单个定单</a>
<a href="?action=ordermoreadd">手工导入批量定单</a>
<a href="?action=ordermoremodify">手工批量确认成功定单</a>
<a href="?action=orderdaytj">订单每日统计</a>
</td>
</tr>
<form method="post" action="AdUser.aspx?Action=orderdo">
<tr> 
<td>选择</td>
<td>序 号</td>
    <td>订单号</td>
    <td>订单人</td>
    <td>金额</td>
    <td>提成比例</td>
	<td>提成对象</td>
    <td>订单状态</td>
    <td>推荐人</td>
    <td>已结算ID</td>
    <td>导入时间</td>
	<td>操作</td>
  </tr>
<%
OrderCode=ChkStr(Trim(Request("OrderCode")),1)
OrderUser=ChkStr(Trim(Request("OrderUser")),1)
OrderState=ChkStr(Request("OrderState"),2)
AddTime=ChkStr(Trim(Request("AddTime")),3)
If ChkStr(Trim(Request("MyPageNum")),2)="" Then
 MyPageNum=10
Else
 MyPageNum=CLng(ChkStr(Request("MyPageNum"),2))
End If
Sql="Select * From CFWztg_AdUser_Order Where AdUserName='"&AdUserName&"'"
 If OrderCode<>"" Then Sql=Sql&" And OrderCode='"&OrderCode&"'"
 If OrderUser<>"" Then Sql=Sql&" And OrderUser='"&OrderUser&"'"
 If OrderState<>"" Then Sql=Sql&" And OrderState="&OrderState
 If AddTime<>"" Then Sql=Sql&" And DateDiff('d','"&AddTime&"',AddTime)=0"
Sql=Sql&"  Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not Rs.eof Then
 If ChkStr(Request("Page"),2) = "" Then
  Page = 1
 Else 
  Page = CLng(ChkStr(Request("Page"),2))
 End If
 Rs.PageSize = MyPageNum
 TotalRs = Rs.RecordCount
 TotalPage = Rs.PageCount
 MyPageSize = Rs.PageSize
 Rs.AbsolutePage = Page
End If
%>
  <%
While Not Rs.Eof And MyPageSize>0
%>
  <tr> 
<td>
<%
If Rs("OrderState")=2 Then
 Response.write "<input type='checkbox' value='"&Rs("ordercode")&"'>"
End If
%>
</td>
    <td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td>
    <td><%=Rs("OrderCode")%></td>
    <td><%=Rs("OrderUser")%></td>
    <td><%=GetTurnCent(Rs("OrderCent"))%>元</td>
	<td><%=Rs("OrderTcRate")%></td>
    <td><%
	If Rs("tcobject")=1 Then
	 Response.write "推荐人"
	Else
	 Response.write "订单人"
	End If
	%></td>
    <td> 
<%
If Rs("OrderState")=1 Then
 Response.write "即时提成"
ElseIf Rs("OrderState")=2 Then
 Response.write "等待确认"
ElseIf Rs("OrderState")=3 Then
 Response.write "确认成功"
ElseIf Rs("OrderState")=4 Then
 Response.write "确认失败"
End If
%>    </td>
    <td>  
        <%
	If Rs("UserName")<>"" Then
	 Response.write Rs("UserName")
	Else
	 Response.write "缺"
	End If
	%>    </td>
    <td> 
        <%
	If Rs("SpendID")<>0 Then
	 Response.write Rs("SpendID")
	Else
	 Response.write "缺"
	End If
	%>    </td>
    <td><%=Rs("AddTime")%></td>
<td>
<%
If Rs("OrderState")=2 Then
 Response.write "<a href='AdUser.aspx?Action=ordermodifysave&OrderCode="& Rs("OrderCode") &"'return confirm('确定要确认这个定单吗?')"">成功</a>"
 Response.write "&nbsp;&nbsp;<a href='AdUser.aspx?Action=ordermodify_2save&OrderCode="& Rs("OrderCode") &"'return confirm('确定要确认这个定单吗?')"">失败</a>"
 Response.write "&nbsp;&nbsp;<a href='AdUser.aspx?Action=orderdel&OrderCode="& Rs("OrderCode") &"'return confirm('确定要删除这个定单吗?')"">删除</a>"
ElseIf Rs("OrderState")=4 Then
 Response.write "<a href='AdUser.aspx?Action=orderdel&OrderCode="& Rs("OrderCode") &"'return confirm('确定要删除这个定单吗?')"">删除</a>"
End If
%></td>
  </tr>
  <%
MyPageSize = MyPageSize-1
Rs.MoveNext
Wend
%>
<tr>
    <td colspan="12">
<script>
function myselect()
{
 var a = document.getElementsByTagName("input");
 for (var i=0; i<a.length; i++)
 {
  if (a[i].type == "checkbox"){
   a[i].checked =!a[i].checked;
  }
 }
}
function mysubmit(dotype)
{
var dotypestr
if(dotype=="ordermoremodifysave"){
 dotypestr="你确定要把所选择的订单设置为成功状态吗?";
}
else if(dotype=="ordermoremodify_2save"){
 dotypestr="你确定要把所选择的订单设置为失败状态吗?";
}
else if(dotype=="ordermoredel"){
 dotypestr="你确定要删除所选择订单吗?";
}
document.form_orderlist.dotype.value = dotype;
if(confirm(dotypestr)){
 document.form_orderlist.submit();
}
}
</script>
<input type=hidden value="">
<a href="#">选择或反选</a>
<a href="#">修改所选择订单为成功状态</a>
<a href="#">修改所选择订单为失败状态</a>
<a href="#">删除所选择订单</a>
</td>
  </tr>
</form>
</table>
<table>
  <tr>
    <td><a href="?Action=<%=Action%>&OrderCode=<%=OrderCode%>&OrderUser=<%=OrderUser%>&OrderState=<%=OrderState%>&AddTime=<%=AddTime%>&MyPageNum=<%=MyPageNum%>&Page=1">第一页</a>
<%
If Page > 1 Then
%>
            <a href='?Action=<%=Action%>&OrderCode=<%=OrderCode%>&OrderUser=<%=OrderUser%>&OrderState=<%=OrderState%>&AddTime=<%=AddTime%>&MyPageNum=<%=MyPageNum%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page < Rs.PageCount Then
%>
            <a href='?Action=<%=Action%>&OrderCode=<%=OrderCode%>&OrderUser=<%=OrderUser%>&OrderState=<%=OrderState%>&AddTime=<%=AddTime%>&MyPageNum=<%=MyPageNum%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
            <a href="?Action=<%=Action%>&OrderCode=<%=OrderCode%>&OrderUser=<%=OrderUser%>&OrderState=<%=OrderState%>&AddTime=<%=AddTime%>&MyPageNum=<%=MyPageNum%>&Page=<%=Totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页&nbsp;&nbsp;共<%=TotalRs%>条记录&nbsp;&nbsp;每页显示<%=MyPageNum%>条
<%
Response.write "&nbsp;&nbsp;转到第<select onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
 Response.Write "<option value=?Action="& Action &"&OrderCode="& OrderCode&"&OrderUser="& OrderUser &"&OrderState="& OrderState&"&AddTime="& AddTime &"&MyPageNum="& MyPageNum &"&Page="& I
 If Page=I Then Response.Write " selected"
 Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>
  </tr>
</table>
<table>
<script language=JavaScript>
function searchcheck_order()
{ 
 var searchurl ="?Action=<%=Action%>"
 searchurl += '&OrderCode=' + document.getElementById('OrderCode').value;
 searchurl += '&OrderUser=' + document.getElementById('OrderUser').value;
 searchurl += '&OrderState=' + document.getElementById('OrderState').value;
 searchurl += '&AddTime=' + document.getElementById('AddTime').value;
 searchurl += '&MyPageSize=' + document.getElementById('MyPageSize').value;
 document.getElementById('form_order').action = searchurl ;
 return true;
}
</script>
  <form method="post" action="?Action=<%=Action%>" onsubmit="return searchcheck_order()">
    <tr> 
      <td colspan="2"><div><strong>搜 索</strong></div></td>
    <tr>
      <td>订单号：</td>
      <td><input type="text" value="<%=OrderCode%>" size="20"></td>
    <tr>
      <td>订单人：</td>
      <td><input type="text" value="<%=OrderUser%>" size="20"></td>
    <tr>
      <td>选择状态：</td>
      <td><select>
        <option value=""<%If CStr(OrderState)="" Then Response.write " selected"%>>全部定单</option>
		<option value="1"<%If CStr(OrderState)="1" Then Response.write " selected"%>>即时确认的定单</option>
        <option value="2"<%If CStr(OrderState)="2" Then Response.write " selected"%>>等待确认的定单</option>
        <option value="3"<%If CStr(OrderState)="3" Then Response.write " selected"%>>确认成功的定单</option>
        <option value="4"<%If CStr(OrderState)="4" Then Response.write " selected"%>>确认失败的定单</option>
      </select></td>
    <tr>
      <td>导入时间：</td>
      <td><input type="text" value="<%=AddTime%>" size="20">(格式如：2000-1-1)</td>
    <tr>
      <td>每页显示：</td>
      <td><input type="text" value="<%=MyPageNum%>" size="10" />
      条</td>
    <tr>
      <td>&nbsp;</td>
      <td><input type="submit" value="搜索"></td>
  </form>
</table>