allpass.asp
来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 112 行
ASP
112 行
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
%>
<%
if session("admin_rank")<>1 and session("admin_rank")<>3 then
response.write("<script>alert('您无权查看本页，SORRY！');window.location=('login.asp')</script>")
response.end
end if
%>
<script>
function openbag(id) { window.open("submore.asp?sub_id="+id,"","height=400,width=600,left=190,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");}
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Refresh" content="100; url=allpass.asp">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body style="background-color: #F0FBF1">
<form method="POST" action="searchsub.asp?soutype=3">
<div align="center">
<table border="0" width="778" cellspacing="1" bordercolorlight="#2F94F9" bordercolordark="#FFFFFF">
<tr>
<td> 输入邮箱：
<input type="text" name="keywords" size="12" class=ipt> <input type="submit" value="查看订单" name="B4" class=input> </td>
</tr>
</table>
</div>
</form>
<form method="POST" action="searchsub.asp?soutype=2">
<div align="center">
<table border="0" width="778" cellspacing="1" bordercolorlight="#2F94F9" bordercolordark="#FFFFFF">
<tr>
<td> 输入订单号：
<input type="text" name="keywords" size="12" class=ipt> <input type="submit" value="查看订单" name="B4" class=input> </td>
</tr>
</table>
</div>
</form>
<%
set rsq=conn.execute("select sum(sub_totalcash) from sub where sub_cz='0' and sub_payok=true ")
tomoney=rsq(0)
if tomoney&"1"="1" then tomoney=0
sql="select * from sub where sub_cz='0' and sub_payok=true and sub_check=false order by sub_id DESC"
rs.open sql,conn,3,3
if rs.eof then
response.write "暂且没有任何订单"
response.end
end if
%>
<bgsound src="ring.wav" loop="3">
<%
rs.pagesize=15
page = cint(request("page"))
if page = "" then page = 1
if not(isnumeric(page)) then page=1
if page<1 then page=1
if page >= rs.pagecount then page = rs.pagecount
rs.absolutepage = page
%>
<div align="center">
<table border="1" width="778" cellspacing="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" height="165" cellpadding="0">
<tr>
<td width="77" style="padding: 5px" height="30">订单号</td>
<td width="80" style="padding: 5px" height="30">收货人姓名</td>
<td width="125" style="padding: 5px" height="30">订购商品</td>
<td width="83" style="padding: 5px" height="30">支付方式</td>
<td width="63" style="padding: 5px" height="30">联系QQ</td>
<td width="66" style="padding: 5px" height="30">订购数量</td>
<td width="89" style="padding: 5px" height="30">卡发完否</td>
<td width="99" style="padding: 5px" height="30">下单日期</td>
</tr>
<%
for i=1 to rs.pagesize
%>
<tr>
<td width="77" style="padding: 5px" height="30"><a href='submore.asp?sub_id=<%=rs("sub_id")%>'><font color="#FF0000"><%=rs("sub_number")%> </font></a></td>
<td width="80" style="padding: 5px" height="30"><font color="#FF0000"><%=rs("sub_to")%> </font></td>
<td width="125" style="padding: 5px" height="30"><%=rs("hw_name")%> </td>
<td width="83" style="padding: 5px" height="30"><font color="#FF0000"><%if rs("sub_adds")="1" then%>网上支付<%end if%><%if rs("sub_adds")="0" then%>帐户支付<%end if%> </font></td>
<td width="63" style="padding: 5px" height="30"><%=rs("sub_qq")%> </td>
<td width="66" style="padding: 5px" height="30"><%if rs("sub_cz")="1" then%>充值商品<%end if%><%=rs("hw_count")%>张 </td>
<td width="89" style="padding: 5px" height="30"><%if not rs("sub_payok") then %>未付款
<%elseif rs("sub_cz")=1 then %>已付款待处理
<%elseif rs("sub_yuka")="0" then%>卡全发<%else%>还有<%=rs("sub_yuka")%>卡没发<%end if%> </td>
<td width="99" style="padding: 5px" height="30"><font color="#FF0000"><%=rs("sub_date")%> </font></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
<tr>
<td width="100%" colspan="8" style="padding: 5px" height="30">
<p align="center">共有记录<%=rs.recordcount%>条
<%=page%>/<%=rs.pagecount%> <A href="<%request.servervariables("document_name")%>?page=<%=page-1%>">上一页</A> <A href="<%request.servervariables("document_name")%>?page=<%=page+1%>">下一页</A> 转到第 <SELECT onchange="window.location='?page='+this.value" name=gopage>
<%for x=1 to rs.pagecount%>
<OPTION <%if x=page then%>selected<%end if%> value=<%=x%>><%=x%></OPTION>
<%next%>
</SELECT> 页
</div>
<%rs.close%>
</td>
</tr>
</table>
</div>
<p align="left"><font color="#FF6600"><b>已付款游戏实卡订单总金额：</b><%=tomoney%></font></p>
<%
set rs=nothing
conn.close
set conn=nothing%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?