excel.asp

来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 21 行

<%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>