Microsoft JET Database Engine error '80040e14' 问题急!!!!!!!!!!!!!

2008-11-22 05:40:58 263 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Windows 10/11多用户权限影响Multisim数据库访问图解说明 Windows 10/11系统中，不同用户账户对Multisim安装目录及数据库路径的访问权限不一致，极易导致‘multisim找不到主数据库’问题。尤其当软件以管理员身份安装、却以普通用户运行时，注册表路径与数据库文件读取权限错配，引发加载失败。图解清晰揭示权限断点与修复路径。阅读详情

代码如下：

<%
dim ComeUrl,cUrl,AdminName

ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
response.write " 对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。"
response.end
else
cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
if mid(ComeUrl,len(cUrl)+1,1)=":" then
cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
end if
cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
end if

AdminName=replace(session("AdminName"),"'","")
if AdminName="" then
call CloseConn()
response.redirect "login.asp"
response.End()
end if
sql="select UserName from Admin where UserName='" & session("AdminName") & "' and Password='" & session("AdminPassword") & "'"
set rs=conn.execute(sql)　　　　　　　　这就是报错的３１行
if rs.eof and rs.bof then
rs.close
response.Redirect("login.asp")
response.End()
end if
Function uname(id)
strSQL = "select username from user where UserID="&id
set rsx = conn.execute(strSQL)
uname=rsx("username")
set rsx = nothing
end Function
Function ckbuy(id)
if id=1 then
ckbuy="客户出售"
else
ckbuy="客户购买"
end if
end Function
%>
原本什么问题也没有，可换了服务器以后就报错说
Microsoft JET Database Engine error '80040e14'

Syntax error in FROM clause.

/admin/admin.asp, line 31 我该怎么解决啊

...全文