server.asp

本文通过分析国内外网上购物系统的发展现状

<%
if request.cookies("adminok")="" then
  response.redirect "shop_login.htm"
end if
%>
<!--#include file="conn.asp"-->
<link href="txt.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style2 {color: #FF0000}
-->
</style>
<title>产品订单列表</title>
<!--#include file="index_top.asp" -->
<table width="500"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="60">&nbsp;</td>
    <td width="440"><div align="right"><span class="unnamed1">    </span></div></td>
  </tr>
</table>
<table width="500"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="60">&nbsp;</td>
    <td width="440"><div align="right"><span class="unnamed1"> </span></div></td>
  </tr>
</table>
<table width="595" height="30"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#999999">
  <tr> 
    <td width="60"><div align="center" class="style1">订单号</div></td>
    <td width="212"><div align="center" class="style1">所需物品/数量</div></td>
    <td width="138"> 
      <div align="center" class="style1">最后更新时间</div></td>
    <td width="90"><div align="center"><font color="#FFFFFF">是否保留</font></div></td>
    <td width="95"><div align="center" class="style1 style1">处理状态</div></td>
  </tr>
</table>
<%
sql="select * from server order by id desc" 
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.Open sql,conn,3,1 
if not isempty(request("page")) then   
pagecount=cint(request("page"))   
else   
pagecount=1
end if
rs.pagesize=20
rs.AbsolutePage=pagecount
do while not rs.eof%>
<table width="599" height="30"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr class="unnamed1"> 
    <td width="61"><div align="center"><%=RS("id")%></div></td>
    <td width="215">&nbsp;&nbsp;
      <div align="center"><a href="list.asp?id=<%=RS("id")%>" target="_blank"><%=RS("mine")%> 
        /<%=RS("count")%></a></div>
    </td>
    <td width="137"><div align="center"><%=RS("datetime")%></div></td>
    <td width="94"><div align="center"><a href="del.asp?id=<%=RS("id")%>"><font color="#FF0000">删除</font></a><font color="#FF0000">&nbsp;</font></div></td>
    <td width="92"><div align="center">
        <%if rs("content")<>"" then%>
        <% Response.Write("已发货")%>
        <%else%>
        <a href="order.asp?id=<%=RS("id")%>">正在处理</a> 
        <%end if%>
      </div></td>
  </tr>
</table>
<table width="500"  border="0" align="center" cellpadding="0" cellspacing="0" background="images/bg1.gif">
  <tr>
    <td><img src="images/bg1.gif" width="3" height="1"></td>
  </tr>
</table>
<%
rs.movenext
i=i+1                                                                     
if i>=rs.pagesize then exit do 
loop
%>
<table width="500"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td width="60">&nbsp;</td>
    <td width="440"><div align="right"><span class="unnamed1">每页显示 <font color="#FF0000"><b><%=rs.pagesize%></b></font> 
        条订单 共有 <font color="#FF0000"><b><%=rs.recordcount%></b></font> 条订单 目前在第 
        <font color="#FF0000"><b><%=CINT(PAGE)%></b></font> 页 
        <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
        <a href="?page=<%=cstr(pagecount+1)%>">下一页</a> 
        <% end if %>
        <% if rs.pagecount>1 and rs.pagecount=pagecount then %>
        <a href="?page=<%=cstr(pagecount-1)%>">上一页</a> 
        <%end if%>
        <% if pagecount<>1 and rs.pagecount<>pagecount then%>
        <a href="?page=<%=cstr(pagecount-1)%>">上一页</a><a href="?page=<%=cstr(pagecount+1)%>">下一页</a> 
        <% end if
			  %>
        </span></div></td>
  </tr>
</table>