excel.asp

亿众购物系统 一套设计完善、高效的web商城解决方案

<%response.ContentType ="application/vnd.ms-word"%>
<!-- #include file="../../Config/conn.asp" --> 
<table width="500">
  <tr> 
    <td width="150" align="center">会员账号</td>
    <td width="250" align="center">注册日期</td>
    <td width="100" align="center">购物额</td>
  </tr>
  <%Set rs= conn.execute("Select * from Member where member<>'订阅商品快讯' Order By je Desc")
  do while not rs.eof%>
  <tr> 
    <td width="150" align="center"> 
      <%response.write ""&rs("Member")&""%> </td>
    <td width="250" align="center"> 
      <% =rs("Date")%> </td>
    <td width="100" align="center"> 
      <% =rs("Money")%> </td>
  </tr>
  <%rs.movenext
  loop%>
</table>