searchsub.asp
来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 114 行
ASP
114 行
<!--#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=subpass.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>
<%
keywords=trim(request("keywords"))
soutype=int(trim(request("soutype")))
select case soutype
case 0
sql="select * from sub order by sub_id DESC"
case 1
sql="select * from sub where hw_name like '%"&keywords&"%' order by sub_id DESC"
case 2
sql="select * from sub where sub_number like '%"&keywords&"%' order by sub_id DESC"
case 3
sql="select * from sub where sub_mail like '%"&keywords&"%' order by sub_id DESC"
end select
rs.open sql,conn,3,3
if rs.eof then
response.write "暂且没有任何订单"
response.end
end if
rs.pagesize=15
page = cint(request("page"))
if 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">E-mail</td>
<td width="63" style="padding: 5px" height="30">QQ</td>
<td width="87" style="padding: 5px" height="30">订购数量</td>
<td width="85" style="padding: 5px" height="30">卡发完否</td>
<td width="86" 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"><%=rs("sub_mail")%> </font></td>
<td width="63" style="padding: 5px" height="30"><%=rs("sub_qq")%> </td>
<td width="87" style="padding: 5px" height="30"><%if rs("sub_cz")="1" then%>充值商品<%end if%><%=rs("hw_count")%>张 </td>
<td width="85" 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="86" 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%>&soutype=<%=soutype%>&keywords=<%=keywords%>">上一页</A> <A href="<%request.servervariables("document_name")%>?page=<%=page+1%>&soutype=<%=soutype%>&keywords=<%=keywords%>">下一页</A> 转到第 <SELECT onchange="window.location='?soutype=<%=soutype%>&keywords=<%=keywords%>&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>
<%
set rs=nothing
conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?