|
楼主 |
发表于 2004-4-11 11:28:31
|
显示全部楼层
详细错误提示如下。
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
/admin/findaccount.asp,行 39
此文件的内容如下:第三十八行和三十九行是
sql2 = "insert into count (sess,postdate,user,ip) values('" & sessionID & "','" & now() & "','"&userid&"','"&ip&"')"
conn.Execute (sql2)
<!--#include file=5035conn.asp-->
<!--#include file="md5.asp"-->
<%
dim sql
dim rs
dim name
dim companyid
dim pwd
dim errmsg
dim founderr
founderr=false
FoundUser=false
name=replace(trim(request("name")),"'","")
pwd=replace(trim(Request("pwd")),"'","")
sessionID = session.SessionID
timeout = 5
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR" )
If userip = "" Then
ip = Request.ServerVariables("REMOTE_ADDR" )
end if
if trim(request("validateCode"))<>trim(session("verifycode")) then
response.write"<script>alert('验证码错误!');history.back();</Script>"
Response.End
end if
if request("username")<>"" and request("password")="" then
userid="非法登陆|"&request("username")&""
elseif request("username")<>"" and request("password")<>"" then
userid="尝试登陆|"&request("username")&""
elseif request("username")="" and request("password")<>"" then
userid="非法登陆"
else
userid="非法登陆"
end if
sql2 = "insert into count (sess,postdate,user,ip) values('" & sessionID & "','" & now() & "','"&userid&"','"&ip&"')"
conn.Execute (sql2)
set rs=server.createobject("adodb.recordset")
sql="select * from admin where name='"&name&"' and pwd='"&md5(pwd)&"' "
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
Session("admin")=request("name")
if rs("flag")=0 then
response.write "无法登录"
response.end
else
session("flag")=rs("flag")
end if
response.redirect "main.asp"
else
response.write "<link rel='stylesheet' type='text/css' href='css/style.css'>"
response.write "<body bgcolor='#ffffff'>"
response.write "您输入名字和密码不对,请输入正确的名字和密码,方可进入管理页面"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%> |
|