之前两天用着没有问题怎么出问题了呢

错误类型：
Provider (0x80004005)
未指定的错误
/Cklogin.asp, 第 66 行

程序代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>登陆验证</title>
</head>

<body>
<%
dim LoginName,LoginPassword,AdminName,Password,AdminPurview,Working,UserName,rs,sql,explain,id
LoginName=trim(request.form("LoginName"))
LoginPassword=trim(request.form("LoginPassword"))

set rs = server.createobject("adodb.recordset")
set conn=server.createobject("adodb.connection")'
conn.open "DBQ=" & server.mappath("/Data/ds.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

sql="select * from manage where AdminName='"&LoginName&"'"
rs.open sql,conn,1,3

if rs.eof then
   response.write "<script language=javascript> alert('管理员名称不正确，请重新输入。');location.replace('admin_login.asp');</script>"
   response.end
else
   AdminName=rs("AdminName")
   Password=rs("Password")
   AdminPurview=rs("AdminPurview")
   Working=rs("Working")
   UserName=rs("UserName")
   explain=rs("explain")
   id=rs("id")
end if

if LoginPassword<>Password then
   response.write "<script language=javascript> alert('管理员密码不正确，请重新输入。');location.replace('admin_login.asp');</script>"
   response.end
end if

if Working=0 then
   response.write "<script language=javascript> alert('不能登录，此帐号未通审核。');location.replace('admin_login.asp');</script>"
   response.end
end if

if LoginName=AdminName and LoginPassword=Password then
   rs("LastLoginTime")=now()
   rs("LastLoginIP")=Request.ServerVariables("Remote_Addr")
   rs.update
   rs.close
   set rs=nothing
   session("zhnuo_Admin")=AdminName
   session("MM_Username")=UserName
   session("explain")=explain
   session("id")=id
   Session("zhnuo_Ck")="zhnuoAdmin"
   Session.Timeout = 60
   session("AdminPurview")=AdminPurview
   Response.Cookies("zhnuoAdmin")=""
   '==================================
   dim LoginIP,LoginTime,LoginSoft
   LoginIP=Request.ServerVariables("Remote_Addr")
   LoginSoft=Request.ServerVariables("Http_USER_AGENT")
   LoginTime=now()
   '====================================
set conn=server.createobject("adodb.connection")'
conn.open "DBQ=" & server.mappath("/Data/ds.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set rs = server.createobject("adodb.recordset")
   sql="select * from manageLog"
   rs.open sql,conn,1,3
   rs.addnew
   rs("AdminName")=AdminName
   rs("UserName")=UserName
   rs("LoginIP")=LoginIP

   rs("LoginTime")=LoginTime
   rs.update
   rs.close
   set rs=nothing
   '========================================
   response.redirect "index.asp"
   response.end
end if
%>

</body>
</html>

IIS配置

只有本站会员才能查看附件，请登录

之前两天用着没有问题 怎么出问题了呢