<%
dim orderNum,rs,sql,k
orderNum=request.form("orderNum")
if orderNum<>"" then
response.write "
订单 "&orderNum&" 追踪结果：
"
set rs=server.CreateObject("Adodb.recordset")
sql="select * from OrderTrace where OrderCode ='"&orderNum&"' order by TraceId desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
if k=0 then
response.write ""
response.write formatdatetime(rs("OrderupdateTime"),2)&" "&formatdatetime(rs("OrderupdateTime"),4)&"
"
response.write rs("OrderTraceInfo")&"
"
else
response.write formatdatetime(rs("OrderupdateTime"),2)&" "&formatdatetime(rs("OrderupdateTime"),4)&"
"
response.write rs("OrderTraceInfo")&"
"
end if
k=k+1
rs.movenext
if rs.eof then exit do
loop
Else
response.write "经系统查询，无此订单，请核对！"
End if
rs.close
set rs=nothing
response.write ""
End if
%>