列出用户资料代码

<BODY LINK="#0000FF" VLINK="#800080" BACKGROUND="sd.jpg">
<!--#include file="ASPb_t.asp"-->
<p align="center">

<%
'4.打开用户资料表
rs.open"select * from 用户资料表1 order by 用户号 DESC",cn,3
%>

<p align="center"><b><font size="6" color="#800000" face="隶书">用户管理</font></b></p>
<div align="center">
<center>
<table border="1" bordercolor="#008000" cellpadding="5" bgcolor="#00FF00" cellspacing="0">
<tr>
<td align="center"><font color="#FF00FF">用户号</font></td>
<td align="center"><font color="#FF00FF">用户账号</font></td>
<td align="center"><font color="#FF00FF">登录密码</font></td>
<td align="center"><font color="#FF00FF">用户姓名</font></td>
<td align="center"><font color="#FF00FF">联系电话</font></td>
<td align="center"><font color="#FF00FF">电子邮件</font></td>
<td align="center"><font color="#FF00FF">主页地址</font></td>
<th ><div align="center"><font color="#FF00FF">操作</font></div></th>
</tr>

<%
'5.循环输出记录
do while not rs.eof
%>

<tr>
<td valign="top" align="center"><p align="center"><% =rs("用户号")%></td>
<td valign="top" align="center"><p align="center">
<% =rs("UserID")%>
</td>
<td valign="top" align="center"><p align="center"><% =rs("登录密码")%></td>
<td valign="top" align="center"><p align="center">
<% =rs("用户姓名")%>
</td>
<td valign="top" align="center"><p align="center"><% =rs("联系电话")%></td>
<td valign="top" align="center"><p align="center"><% =rs("电子邮件")%></td>
<td valign="top" align="center"><p align="center">
<% =rs("主页地址")%>
</td>
<td><div align="center"><u><font color="#0000FF">删除</font></u></div></td>
</tr>

<%
'6.移到下一记录
if not rs.eof then rs.movenext
loop
%>

</table>
</center>
</div>

<%
'7.关闭 Recordset 对象
rs.close

'关闭连接，并释放 Recordset 对象
cn.close
set rs=nothing
%>