'连接数据库
database="vote.mdb"
strconn="provider=Microsoft.jet.oledb.4.0;data source="&server.mappath(database)
Set conn=server.CreateObject("ADODB.Connection")
conn.open strconn
'关闭数据库
Sub closeDB()
If IsObject(conn) Then
Set rs=Nothing
conn.close
Set conn=Nothing
End If
End sub
%>
用户管理用户列表
用户帐号 | 用户密码 | 用户简介 | 操作 |
set rs=server.createobject("adodb.recordset")
rs.open "select * from user order by userID",conn,1,3
rCount=rs.recordcount
do while not rs.eof
%>
οnclick="return newwin(this.href)">修改 |
if rs("username")<> "admin" then
%>
οnclick="return newwin(this.href)">删除
rs.movenext
loop '结束循环
if rCount=0 then
response.write("当前没有用户数据")
else
response.write("当前共有"&trim(rCount)&"条用户记录")
end if
closeDB()
%>
哪里错了啊??不懂,,懂得的人请帮帮我,非常感谢
错误类型:
ADODB.Recordset (0x800A0CC1)
在对应所需名称或序数的集合中,未找到项目。
/a/userList.asp, 第 53 行
是什么意思
展开