📄 qqcf_manage_2.asp
字号:
</table>
<table width="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="D6DFF5">
<form name="form6" method="post" action="?">
<td colspan="4" bgcolor="#FFFFFF"> <div align="right">
<%
Sql="Select Count(*) From WWW_QQCF_COM_CfWztg_LowUser where User_Name='"&user_name&"'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
Response.Write "所有天数内共有:"&Rs(0)&"个推荐注册用户"
%>
选择查询的日期
<Select name="adddate" size="1" onChange="window.location=form.adddate.options[form.adddate.selectedIndex].value">
<option>请选择日期</option>
<%
Sql="Select AddDate From WWW_QQCF_COM_CfWztg_LowUser Where User_Name='"&user_name&"' Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Response.Write "<option value='?Action=lowview&AddDate="&Rs("AddDate")&"'"
If Request("AddDate")=Cstr(Rs("AddDate")) Then Response.Write " selected"
Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
</select>
</div></td>
</form>
</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>
</tr>
<%
AddDate=Request("AddDate")
If AddDate="" Then
Sql="Select * From WWW_QQCF_COM_CfWztg_LowUser where User_Name='"&user_name&"' Order By ID Desc"
Else
Sql="Select * From WWW_QQCF_COM_CfWztg_LowUser where User_Name='"&user_name&"' And AddDate=#"&AddDate&"# Order By ID Desc"
End If
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
%>
<%
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("LowUser_Name")%></div></td>
<td><div align="center"><%=GetFieldValues("WWW_QQCF_COM_CfWztg_RegUser","User_Name",Rs("LowUser_Name"),2,"Spare_Cent")/1000%>元</div></td>
<td><div align="center"><%=Rs("AddTime")%></div></td>
</tr>
<%
MyPageSize = MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="30"><div align="right"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Page=1">第一页</a>
<%
If Page > 1 Then
%>
<a href='?Action=<%=Action%>&AddDate=<%=AddDate%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page < Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&AddDate=<%=AddDate%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Page=<%=Totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页 共<%=TotalRs%>条记录 每页显示<%=Rs.PageSize%>条</div></td>
<form name="form1" method="post" action="?">
<td valign="top">
<Select name="page" size="1" id="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%
For I = 1 To TotalPage
Response.Write "<option value=?Action="& Action &"&AddDate="& AddDate &"&Px="& Px &"&Page="& I
If Page = I Then Response.Write " selected"
Response.Write ">转到第"& I &"页</option>"
Next
%>
</select>
</td>
</form>
</tr>
</table>
<%end if%>
<%If Action="spendlist" Then%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from WWW_QQCF_COM_CfWztg_RegUser Where User_Name='"&User_Name&"'"
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><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 width="150"><div align="center"><strong>剩余金额</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="center"><%=rs("AdShowNum")%></div></td>
<td><div align="center"><%=rs("ComVisit")%></div></td>
<td><div align="center"><%=rs("ComReg")%></div></td>
<td><div align="center"> <%=rs("Total_Cent")/1000%>元</div></td>
<td><div align="center"><%=rs("Spend_Cent")/1000%>元</div></td>
<td><div align="center"><%=rs("Spare_Cent")/1000%>元</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="6"> <div align="right"> (每次最低结算标准<%=RsSet("LowSpendCent")%>元)
<input type="submit" name="Submit422" value="结算申请" <%if rs("Spare_Cent")>=RsSet("LowSpendCent")*1000 then%>onClick="window.location='?action=spendadd';return false"<%else%>onClick="alert('剩余金额达到最低结算标准<%=RsSet("LowSpendCent")%>元才能结算!')"<%End If%>>
</div></td>
</tr>
</table>
<span class="style1">以下是你的结算记录</span>
<%
Sql = "Select * From WWW_QQCF_COM_CfWztg_Spend Where User_Name='"&User_Name&"' 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="D6DFF5">
<td width="50"><div align="center"><strong>序</strong><strong> 号</strong></a></div></td>
<td width="60"><div align="center"><strong>结算金额</strong></div></td>
<td width="100"><div align="center"><strong>结算说明</strong></div></td>
<td width="100"><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"><%=Rs("Spend_Cent")/1000%>元</div></td>
<td><div align="center"><%=Rs("SpendDesc")%></div></td>
<td><div align="center"><%=Rs("SpendTime")%></div></td>
<td><div align="center">
<%
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%></div></td>
<td><div align="center"><%=rs("AdminDesc")%></div></td>
<td><div align="center"><%=rs("AdminSpendTime")%></div></td>
</tr>
<%
MyPageSize = MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="30"><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="?">
<td valign="top">
<Select name="page" size="1" id="select" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%
For I = 1 To TotalPage
Response.Write "<option value="&filename&"?Action="& Action &"&AddDate="& AddDate &"&Px="& Px &"&Page="& I
If Page = I Then Response.Write " selected"
Response.Write ">转到第"& I &"页</option>"
Next
%>
</select>
</td>
</form>
</tr>
</table>
<%End If%>
<%If Action="spendadd" Then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<form name="form4" method="post" action="?action=spendsave">
<tr bgcolor="D6DFF5">
<td colspan="2"><div align="center"><strong>申请结算</strong> </div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">剩余金额:</div></td>
<td><%
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser Where User_Name='"&User_Name&"'"
Rs.Open Sql,Conn,1,1
Response.write Rs("Spare_Cent")/1000&"元"
%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="150"><div align="right">想要结算的数金额：</div></td>
<td>
<input name="Spend_Cent" type="text" id="qq" size="12" maxlength="12" >
元(精确到分，如100.56元</td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">结算说明:</div></td>
<td><input name="SpendDesc" type="text" id="SpendDesc"></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 + -