www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_Admin_Manage_2.asp
<%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<%If Action="userlist" or Action="usersearch" Then%>
<%
Call GetCurrWeb()
Px=ChkStr(Request("Px"),1)
UserID=ChkStr(Request("UserID"),2)
UserName=ChkStr(Request("UserName"),1)
ComVisit=ChkStr(Request("ComVisit"),2)
SpareState=ChkStr(Request("SpareState"),2)
UserState=ChkStr(Request("UserState"),2)
DeductState=ChkStr(Request("DeductState"),2)
If Px="" Then Px="ID"
Call PxFilter(Px,"ID,UserID,UserName,Total_Cent,Spend_Cent,Spare_Cent,AdShowNum,ComVisit,ComReg,UserState,DeDuct_Rate")
Sql="Select Count(*) From CFWztg_User"
Set Rs= Conn.Execute(Sql)
UserTotal=Rs(0)
If UserTotal>2000 Then Response.write "为了加快浏览速度列表只列2000个用户，你可以用搜索功能查找更多用户!"
Sql="Select Top 2000 * From CFWztg_User where 1=1"
If Action="usersearch" Then
IF UserID<>"" Then Sql=Sql&" And ID="&UserID
IF UserName<>"" Then Sql=Sql&" And UserName Like '%"&UserName&"%'"
IF ComVisit<>"" Then Sql=Sql&" And ComVisit>="&ComVisit
IF UserState<>"" Then Sql=Sql&" And UserState="&UserState
IF SpareState="0" Then Sql=Sql&" And Spare_Cent=0"
IF SpareState="-1" Then Sql=Sql&" And Spare_Cent>0"
IF DeductState="0" Then Sql=Sql&" And Deduct_Rate=0"
IF DeductState="-1" Then Sql=Sql&" And Deduct_Rate>0"
End If
Sql=Sql&" Order By "&Px&" 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=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<SCRIPT language=JavaScript>
<!-- Begin
var checkflag = "false";
function check(field) {
if (checkflag == "false") {
for (i = 0; i < field.length; i++) {
field[i].checked = true;}
checkflag = "true";
return "取消选定该页"; }
else {
for (i = 0; i < field.length; i++) {
field[i].checked = false; }
checkflag = "false";
return "选定该页"; }
}
// End -->
</SCRIPT>
<table class="tb_1">
<tr class="tr_1">
<td></td>
<td><a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&UserState=<%=UserState%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=UserID">用户ID</a></td>
<td><a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&UserState=<%=UserState%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=UserName">用户名</a></td>
<td><a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&UserState=<%=UserState%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=Total_Cent">总收入</a></td>
<td><a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&UserState=<%=UserState%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=Spend_Cent">已经结算</a></td>
<td><a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&UserState=<%=UserState%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=Spare_Cent">没有结算</a></td>
<td><a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&UserState=<%=UserState%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=AdShowNum">显示量</a></td>
<td><a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&UserState=<%=UserState%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=ComVisit">点击量</a></td>
<td><a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&UserState=<%=UserState%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=ComReg">注册量</a></td>
<td><a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&UserState=<%=UserState%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=UserState">账号状态</a></td>
<td><a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&UserState=<%=UserState%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=DeDuct_Rate">扣点</a></td>
<td>操作</td>
<tr class="tr_2">
<form name="form4" method="post" action="Admin.aspx?Action=seluserdel">
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr class="tr_2">
<td>
<input name="box" type="checkbox" id="box" value="<%=rs("UserName")%>">
</td>
<td><%=Rs("ID")%></td>
<td><%=Rs("UserName")%></td>
<td><%=Rs("Total_Cent")%>元</td>
<td><%=Rs("Spend_Cent")%>元</td>
<td><%=Rs("Spare_Cent")%>元</td>
<td><%=Rs("AdShowNum")%></td>
<td><%=Rs("ComVisit")%></td>
<td><%=Rs("ComReg")%></td>
<td>
<%
If Rs("UserState")=-1 Then
Response.Write "有效"
ElseIf Rs("UserState")=0 Then
Response.Write "<font color=#ff0000>无效</font>"
End If
%>
</td>
<td><%=Rs("DeDuct_Rate")%></td>
<td><a href="?Action=usermodify&UserName=<%=rs("UserName")%>">修改及扣款</a>
<a href="Admin.aspx?Action=userdel&UserName=<%=rs("UserName")%>" onclick="{if(confirm('删除前请确定此用户没有剩余金额，确定要删除么?')){return true;}return false;}">删除</a>
<a href="?action=usergo&UserName=<%=rs("UserName")%>" target="_blank">转到</a> <a href="?Action=lysearch&UserName=<%=rs("UserName")%>">搜索</a>
</td>
</tr>
<%
Rs.MoveNext
MyPageSize=MyPageSize-1
Wend%>
<tr>
<td colspan="12" class="td_3">
<INPUT name="button" type=button onclick=this.value=check(this.form.box) value="选定该页">
<input type="submit" name="Submit2" value="删除选择" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">
<input type="button" name="Submit2" value="导出所有用户EMail" onclick="{if(confirm('导出所有用户EMail?')){window.location='Admin.aspx?Action=useremailout';return true;}return false;};">
</td>
</tr>
</form>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=<%=Px%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&UserID=<%=UserID%>&UserName=<%=UserName%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=<%=Px%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=UserTotal%>条记录 每页显示<%=rs.pagesize%>条
<%
Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
Response.Write "<option value=?Action="&Action&"&UserID="&UserID&"&UserName="&UserName&"&ComVisit="&ComVisit&"&State="&State&"&SpareState="&SpareState&"&DeductState="&DeductState&"&Px="&Px&"&Page="& I
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%>
</td>
</tr>
</table>
<table class="tb_3">
<form name="form2" method="post" action="?action=usersearch">
<tr>
<td><strong>搜 索</strong> </td>
<td>用户ID</td>
<td><input name="UserID" type="text" id="UserID" size="6"></td>
<td>用户名</td>
<td><input name="UserName" type="text" id="UserName" size="10"></td>
<td>最少点击数</td>
<td><input name="ComVisit" type="text" id="ComVisit" size="10"></td>
<td>剩余金额</td>
<td><select name="SpareState" id="select">
<option value="" selected>全部</option>
<option value="-1">大于0</option>
<option value="0">等于0</option>
</select></td>
<td>帐号状态</td>
<td><select name="UserState" id="select">
<option value="" selected>全部</option>
<option value="-1">有效</option>
<option value="0">无效</option>
</select></td>
<td>扣点</td>
<td><select name="DeductState" id="select">
<option value="" selected>全部</option>
<option value="0">不扣点</option>
<option value="-1">扣点</option>
</select></td>
<td><input type="submit" name="Submit332" value="搜索"></td>
<tr>
</form>
</table>
<%End If%>
<%If Action="usermodify" Then%>
<SCRIPT>
function bshow_1(){
b_1.style.display = "";
}
function bshow_2(){
b_1.style.display = "none";
}
</SCRIPT>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">修改用户广告信息
<%
UserName=Chkstr(Request("UserName"),1)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_User where UserName='"&UserName&"'"
Rs.open Sql,Conn,1,1
%>
</td>
</tr>
<form name="form4" method="post" action="Admin.aspx?Action=usermodifysave&UserName=<%=UserName%>">
<tr>
<td width="20%">用户名：</td>
<td><%=Rs("UserName")%></td>
</tr>
<tr>
<td>登陆次数：</td>
<td><%=Rs("Logintotal")%></td>
</tr>
<tr>
<td>最后登陆时间：</td>
<td><%=Rs("LastLoginTime")%></td>
</tr>
<tr>
<td>最后登陆IP：</td>
<td><%=Rs("LastLoginIp")%> </td>
</tr>
<tr>
<td>Email：</td>
<td><%=Rs("EMail")%></td>
</tr>
<tr>
<td>QQ：</td>
<td><%=Rs("QQ")%></td>
</tr>
<tr>
<td>联系电话：</td>
<td><%=Rs("Phone")%></td>
</tr>
<tr>
<td>手机：</td>
<td><%=Rs("Mobile")%></td>
</tr>
<tr>
<td>网站网址：</td>
<td><%If Rs("WebSite")<>"" Then Response.write "<a href="&Rs("WebSite")&" target=_blank>"&Rs("WebSite")&"</a>"%> </td>
</tr>
<tr class="tr_1">
<td colspan="2">用户的汇款方式如下</td>
</tr>
<%if Rs("PayType")=0 Then%>
<tr>
<td class="td_2"></td>
<td >没有填写</td>
</tr>
<%Elseif Rs("PayType")=1 Then%>
<tr>
<td>开户银行：</td>
<td><%=rs("Bank_Address")%></td>
</tr>
<tr >
<td>开户人：</td>
<td><%=rs("Bank_UserName")%></td>
</tr>
<tr >
<td>银行卡号或帐号：</td>
<td><%=rs("Bank_UserCode")%></td>
</tr>
<%Elseif Rs("PayType")=2 Then%>
<tr >
<td>支付宝账号：</td>
<td><%=rs("Pay_B")%></td>
</tr>
<%Elseif Rs("PayType")=3 Then%>
<tr >
<td>快钱账号：</td>
<td><%=rs("Pay_C")%></td>
</tr>
<%Elseif Rs("PayType")=4 Then%>
<tr>
<td>QQ财付通账号：</td>
<td><%=rs("Pay_D")%></td>
</tr>
<%End If%>
<tr class="tr_1">
<td colspan="2">修改以下信息</td>
</tr>
<tr>
<td>用户状态：</td>
<td><select name="UserState" id="UserState">
<option value="-1"<%If Rs("UserState")=-1 Then response.write" selected"%>>有效</option>
<option value="0"<%If Rs("UserState")=0 Then response.write" selected"%>>无效</option>
</select></td>
</tr>
<tr>
<td>扣点比率：</td>
<td><input name="DeDuct_Rate" type="text" id="DeDuct_Rate" value="<%=Rs("DeDuct_Rate")%>" size="5">
%(0-100之间，0为不扣点，100为扣除全部点数) <br>
注：这里扣的点归管理员所得，比如此用户扣点率为20%，设置这个以后此网站主每点击的获利20%将归管理员所得。</td>
</tr>
<tr>
<td>注册时间：</td>
<td><%=Rs("AddTime")%></td>
</tr>
<tr>
<td>修改为新密码：</td>
<td><input name="Pwd_New" type="text" id="Pwd_New">
(留空则原密码不会被修改)</td>
</tr>
<tr>
<td>修改为新密码找回答案：</td>
<td><input name="PasswordAnswer_New" type="text" id="PasswordAnswer_New">
(留空则原密码找回答案不会被修改)</td>
</tr>
<tr>
<td>管理员备注：</td>
<td><textarea name="AdminDesc" cols="30" rows="5" id="AdminDesc"><%=Rs("AdminDesc")%></textarea></td>
</tr>
<tr id="a_1">
<td>用户总收入：</td>
<td><%=Rs("Total_Cent")%>元</td>
</tr>
<tr id="a_2">
<td>剩余没有结算：</td>
<td><%=Rs("Spare_Cent")%>元</td>
</tr>
<tr id="a_3">
<td>扣或加多少钱：</td>
<td>
<input name="Deduct_Cent" type="text" size="10">
元(正数则为用户加钱，负数则为用户减钱，留空则不进行扣或加钱操作,这里扣的钱归管理员所得)</td>
</tr>
<tr id="a_4">
<td>留言通知用户：</td>
<td><input type="radio" name="NoticUser" value="-1" onclick="bshow_1()">
是
<input name="NoticUser" type="radio" onclick="bshow_2()" value="0" checked>
否</td>
</tr>
<tr id="b_1">
<td>留言内容：</td>
<td><textarea name="Gbook" cols="30" rows="5"></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit5" value="修改"></td>
</tr>
</form>
<tr>
<td> </td>
<td>
<br>
(<a href="?Action=emailsend&email=<%=Rs("Email")%>&emailsubject=你的账号已经通过审核&emailbody=用户名：<%=Rs("UserName")%>，登录网址：<%=HttpPath(2)%>">发送审核成功的邮件</a>)
-
(<a href="?Action=emailsend&email=<%=Rs("Email")%>&emailsubject=你的账号没有通过审核&emailbody=用户名：<%=Rs("UserName")%>，登录网址：<%=HttpPath(2)%>">发送审核失败的邮件</a>)
</td>
</tr>
</table>
<%End If%>
<%If Action="userspendlist" Or Action="userspendsearch" Then%>
<%
UserName=ChkStr(Request("UserName"),1)
SpendState=ChkStr(Request("SpendState"),2)
Sql="Select * From CFWztg_Spend Where 1=1"
If Action="userspendsearch" Then
If UserName<>"" Then Sql=Sql&" And UserName='"&UserName&"'"
If SpendState<>"" Then Sql=Sql&" And SpendState="&SpendState
End If
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=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<table class="tb_1">
<tr class="tr_1">
<td>序 号</td>
<td>用户</td>
<td>结算金额</td>
<td>结算说明</td>
<td>申请时间</td>
<td>结算状态</td>
<td>管理员审核状态</td>
<td>操作</td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr class="tr_2">
<td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td>
<td><%=rs("UserName")%></td>
<td><%=rs("Spend_Cent")%>元</td>
<td><%=Rs("SpendDesc")%></td>
<td><%=rs("SpendTime")%></td>
<td>
<%
If Rs("SpendState")=1 Then
Response.Write "结算审核中"
ElseIf Rs("SpendState")=2 Then
Response.Write "结算成功"
ElseIf Rs("SpendState")=3 Then
Response.Write "结算失败,"&Rs("SpendAbortFeedBack")
End If%>
</td>
<td>
<%If Rs("AdminCheck")=-1 Then
Response.Write "已审核"
Else
Response.Write "未审核"
End If%>
</td>
<td>
<%If Rs("AdminCheck")=0 Then%>
<a href="?Action=userspendmodify&ID=<%=Rs("ID")%>">审核</a>
<%End If%>
<%If Rs("AdminCheck")=-1 Then%>
<a href="?Action=userspendmodify&ID=<%=Rs("ID")%>">修改</a>
<%End If%>
<%If Rs("AdminCheck")=-1 And Rs("SpendState")=3 Then%>
<a href="Admin.aspx?Action=userspenddel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a>
<%End If%>
</td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&SpendState=<%=SpendState%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&UserName=<%=UserName%>&SpendState=<%=SpendState%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&UserName=<%=UserName%>&SpendState=<%=SpendState%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&UserName=<%=UserName%>&SpendState=<%=SpendState%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条
<%
Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
Response.Write "<option value=?Action="&Action&"&UserName="&UserName&"&SpendState="&SpendState&"&Page="& i
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%>
</td>
</tr>
</table>
<table class="tb_3">
<form name="form2" method="post" action="?action=userspendsearch">
<tr>
<td><strong>搜 索</strong> </td>
<td>用户名</td>
<td><input name="UserName" type="text" id="UserName" size="10"></td>
<td>结算状态</td>
<td><select name="SpendState" id="select">
<option value="" selected>全部</option>
<option value="1">结算中</option>
<option value="2">结算成功</option>
<option value="3">结算失败</option>
</select></td>
<td><input type="submit" name="Submit332" value="搜索"></td>
</form>
</table>
<%End If%>
<%If Action="userspendmodify" Then%>
<%
ID=ChkStr(Request("ID"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_Spend where ID="&ID
Rs.open Sql,Conn,1,1
Set Rs2= Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_User where UserName='"&Rs("UserName")&"'"
Rs2.open Sql,Conn,1,1
%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">修改结算</td>
</tr>
<form name="form4" method="post" action="Admin.aspx?Action=userspendmodifysave&ID=<%=ID%>">
<tr>
<td width="10%">用户：</td>
<td><%=Rs("UserName")%></td>
</tr>
<tr>
<td>总收入：</td>
<td><%=Rs2("Total_Cent")%>元</td>
</tr>
<tr>
<td>已结算：</td>
<td><%=Rs2("Spend_Cent")%>元</td>
</tr>
<tr>
<td>未结算：</td>
<td><%=Rs2("Spare_Cent")%>元</td>
</tr>
<tr>
<td>此次结算：</td>
<td><%=Rs("Spend_Cent")%>元</td>
</tr>
<tr>
<td>状态：</td>
<td><%If Rs("AdminCheck")=0 Then%> <select name="SpendState" id="SpendState">
<option value="2"<%If Rs("SpendState")=2 Then Response.Write" selected"%>>通过审核</option>
<option value="3"<%If Rs("SpendState")=3 Then Response.Write" selected"%>>拒绝审核</option>
</select><input name="AdminCheck" type="hidden" value="0"><%Else%>
<input name="AdminCheck" type="hidden" value="-1">
<%
If Rs("SpendState")=2 Then
Response.Write"已经通过审核"
ElseIf Rs("SpendState")=3 Then
Response.Write"已经拒绝审核"
End If
%>
<%End If%></td>
</tr>
<tr>
<td>管理员说明：</td>
<td><textarea name="AdminDesc" cols="40" rows="5"><%=Rs("AdminDesc")%></textarea></td>
</tr>
<tr>
<td>结算时间：</td>
<td><input name="AdminSpendTime" type="text" id="AdminSpendTime" value="<%If Rs("AdminSpendTime")="" or isnull(Rs("AdminSpendTime")) Then
Response.write Now()
Else
Response.write Rs("AdminSpendTime")
End If%>"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit53" value="修改"></td>
</tr></form>
<tr>
<td colspan="2" class="tr_1">用户的汇款方式如下</td>
</tr>
<%if Rs2("PayType")=0 Then%>
<tr >
<td></td>
<td align="left">没有填写</td>
</tr>
<%Elseif Rs2("PayType")=1 Then%>
<tr >
<td>开户银行：</td>
<td ><%=Rs2("Bank_Address")%></td>
</tr>
<tr >
<td>开户人：</td>
<td ><%=Rs2("Bank_UserName")%></td>
</tr>
<tr align="center" id="t_3">
<td>银行卡号或帐号：</td>
<td ><%=Rs2("Bank_UserCode")%></td>
</tr>
<%Elseif Rs2("PayType")=2 Then%>
<tr >
<td>支付宝账号：</td>
<td ><%=Rs2("Pay_B")%></td>
</tr>
<%Elseif Rs2("PayType")=3 Then%>
<tr >
<td>快钱账号：</td>
<td ><%=Rs2("Pay_C")%></td>
</tr>
<%Elseif Rs2("PayType")=4 Then%>
<tr >
<td>QQ财付通账号：</td>
<td ><%=Rs2("Pay_D")%></td>
</tr>
<%End If%>
</table>
<%End If%>
<%If Action="usersitelist" Then%>
<%
SiteState=Int(ChkStr(Request("SiteState"),2))
Sql="Select a.ID,a.UserName,a.SiteUrl,a.SiteState,a.AddDate,b.SiteClassName From CFWztg_UserSite a Left Join CFWztg_SiteClass b on a.SiteClassID=b.ID Where 1=1"
If SiteState<>0 Then Sql=Sql&" And a.SiteState="&SiteState
Sql=Sql&" Order By a.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=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<table class="tb_1">
<tr>
<td colspan="7" class="td_3">请选择审核状态
<select id='sitestate' onChange="window.location=document.getElementById('sitestate').options[document.getElementById('sitestate').selectedIndex].value">
<option value="?Action=usersitelist&SiteState=0"<%If SiteState=0 Then Response.Write " selected"%>>全部</option>
<option value="?Action=usersitelist&SiteState=1"<%If SiteState=1 Then Response.Write " selected"%>>等待审核</option>
<option value="?Action=usersitelist&SiteState=2"<%If SiteState=2 Then Response.Write " selected"%>>审核成功</option>
<option value="?Action=usersitelist&SiteState=3"<%If SiteState=3 Then Response.Write " selected"%>>审核失败</option>
</select>
</td>
</tr>
<tr class="tr_1">
<td>序 号</td>
<td>用户</td>
<td>网址</td>
<td>类型</td>
<td>审核状态</td>
<td>时 间</td>
<td>操作</td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr class="tr_2">
<td><%=Rs.RecordCount-Rs.PageSize*(Page)+MyPageSize%></td>
<td><%=Rs("UserName")%></td>
<td><%=Rs("SiteUrl")%></td>
<td><%=Rs("SiteClassName")%></td>
<td>
<%
If Rs("SiteState")=1 Then
Response.Write "审核中"
ElseIf Rs("SiteState")=2 Then
Response.Write "审核成功"
ElseIf Rs("SiteState")=3 Then
Response.Write "审核失败"
End if%>
</td>
<td><%=Rs("AddDate")%></td>
<td><a href="?Action=usersitemodify&ID=<%=Rs("ID")%>">修改</a> <a href="Admin.aspx?Action=usersitedel&ID=<%=Rs("ID")%>&UserName=<%=Rs("UserName")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&SiteState=<%=SiteState%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&SiteState=<%=SiteState%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&SiteState=<%=SiteState%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&SiteState=<%=SiteState%>&Page=<%=Totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页 共<%=TotalRs%>条记录 每页显示<%=Rs.PageSize%>条
<%
Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
Response.Write "<option value=?Action="&Action&"&SiteState="&SiteState&"&Page="&I
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%>
</td>
</tr>
</table>
<%End If%>
<%If Action="usersitemodify" Then%>
<%
ID=ChkStr(Request("ID"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_UserSite Where ID="&ID
Rs.open Sql,Conn,1,1
Set Rs2= Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_User where UserName='"&Rs("UserName")&"'"
Rs2.open Sql,Conn,1,1
Email=Rs2("Email")
Rs2.close()
%>
<table class="tb_1">
<form name="form2" method="post" action="Admin.aspx?Action=usersitemodifysave&ID=<%=ID%>&UserName=<%=Rs("UserName")%>">
<tr class="tr_1">
<td colspan="2">修改审核网址</td>
</tr>
<tr>
<td width="10%">所属用户：</td>
<td><%=Rs("UserName")%></td>
</tr>
<tr>
<td>网站网址：</td>
<td><input name="SiteUrl" type="text" value="<%=Rs("SiteUrl")%>">
<br>
(说明：如你的网站域名是www.qqcf.com,这里只要填写www.qqcf.com，不用填写qqcf.com，在qqcf.com上点击的广告一样有效,但如果你还在bbs.qqcf.com上投放了广告,你还需要加入bbs.qqcf.com网址的审核，否则在bbs.qqcf.com下点击过来的广告就记录不了了!在审核过的网址下的任何主目录或子目录下的网页上点击广告都有效，这里只要填写域名就可以!)</td>
</tr>
<tr>
<td>状态：</td>
<td><select name="SiteState">
<option value="1"<%If Rs("sitestate")=1 Then Response.Write " selected"%>>等待审核</option>
<option value="2"<%If Rs("sitestate")=2 Then Response.Write " selected"%>>审核成功</option>
<option value="3"<%If Rs("sitestate")=3 Then Response.Write " selected"%>>审核失败</option>
</select></td>
</tr>
<tr>
<td>网站分类：</td>
<td><select name="SiteClassID" id="SiteClassID">
<option selected value="">请选择分类</option>
<%
Sql="Select * From CFWztg_SiteClass Order By SiteClassName"
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.open Sql,Conn,1,1
While Not Rs2.Eof
%>
<option value="<%=Rs2("ID")%>"<%If Rs("SiteClassID")=Rs2("ID") Then Response.write " selected"%> ><%=Rs2("SiteClassName")%></option>
<%
Rs2.MoveNext
Wend
%>
</select>
</td>
</tr>
<tr>
<td></td>
<td>
<input type="submit" name="Submit3322" value="修改">
</td>
</tr>
</form>
</table>
<%End IF%>
<%If Action="userdeductlist" Or Action="userdeductsearch" Then%>
<%
UserName=ChkStr(Request("UserName"),1)
Sql="Select * From CFWztg_UserDeduct where 1=1"
If Action="userdeductsearch" Then
IF UserName<>"" Then Sql=Sql&" And UserName = '"&UserName&"'"
End If
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=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<table class="tb_1">
<tr>
<td colspan="4"><p>注：<br>
1.扣款操作请在普通用户列表选择用户里操作,这里只列出管理员扣用户款项的记录！<br>
<font color="#FF0000">2.所扣的款项并不退回给广告主，收入归管理员所得!总体：广告主广告发布款项=用户的结算款项+管理员手工扣除用户的款项+设置的扣点率扣的款项</font></p>
</td>
</tr>
<tr class="tr_1">
<td>序 号</td>
<td>用户名</td>
<td>扣除款项</td>
<td>扣款时间</td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr class="tr_2">
<td ><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
<td ><%=rs("UserName")%></div></td>
<td >
<%Response.write Rs("Deduct_Cent")&"元"%>
</div></td>
<td ><%=rs("AddTime")%></div></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&UserName=<%=UserName%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&UserName=<%=UserName%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&UserName=<%=UserName%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条
<%
Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
Response.Write "<option value=?Action="&Action&"&UserName="&UserName&"&Page="& i
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>
</tr>
</table>
<table class="tb_3">
<form name="form2" method="post" action="?action=userdeductsearch">
<tr>
<td><strong>搜 索</strong> </td>
<td>用户名</td>
<td><input name="UserName" type="text" id="UserName" size="10"></td>
<td><input type="submit" name="Submit332" value="搜索"></td>
</form>
</table>
<%End If%>
<%If Action="aduserlist" or Action="adusersearch" Then%>
<%
Call GetCurrWeb()
Px=ChkStr(Request("Px"),1)
AdUserName=ChkStr(Request("AdUserName"),1)
ComVisit=ChkStr(Request("ComVisit"),2)
AdUserState=ChkStr(Request("AdUserState"),2)
If Px="" Then Px="ID"
Call PxFilter(Px,"ID,AdUserName,Total_Cent,Spend_Cent,Spare_Cent,AdUserState")
Sql="Select * From CFWztg_AdUser Where 1=1"
If Action="adusersearch" Then
IF AdUserName<>"" Then Sql=Sql&" And AdUserName Like '%"&AdUserName&"%'"
IF ComVisit<>"" Then Sql=Sql&" And ComVisit >= "&ComVisit
IF AdUserState<>"" Then Sql=Sql&" And AdUserState="&AdUserState
End If
Sql=Sql&" Order By "&Px&" 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=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<table class="tb_1">
<tr class="tr_1">
<td><a href="?Action=<%=Action%>&AdUserName=<%=AdUserName%>&ComVisit=<%=ComVisit%>&AdUserState=<%=AdUserState%>&Px=ID">序号</a></td>
<td><a href="?Action=<%=Action%>&AdUserName=<%=AdUserName%>&ComVisit=<%=ComVisit%>&AdUserState=<%=AdUserState%>&Px=AdUserName">用户名</a></td>
<td><a href="?Action=<%=Action%>&AdUserName=<%=AdUserName%>&ComVisit=<%=ComVisit%>&AdUserState=<%=AdUserState%>&Px=Total_Cent">总金额</a></td>
<td><a href="?Action=<%=Action%>&AdUserName=<%=AdUserName%>&ComVisit=<%=ComVisit%>&AdUserState=<%=AdUserState%>&Px=Spend_Cent">已花费</a></td>
<td><a href="?Action=<%=Action%>&AdUserName=<%=AdUserName%>&ComVisit=<%=ComVisit%>&AdUserState=<%=AdUserState%>&Px=Spare_Cent">剩余金额</a></td>
<td><a href="?Action=<%=Action%>&AdUserName=<%=AdUserName%>&ComVisit=<%=ComVisit%>&AdUserState=<%=AdUserState%>&Px=AdUserState">账号状态</a></td>
<td>操作</td>
</tr>
<form name="form4" method="post" action="?action=delseluser">
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr class="tr_2">
<td><%=Rs.RecordCount-Rs.PageSize*(Page)+MyPageSize%></td>
<td><%=Rs("AdUserName")%></td>
<td><%=Rs("Total_Cent")%>元</td>
<td><%=Rs("Spend_Cent")%>元</td>
<td><%=Rs("Spare_Cent")%>元</td>
<td><%
If Rs("AdUserState")=-1 Then
Response.Write "有效"
ElseIf Rs("AdUserState")=0 Then
Response.Write "<font color=#ff0000>无效</font>"
End If
%></td>
<td><a href="?Action=adusermodify&AdUserName=<%=rs("AdUserName")%>">修改</a>
<a href="Admin.aspx?Action=aduserdel&AdUserName=<%=rs("AdUserName")%>" onclick="{if(confirm('删除前请确定此用户没有剩余金额，确定要删除么?')){return true;}return false;}">删除</a>
<a href="?Action=adusergo&AdUserName=<%=rs("AdUserName")%>" target="_blank">转到</a></td>
</tr>
<%
Rs.MoveNext
MyPageSize=MyPageSize-1
Wend%>
</form>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&AdUserName=<%=AdUserName%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=<%=Px%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&AdUserName=<%=AdUserName%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&AdUserName=<%=AdUserName%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&AdUserName=<%=AdUserName%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=<%=Px%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条
<%
Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
Response.Write "<option value=?Action="&Action&"&AdUserName="&AdUserName&"&ComVisit="&ComVisit&"&State="&State&"&Px="&Px&"&Page="& I
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>
</tr>
</table>
<table class="tb_3">
<form name="form2" method="post" action="?action=adusersearch">
<tr>
<td><strong>搜 索</strong> </td>
<td>用户名</td>
<td><input name="AdUserName" type="text" id="AdUserName" size="10"></td>
<td>最少点击数</td>
<td><input name="Spare_Dot" type="text" id="Spare_Dot" size="10"></td>
<td>帐号状态</td>
<td><select name="AdUserState" id="select">
<option value="" selected>全部</option>
<option value="-1">有效</option>
<option value="0">无效</option>
</select></td>
<td><input type="submit" name="Submit332" value="搜索"></td>
</form>
</table>
<%End If%>
<%If Action="adusermodify" Then%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">修改广告商信息
<%
AdUserName=ChkStr(Request("AdUserName"),1)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_AdUser where AdUserName='"&AdUserName&"'"
Rs.open Sql,Conn,1,1
%>
</div></td>
</tr>
<form name="form4" method="post" action="Admin.aspx?Action=adusermodifysave&AdUserName=<%=AdUserName%>">
<tr>
<td width="12%">用户名：</td>
<td><%=Rs("AdUserName")%></td>
</tr>
<tr>
<td>登陆次数：</td>
<td><%=Rs("Logintotal")%></td>
</tr>
<tr>
<td>最后登陆时间：</td>
<td><%=Rs("LastLoginTime")%></td>
</tr>
<tr>
<td>最后登陆IP：</td>
<td><%=Rs("LastLoginIp")%></td>
</tr>
<tr>
<td>帐号状态：</td>
<td><select name="AdUserState" id="AdUserState">
<option value="-1"<%If Rs("AdUserState")=-1 Then response.write" selected"%>>有效</option>
<option value="0"<%If Rs("AdUserState")=0 Then response.write" selected"%>>无效</option>
</select></td>
</tr>
<tr>
<td>注册时间：</td>
<td><%=Rs("AddTime")%></td>
</tr>
<tr>
<td>修改为新密码：</td>
<td><input name="Pwd_New" type="text" id="Pwd_New">
(留空则原密码不会被修改)</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit5" value="修改"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="aduserexpendlist" then%>
<%
Sql="Select * From CFWztg_AdUser_Expend 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=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<table class="tb_1">
<tr class="tr_1">
<td>序 号</td>
<td>广告ID</td>
<td>用户</td>
<td>消费金额</td>
<td>用途</td>
<td>申请时间</td>
<td>消费审核</td>
<td>管理审核状态</td>
<td>操作</td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr class="tr_2">
<td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
<td><%=Rs("Ad_ID")%>[<a href="ViewAd.asp?ID=<%=Rs("Ad_ID")%>" target="_blank">查看</a>]</td>
<td><%=Rs("AdUserName")%></td>
<td><%=Rs("Expend_Cent")%>元</td>
<td width="200px"><%=Rs("ExpendDesc")%></td>
<td><%=Rs("AddTime")%></td>
<td>
<%
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
%>
</td>
<td> <div align="center">
<%If Rs("AdminCheck")=-1 Then
Response.Write "已审核"
Else
Response.Write "未审核"
End If%>
</td>
<td>
<%If Rs("AdminCheck")=0 Then%>
<a href="?Action=aduserexpendmodify&ID=<%=Rs("ID")%>">审核</a>
<%End If%>
<%If Rs("AdminCheck")=-1 Then%>
<a href="?Action=aduserexpendmodify&ID=<%=Rs("ID")%>">修改</a>
<%End If%>
<%If Rs("AdminCheck")=-1 And Rs("ExpendState")=3 Then%>
<a href="Admin.aspx?Action=aduserexpenddel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a>
<%End If%>
</td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table class="tb_3">
<tr>
<td><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%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条
<%
Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
Response.Write "<option value=?Action="&Action&"&Page="& i
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>
</tr>
</table>
<%End If%>
<%If Action="aduserexpendmodify" Then%>
<%
ID=ChkStr(Request("ID"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_AdUser_Expend where ID="&ID
Rs.open Sql,Conn,1,1
Set Rs2= Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_AdUser where AdUserName='"&Rs("AdUserName")&"'"
Rs2.open Sql,Conn,1,1
AdUserName=Rs2("AdUserName")
Email=Rs2("Email")
%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2">消费审核</td>
</tr>
<form name="form4" method="post" action="Admin.aspx?Action=aduserexpendmodifysave&ID=<%=ID%>">
<tr>
<td width="10%">广告用户：</td>
<td><%=Rs("AdUserName")%></td>
</tr>
<tr>
<td>总收入：</td>
<td><%=Rs2("Total_Cent")%>元</td>
</tr>
<tr>
<td>已花费：</td>
<td><%=Rs2("Spend_Cent")%>元</td>
</tr>
<tr>
<td width="150">剩余金额：</td>
<td><%=Rs2("Spare_Cent")%>元</td>
</tr>
<tr>
<td>此广告花费：</td>
<td><%=Rs("Expend_Cent")%>元</td>
</tr>
<tr>
<td>用途：</td>
<td>
<%If Rs("ChaseState")=0 Then
Response.Write "新发布广告"
Else
Response.Write "追加点数,数量："&Rs("ChaseClickNum")
End If
%>
</td>
</tr>
<tr>
<td>状态：</td>
<td><%If Rs("AdminCheck")=0 Then%> <select name="ExpendState" id="ExpendState">
<option value="2"<%If Rs("ExpendState")=2 Then Response.Write " selected"%>>通过审核</option>
<option value="3"<%If Rs("ExpendState")=3 Then Response.Write " selected"%>>拒绝审核</option>
</select> <input name="AdminCheck" type="hidden" value="0"> <%Else%> <input name="AdminCheck" type="hidden" value="-1">
<%
If Rs("ExpendState")=2 Then
Response.Write"已经通过消费"
ElseIf Rs("ExpendState")=3 Then
Response.Write"已经拒绝消费"
End If
%> <%End If%></td>
</tr>
<tr>
<td>管理员说明：</td>
<td><textarea name="AdminDesc" cols="40" rows="5"><%=Rs("AdminDesc")%></textarea></td>
</tr>
<tr>
<td>结算时间：</td>
<td><input name="AdminSpendTime" type="text" id="AdminSpendTime" value="<%If Rs("AdminSpendTime")="" or isnull(Rs("AdminSpendTime")) Then
Response.write Now()
Else
Response.write Rs("AdminSpendTime")
End If%>"></td>
</tr>
<%
Sql="Select * From CFWztg_AD where ID="&Rs("Ad_ID")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.open Sql,Conn,1,1
%>
<tr class="tr_1">
<td colspan="2">广告信息</td>
</tr>
<tr>
<td>广告ID：</td>
<td><%=Rs("Ad_ID")%></td>
</tr>
<tr>
<td>广告审核状态：</td>
<td><%=Rs2("AdState")%> (说明：新发布的广告(非追加点数)消费通过审核后会同时设置广告审核成功,消费拒绝审核后会同时设置广告审核失败)</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit53" value="修改"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="aduserenoughlist" Then%>
<%
Sql="Select * From CFWztg_AdUser_OnlinePay 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=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<table class="tb_1">
<tr>
<td colspan="8"><input type="submit" name="Submit" value="为广告商充值" onClick="location.href='?Action=aduserenoughadd'"></td>
</tr>
<tr class="tr_1">
<td colspan="8">充值记录</td>
</tr>
<tr class="tr_2">
<td>序号</td>
<td>充入账号</td>
<td>充值订单</td>
<td>充值金额</td>
<td>充值时间</td>
<td>已支付</td>
<td>充值类型</td>
<td>操作</td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr class="tr_2">
<td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td>
<td><%=Rs("AdUserName")%></td>
<td><%=Rs("OrderCode")%></td>
<td><%=Rs("PayMoney")%></td>
<td><%=Rs("AddTime")%></td>
<td> <%
If Rs("PayOk")=0 Then
Response.write "否"
ElseIf Rs("PayOk")=-1 Then
Response.write "是"
End if
%></td>
<td align="center"> <%
If Rs("EnoughType")=1 Then
Response.write "在线支付"
ElseIf Rs("EnoughType")=2 Then
Response.write "管理员人工充值"
End if
%> </td>
<td >
<a href="Admin.aspx?Action=aduserenoughdel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除这个充值定单么?')){return true;}return false;}">删除</a>
<%
If Rs("PayOk")=0 Then
Response.write " <a href='Admin.aspx?Action=aduserenoughredo&ID="&Rs("ID")&"' onclick=""{if(confirm('确定要重新充入这个定单的金额么?')){return true;}return false;}"">充入</a>"
End if
%>
</td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table class="tb_3">
<tr>
<td><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%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条
<%
Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
Response.Write "<option value=?Action="&Action&"&Page="& i
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%>
</td>
</tr>
</table>
<%End If%>
<%If Action="aduserenoughadd" Then%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="2"><div align="center"><strong>为广告主充值</strong></div></td>
</tr>
<form name="form4" method="post" action="Admin.aspx?Action=aduserenoughaddsave">
<tr>
<td width="12%">广告主用户名：</td>
<td><input name="AdUserName" type="text" size="20"></td>
</tr>
<TR>
<TD>定单号：</TD>
<TD><%OrderCode=Left(DateDiff("s","2000-1-1",Now())&GenRanStr_2(16),16)%><input name="OrderCode" type="hidden" id="OrderCode" value="<%=OrderCode%>"><%=OrderCode%></TD>
</TR>
<tr>
<td>充入：</td>
<td><input name="PayMoney" type="text" size="20">
元</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit53" value="充值" onclick="{if(confirm('确定要为此广告商充值么?')){return true;}return false;}"></td>
</tr>
</form>
</table>
<%End If%>