📄 qqcf_admin_manage_2.asp
字号:
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="D6DFF5">
<td><div align="center"><strong>序 号</strong></div></td>
<td><div align="center"><strong>广告ID</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>
<td><div align="center"><strong>消费审核</strong></div></td>
<td><div align="center"><strong>管理审核状态</strong></div></td>
<td><div align="center">操作</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"><%=Rs("Ad_ID")%>[<a href="ViewAd.asp?ID=<%=Rs("Ad_ID")%>" target="_blank">查看</a>]</div></td>
<td><div align="center"><%=Rs("AdUser_Name")%></div></td>
<td><div align="center"><%=Rs("Expend_Cent")/1000%>元</div></td>
<td><div align="center"><%=Rs("ExpendDesc")%></div></td>
<td><div align="center"><%=Rs("AddTime")%></div></td>
<td><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> <div align="center">
<%If Rs("AdminCheck")=-1 Then
Response.Write "已审核"
Else
Response.Write "未审核"
End If%>
</div></td>
<td><div align="center">
<%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="?Action=aduserexpenddel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a>
<%End If%>
</div></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table border="0" align="center" cellpadding="0" 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%>页 共<%=totalrs%>条记录 每页显示<%=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="aduserexpendmodify" Then%>
<%
ID=Request("ID")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_Cfwztg_AdUser_Expend where ID="&ID
Rs.open Sql,Conn,1,1
Set Rs2= Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_AdUser where AdUser_Name='"&Rs("AdUser_Name")&"'"
Rs2.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="2"><div align="center"><strong>消费审核</strong></div></td>
</tr>
<form name="form4" method="post" action="?Action=aduserexpendmodifysave&ID=<%=ID%>">
<tr bgcolor="#FFFFFF">
<td><div align="right">广告用户：</div></td>
<td><%=Rs("AdUser_Name")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">总收入：</div></td>
<td><%=Rs2("Total_Cent")/1000%>元</td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">已花费：</div></td>
<td><%=Rs2("Spend_Cent")/1000%>元</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="150"><div align="right">剩余金额：</div></td>
<td><%=Rs2("Spare_Cent")/1000%>元</td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">此广告花费：</div></td>
<td><%=Rs("Expend_Cent")/1000%>元</td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">用途：</div></td>
<td>
<%If Rs("ChaseState")=0 Then
Response.Write "新发布广告"
Else
Response.Write "追加点数,数量："&Rs("ChaseClickNum")
End If
%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">状态：</div></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 bgcolor="#FFFFFF">
<td><div align="right">管理员说明：</div></td>
<td><textarea name="AdminDesc" cols="40" rows="5"><%=GetConVertStr(Rs("AdminDesc"))%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">审核时间：</div></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 WWW_QQCF_COM_CfWztg_AD where ID="&Rs("Ad_ID")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.open Sql,Conn,1,1
%>
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="center"><strong>广告信息</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">广告ID：</div></td>
<td><%=Rs("Ad_ID")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">广告审核状态：</div></td>
<td><%=Rs2("AdState")%> (说明：新发布的广告(非追加点数)消费通过审核后会同时设置广告审核成功,消费拒绝审核后会同时设置广告审核失败)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td><input type="submit" name="Submit53" value="修改"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="aduserenoughlist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_Cfwztg_AdUser_Enough 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%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="#FFFFFF">
<td colspan="7"><input type="submit" name="Submit" value="为广告商充值" onClick="location.href='?Action=aduserenoughadd'"></td>
</tr>
<tr>
<td colspan="7" 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>
<td bgcolor="#FFFFFF"><div align="center">操作</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 bgcolor="#FFFFFF"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("ID")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("AdUser_Name")%></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>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=aduserenoughmodify&ID=<%=Rs("ID")%>">修改</a></div></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table border="0" align="center" cellpadding="0" 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%>页 共<%=totalrs%>条记录 每页显示<%=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="aduserenoughadd" Then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="D6DFF5">
<td colspan="2"><div align="center"><strong>为广告商充值</strong></div></td>
</tr>
<form name="form4" method="post" action="?Action=aduserenoughaddsave">
<tr bgcolor="#FFFFFF">
<td width="150"><div align="right">请选择广告商：</div></td>
<td><select name="AdUser_Name">
<option value="" selected>请选择广告商</option>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_AdUser Order By AdUser_Name"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
%>
<option value="<%=Rs("AdUser_Name")%>"><%=Rs("AdUser_Name")%></option>
<%
Rs.MoveNext
Wend
%>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">此次冲值：</div></td>
<td><input name="Enough_Cent" type="text" size="10">
元</td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">管理员说明：</div></td>
<td><textarea name="AdminDesc" cols="40" rows="5"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td><input type="submit" name="Submit53" value="充值" onclick="{if(confirm('确定要为此广告商充值么?')){return true;}return false;}"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="aduserenoughmodify" Then%>
<%
ID=Request("ID")
Sql="Select * From WWW_QQCF_COM_Cfwztg_AdUser_Enough Where ID="&ID
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="2"><div align="center"><strong>修改充值说明</strong></div></td>
</tr>
<form name="form4" method="post" action="?Action=aduserenoughmodifysave&ID=<%=ID%>">
<tr bgcolor="#FFFFFF">
<td width="150"><div align="right">管理员说明：</div></td>
<td><textarea name="AdminDesc" cols="40" rows="5"><%=GetConVertStr(Rs("AdminDesc"))%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td><input type="submit" name="Submit53" value="修改"></td>
</tr>
</form>
</table>
<%End If%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -