📄 goodsreasch.asp

📁 购物系统时尚版.强大的后台文章编辑器的功能
💻 ASP
字号:
<%
dim toppath,dbpath,key
key="a6"
toppath=""
dbpath=""
%>
<!--#include file="db_conn.asp" -->
<!--#include file="my_lib/pages.asp" -->
<!--#include file="my_lib/my_request.asp" -->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/main.css" rel="stylesheet" type="text/css">
<title>发货查询</title>
</head>

<body topmargin="1">
<!--#include file="top.asp" -->
<div align="center">
	<table border="0" width="760" id="table1" cellspacing="0" cellpadding="0">
		<tr>
			<td height="25">当前位置：<a href="index.asp">首页</a>&gt;&gt;&gt;发货查询</td>
		</tr>
	</table>
	</div>
<div align="center">
<table border="0" width="760" style="border: 1px solid #DFDFDF; padding: 1px; border-collapse:collapse" cellpadding="4">
<form action=goodsreasch.asp method=post>
	<tr>
		<td colspan="4" align=center bgcolor="#DFDFDF">
		<p align="left"><font color="#FF0000">说明：此显示的和查询，仅仅限于非会员，如果您是会员请登录查询，谢谢。</font></td>
	</tr>
	<tr>
		<td colspan="4" align=center>订单编号：<input type="text" name="orno" size="16" maxlength="50"> 
		收款人姓名：<input type="text" name="realname" size="14" maxlength="50"><input type=hidden name=action value=r><input type="submit" value="查询订单" name="B1"></td>
	</tr></form>
	<tr>
		<td width="52" height="20" bgcolor="#DFDFDF">序号</td>
		<td width="292" height="20" bgcolor="#DFDFDF">订单编号</td>
		<td width="248" height="20" bgcolor="#DFDFDF">下单时间</td>
		<td width="155" height="20" bgcolor="#DFDFDF">订单状态</td>
	</tr>
	<%
action=my_request("action",0)
if action="r" then
orno=my_request("orno",0)
realname=my_request("realname",0)
sql="select ddbh,addtime,zt from buyer where ishy=1 and ddbh='"&orno&"' and yqj_realname='"&realname&"' order by addtime desc"
else
sql="select ddbh,addtime,zt from buyer where ishy=1 order by addtime desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then 
response.write "<tr><td colspan=4><font color=#FF0000>对不起，没有要找的数据</font></td></tr>"
response.write "<tr>"
    else
	rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
i=1
while not rs.eof and i<=rs.pagesize
set ddbh=rs(0)
set addtime=rs(1)
set zt=rs(2)
	%>
	<tr>
		<td width="52" style="line-height: 150%"><%=(page-1)*19+i%></td>
		<td width="292"><%=ddbh%></td>
		<td width="248"><%=addtime%></td>
		<td width="155"><%if zt="已经发货" then response.write "<font color=#FF0000>"&zt&"</font>" else response.write "<font color=#0000FF>"&zt&"</font>"%></td>
	</tr>
	<%
	rs.movenext
i=i+1
wend
%>
	<tr>
		<td colspan="4"><%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")%></td>
	</tr>
</table>
<%rs.close
set rs=nothing
%>
</div>
<!--#include file="end.asp" -->
</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -