Question

asp 死循环 速求解

set objfso = CreateObject("Scripting.FileSystemObject")
root = Server.MapPath(seoDir)
str = "<?xml version=""1.0"" encoding=""utf-8"" ?>"
str = str &"<Info>"
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from map"
rs.Open sql, conn, 1, 1
do while not rs.eof
str = str&("<Part id=""part1"">")
str = str&("<text><![CDATA["&rs("Map_Name")&"]]></text>")
str = str&("<text><![CDATA[")
Set rs1 = server.CreateObject("adodb.recordset")
sql = "select * from map_content where catid='"&rs("mapid")&"'"
rs1.open sql,conn,1,1
do while not rs1.eof
str = str&("<a href='http://daily.travel.163.com/sight/site.jsp?id=7536' target=""_blank"">["&rs1("Name")&"]</a>")
rs1.movenext
loop
str = str&("<a href='http://daily.travel.163.com/sight/province.jsp?id=37' target=""_blank"">>> 更多景点</a>]]></text></Part>")
rs.movenext
loop
str = str &"</<Info>>"

set fso = nothing

Answer 1

没有死循环, 你第一行是set objfso = CreateObject("Scripting.FileSystemObject")
最后一行是set fso = nothing
没有fso这个变量.
而且循环记录集不要用do while, 因为第一次循环不判断,

Answer 2

rs.Open sql, conn, 1, 1
if not rs.eof then
do while not rs.eof
建议你在以后写循环的时候，都请在循环的前面对是否有数据集进行判断