至少一个参数没有被指定值。

[jinxiao5856]

Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

/fun.asp，行 1113
下面是FUN.ASP 1113附近的代码
function openrs(tempsql)
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection =connstr
Rs.Source =tempSQL
Rs.CursorType = 0
Rs.CursorLocation = 3
Rs.LockType =2
Rs.Open()
openrs=Rs.recordcount
end function


调用这个过程的页面

Private.asp

<!--#include file="Head.asp" -->
<!--#include file="htmlhead.asp"-->
<div>
<center>
<!--#include file="topback.asp" -->
<script>var preaddr="<%=preaddr%>";waiting();</script>
<%
url="#"
if loginid<>"" then
response.Write(loginid)
x=openRs("select * from 系统帐号 where 帐号编号=" & loginid) 主要是这行出错
if rsinfo.eof=false then
if Rsinfo("类型")="管理员" then
loginlevel="管理员"
response.Cookies("loginlevel")=loginlevel
levelkey=md5(loginlevel & safekey)
response.Cookies("levelkey")=levelkey
%>

<!--#include file="backuser.asp" -->
<%
end if

end if
end if
%>
</center>
</div>
</body>
</html>

[qq43695548]

看看数据库 帐号编号 这个字段是不是数字吧

[jinxiao5856]

应该不是SQL的问题吧 我测试了下这个x=openRs("select * from 系统帐号“)

还是不行

[孟子E章]

字段名字改成字母的试试

[hookee]

connstr 指定了吗

[jinxiao5856]

Set connobj = Server.CreateObject("ADODB.Connection")
connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(preaddr & Site & ".mdb") & ";Jet OLEDB:Database Password=''"
connobj.Open connstr

[jinxiao5856]

一但修改sql 换成其他的表就提示

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/Private.asp, 第 12 行

[孟子E章]

Private.asp, 第 12 行
是啥》

[jinxiao5856]

是这个
x=openRs("select * from 系统帐号 where 帐号编号=" & loginid)

[jinxiao5856]

我把sql x=openRs("select * from 系统帐号 where 帐号编号=" & loginid)

改成x=openRs("select * from 新闻”) 然后就出现了
缺少对象: ''

[jinxiao5856]

没人了吗 实行不行可以加我下QQ我把源码发去 看看什么情况

[lbcleo]

不是告诉你把汉字部分换成字母看看了么,也没换啊