代码错误，想把数据库中的一列赋值给数组，并输出来。 - ASP技术论坛

Kettyjin1983

等　级：新手上路
帖　子：303
专家分：0
注　册：2007-8-17
结帖率：66.67%

楼主

问题点数：0 回复次数：8

代码错误，想把数据库中的一列赋值给数组，并输出来。

<%@ LANGUAGE=VBSCRIPT%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>THANKS FOR YOUR SUPPORT</title>
</head>

<%
dim myconn
set myconn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

constr="provider=microsoft.jet.oledb.4.0;Data Source=" & server.MapPath("user.mdb")
myconn.open=constr
Set rs=myconn.Execute("select ID from user")
id = rs("ID")

if not rs.eof then
dim num(28)
i =0
num(i)=id
response.Write num(i)&"<br>"

i=i+1
movenext

end if
rs.close
set rs=nothing
Myconn.close
set myconn=nothing
%>

</body>

</html>

Microsoft JET Database Engine 错误 '80040e14'

FROM 子句语法错误。

/survey/random/aabb.asp，行23

搜索更多相关主题的帖子: 赋值　数据库　代码　

2007-11-20 13:53

Kettyjin1983

等　级：新手上路
帖　子：303
专家分：0
注　册：2007-8-17

第 3 楼

得分:0

<%@ LANGUAGE=VBSCRIPT%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>THANKS FOR YOUR SUPPORT</title>

</head>
<body bgcolor="#CCFFFF">
<%
dim myconn
set myconn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

constr="provider=microsoft.jet.oledb.4.0;Data Source=" & server.MapPath("user.mdb")
myconn.open constr
Set rs=myconn.Execute("select ID from login")
if not rs.eof then
dim num(28)
i =0
for i=0 to 28
num(i)=rs("id")
response.Write num(i)&"<br>"
rs.movenext
i=i+1
next

end if
rs.close
set rs=nothing
Myconn.close
set myconn=nothing
%>

</body>

</html>
页面怎么只显示了0－14，后面的就没有了，奇怪了，本来应该是0－28啊？

2007-11-20 15:41

Kettyjin1983

等　级：新手上路
帖　子：303
专家分：0
注　册：2007-8-17

第 5 楼

得分:0

行了，强烈要求斑竹解释一下原因，为什么我写的只显示一半啊，

2007-11-20 16:25

Kettyjin1983

等　级：新手上路
帖　子：303
专家分：0
注　册：2007-8-17

第 7 楼

得分:0

<%@ LANGUAGE=VBSCRIPT%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>THANKS FOR YOUR SUPPORT</title>
</head>
<body bgcolor="#CCFFFF">

<%
dim myconn
set myconn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

constr="provider=microsoft.jet.oledb.4.0;Data Source=" & server.MapPath("user.mdb")
myconn.open constr
rs.Open "select ID from login",myconn,1,1'更改打开记录集的方式获得记录总数
if not rs.eof then
totoaliq = rs.RecordCount
Dim num()'动态数组
Dim i
ReDim num(totoaliq)'初始化动态数组确定数组元素的个数，rs.RecordCount返回当前记录集有多少条记录。
i=0
Do Until rs.EOF
num(i)=rs("id")

i=i+1
rs.movenext
Loop
end if
rs.close
randomize
for i=0 to totoaliq-1
c=Round(rnd*totoaliq)
if i >0 then
for k=0 to i-1
while num(i)=c'碰到随即产生的值，那么重新再产生一次，至到该值与前面的随即值不同为止。
c=Round(rnd*totoaliq)
i=i+1
wend

next
end if
num(i) = c
rs.open "select * from login where id ="&num(i)
if not rs.eof then
response.write ("name is:"&rs("EngName")&"<br>")
end if
rs.close
next
set rs=nothing
myconn.close
set myconn=nothing
%>
</body>
</html>
随机产生随机值，显示的结果仍然有相同的名字取出。

2007-11-21 11:34

Kettyjin1983

等　级：新手上路
帖　子：303
专家分：0
注　册：2007-8-17

第 9 楼

得分:0

是的啊，随即读取。

2007-11-21 16:29