<!--#include file="conn.asp"-->
<html>
<head>
<title>系统用户管理</title>
<script language="vbscript">
function newwin(url)
newwin=windows.open(url,"newwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=400,height=380")
newwin.focus()
return false
End function
</script>
</head>
<body link=#000080 vlink="#008080">
<h3></h3>
<h2 align="center">用户列表</h2>
<table width="90%" align="center" cellpadding="1" cellspacing="2" border="1" bordercolor="#808080" bordercolordark="#ffffff" bordercolorlight="#e1f5ff" bgcolor="#3399FF">
<tr>
<td align="center" width="16%" bgcolor="#e1f5ff"><b>用户名</b></td>
<td align="center" width="15%" bgcolor="#e1f5ff"><b>用户姓名</b></td>
<td align="center" width="30%" bgcolor="#e1f5ff"><b>电子邮箱</b></td>
<td align="center" width="39%" bgcolor="#e1f5ff"><b>操作</b></td>
</tr>
<%
dim rcount
dim rs
set rs=server.CreateObject("adodb.recordest")
rs.open"select*from users order by id",conn,1,3
rcount=rs.recordcount
do while not rs.eof
%>
<tr>
<td width="12%" align="center" height="25"><%=rs("user")%></td>
<td width="12%" align="center" height="25"><%=rs("Ename")%></td>
<td width="30%" align="center" height="25"><%=rs("Email")%></td>
<td align="center">
<a href=UserEdit.asp?userid=<%=rs("id")%>onclick="return newwin(this.href)">修改</a>
<% if rs("user")<>"admin"then %>
<a href=UserDel.asp?userid=<%=rs("id")%>onclick="return newwin(this.href)">删除</a></td>
<%
end if
%>
</tr>
<%
rs.MoveNext
Loop
if rcount=0 Then
Response.Write("<tr align=center><td colspan=6>
<font color=red>目前没有用户记录</font></td></tr>")
else
Response.Write("<tr align=center><td colspan=6>
<font color=red>当前共有"&Trim(rcount)&"条用户记录</font></td></tr>")
End if
rs.close
%>
</table>
<br>
<p align="center"><a href="UserAdd.asp">添加用户信息</a></p>
</body>
</html>
<%
conn.close
conn=nothing
%>
參考答案:set rs=server.CreateObject("adodb.recordest") //recordset
rs.open"select*from users order by id",conn,1,3 //open和"select"中间加空格
先把书写问题弄明白吧=。=
