<%if session("username")<>"" then%> <% set rs=server.createobject("adodb.recordset") exec="select * from [orders] where userid="&session("username")&" order by id desc " rs.open exec,conn,1,1 if rs.eof then response.Write " 暂无订单！" else rs.PageSize =15 '每页记录条数 iCount=rs.RecordCount '记录总数 iPageSize=rs.PageSize maxpage=rs.PageCount page=b 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 %> <%For i=1 To x%>

订单编号：-1.html"><%=rs("OrderNo")%>

时间：<%=rs("data")%>

订单状态：<% if rs("state")=1 then response.write("未处理") else response.write("已处理") end if %>

<%rs.movenext next end if %> <%'以下显示分页 call PageControl(iCount,maxpage,page,"border=0 align=center","

") rs.close set rs=nothing %> <% else response.write ("

") response.write("已注册会员请点此登陆！") response.write("还没有帐号？点击此处进行注册！") end if %>