config_mylist.asp

鄂尔多斯建站网全站程序(冬季修正版)

<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%sub early_list
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from sub where d_webname='"&session("d_webname")&"' order by sub_id desc"
rs.open sql,conn,3,3
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">
  <tr>
    <td width="17%" bgcolor="#626262" height="20" align="center"><font color="#FFFFFF">订单编号</font></td>
    <td width="36%" bgcolor="#626262" height="20" align="center"><font color="#FFFFFF">最新订单号</font></td>
    <td width="16%" bgcolor="#626262" height="20" align="center"><font color="#FFFFFF">订单状况</font></td>
    <td width="31%" bgcolor="#626262" height="20" align="center"><font color="#FFFFFF">订购时间</font></td>
  </tr>
<%if rs.eof then%> 
  <tr>
    <td width="103%" bgcolor="#FFFFFF" colspan="4" height="20">
      <p align="center">未有任何订单</td>
  </tr>
<%else%>
  <tr>
    <td width="17%" bgcolor="#FFFFFF" height="25" align="center"><%=rs("sub_id")%></td>
    <td width="36%" bgcolor="#FFFFFF" height="25" align="center"><a href="mybasket.asp?sub_number=<%=rs("sub_number")%>"><%=rs("sub_number")%></a></td>
    <td width="16%" bgcolor="#FFFFFF" height="25" align="center"><%if rs("sub_check")=false then response.write("<font color=#FF0000>未确认</font>") else response.write("已确认") end if%></td>
    <td width="31%" bgcolor="#FFFFFF" height="25" align="center"><%=rs("sub_time")%></td>
  </tr>
<%end if%>  
</table>
<%                                                                                            
rs.close                                                                                             
set rs=nothing                                                                          
end sub

sub more_list
set rs=server.createobject("adodb.recordset")
sql="select * from sub where d_webname='"&session("d_webname")&"' order by sub_id desc"
rs.open sql,conn,3,3
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">
  <tr>
    <td width="17%" bgcolor="#626262" height="20" align="center"><font color="#FFFFFF">订单编号</font></td>
    <td width="36%" bgcolor="#626262" height="20" align="center"><font color="#FFFFFF">历史订单号</font></td>
    <td width="16%" bgcolor="#626262" height="20" align="center"><font color="#FFFFFF">订单状况</font></td>
    <td width="31%" bgcolor="#626262" height="20" align="center"><font color="#FFFFFF">订购时间</font></td>
  </tr>
<%if rs.eof then%> 
  <tr>
    <td width="103%" bgcolor="#FFFFFF" colspan="4" height="20">
      <p align="center">未有任何订单</td>
  </tr>
<%else
pgsize=20
page=request.querystring("page")
rs.pagesize=pgsize
pgnm=rs.pagecount
if page=""or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page
count=0
do while not rs.eof and count<rs.pagesize
%><tr>
    <td width="17%" bgcolor="#FFFFFF" height="25" align="center"><%=rs("sub_id")%></td>
    <td width="36%" bgcolor="#FFFFFF" height="25" align="center"><a href="mybasket.asp?sub_number=<%=rs("sub_number")%>"><%=rs("sub_number")%></a></td>
    <td width="16%" bgcolor="#FFFFFF" height="25" align="center"><%if rs("sub_check")=false then response.write("<font color=#FF0000>未确认</font>") else response.write("已确认") end if%></td>
    <td width="31%" bgcolor="#FFFFFF" height="25" align="center"><%=rs("sub_time")%></td>
  </tr>
<%
count=count+1
rs.movenext
loop                                                                                            
end if
%>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%">　</td>
  </tr>
  <tr>
    <td width="100%">
      <table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#626262">
        <tr>
          <td width="100%" height="20">
            <font color="#FFFFFF"><p align="center">
<a class="white" href=mylist.asp?page=<%=page-1%>>上一页</a>&nbsp;┊&nbsp;<a class="white" href=mylist.asp?page=<%=page+1%>>下一页</a></p></font>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%rs.close                                                                                             
set rs=nothing                                                                          
end sub
%>
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>