28,406
社区成员
发帖
与我相关
我的任务
分享http://127.0.0.1/ff/ff.asp显示空白，进入死循环？
<%@ language=VBScript %>
<%
Option Explicit
Response.Expires=0
Dim con, Strcon
Set con=Server.CreateObject("ADODB.Connection")
Strcon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("aa.mdb")
con.Open Strcon
Dim StrSQL, rs
StrSQL="Select * from address_list"
Set rs=con.Execute(StrSQL)
%>
<html>
<body>
<%
Do While Not rs.EOF
Response.Write rs("姓名")&" "&rs("性别")&" "&rs("年龄")&" "&"<br>"
rs.MoveNext
Loop
con.close
Set rs=Nothing: Set con=Nothing
%>
</body>
</html>
这段代码是不是进入死循环了？
如何修改？
<%
Option Explicit
Response.Expires=0
Dim con, Strcon
Set con=Server.CreateObject("ADODB.Connection")
Strcon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("aa.mdb")
con.Open Strcon
Dim StrSQL, rs
StrSQL="Select * from address_list"
Set rs=con.Execute(StrSQL)
%>
<html>
<body>
<%
Do While Not rs.EOF
Response.Write rs("姓名")&" "&rs("性别")&" "&rs("年龄")&" "&"<br>"
rs.MoveNext
Loop
con.close
Set rs=Nothing: Set con=Nothing
%>
</body>
</html>
这段代码是不是进入死循环了？
如何修改？
...全文
请发表友善的回复…
发表回复
richwong 2005-06-14
- 打赏
- 举报
同意楼上说法
jackycxg 2005-06-14
- 打赏
- 举报
打开记录集的时候加个判断啦
你这应该没有死循环的呀
没有错误提示吗？
con.close
Set rs=Nothing: Set con=Nothing
这里先关了con.close的话，就不能再set rs=nothing了吧
他们的位置是这样
rs.close
set rs=nothing
con.close
set con=nothing
你这应该没有死循环的呀
没有错误提示吗？
con.close
Set rs=Nothing: Set con=Nothing
这里先关了con.close的话，就不能再set rs=nothing了吧
他们的位置是这样
rs.close
set rs=nothing
con.close
set con=nothing
pgyssg 2005-06-14
- 打赏
- 举报
不会，不关那个
lzfxpuugv 2005-06-14
- 打赏
- 举报
没有死循环，你确认你数据库中有数据吗？显示页是空白还是无法显示
Set rs=con.Execute(StrSQL)这条语句后最好加上
if rs.bof and rs.eof then
response.write "没有任何记录"
response.end
end if
Set rs=con.Execute(StrSQL)这条语句后最好加上
if rs.bof and rs.eof then
response.write "没有任何记录"
response.end
end if
AitStudio 2005-06-14
- 打赏
- 举报
Loop
con.close
Set rs=Nothing: Set con=Nothing
%>
改成：
Loop
rs.close
Set rs=Nothing
con.close
Set con=Nothing
%>
con.close
Set rs=Nothing: Set con=Nothing
%>
改成：
Loop
rs.close
Set rs=Nothing
con.close
Set con=Nothing
%>
popcom 2005-06-14
- 打赏
- 举报
Response.Write rs("姓名")&" "&rs("性别")&" "&rs("年龄")&" "&"<br>"
这句好象没有写对，应该这样
response.write ""&rs("姓名")&" "&rs("性别")&""&rs("年龄")&" "
这句好象没有写对，应该这样
response.write ""&rs("姓名")&" "&rs("性别")&""&rs("年龄")&" "
