求好心人帮小弟我解释下几行代码的意思，很快很简单

2013-03-26

求好心人帮我解释下几行代码的意思，很快很简单if Err.number 0 thenif adoRecordset.BOF and adoRecords

求好心人帮我解释下几行代码的意思，很快很简单


if Err.number = 0 then
if adoRecordset.BOF and adoRecordset.EOF then
Response.Write "<root number=""0""></root>"
else
dim responseStr
responseStr = ""
do while not adoRecordset.EOF
responseStr = responseStr & adoRecordset.Fields(0).Value

adoRecordset.MoveNext
loop
Response.Write "<root number=""0"">" & responseStr & "</root>"
end if

希望好心能逐行解释，我知道是获取异常的。VB不懂啊
[解决办法]
(记录不存在)
if adoRecordset.BOF and adoRecordset.EOF then
     Response.Write "<root number=""0""></root>"
else
     dim responseStrresponseStr = ""
     一直循环到不是最后一行
     do while not adoRecordset.EOF
         responseStr = responseStr & adoRecordset.Fiel(0).Value
         到下一行记录
         adoRecordset.MoveNext
     loop
     Response.Write "<root number=""0"">" & responseStr & "</root>"
end if

[解决办法]

这应该是asp的代码
if Err.number = 0 then                             //这里可能是产生分页的XML 0应该为第一页
   if adoRecordset.BOF and adoRecordset.EOF then   //ADO的对象Recordset读取记录如果没有记录
       Response.Write "<root number=""0""></root>" //输出字符串 <root number=""0""></root>
   else
       dim responseStr                             //定义变量 responseStr
       responseStr = ""                            //赋值变量 responseStr
       do while not adoRecordset.EOF               //如果有记录 do while循环
   //赋值变量responseStr adoRecordset.Fields(0).Value 应该记录集第一个字段的值(这种写法倒没见过)

           responseStr = responseStr & adoRecordset.Fields(0).Value
           adoRecordset.MoveNext                  //指向下一条记录
       loop                                       //循环
       Response.Write "<root number=""0"">" & responseStr & "</root>"    输出字符串
   end if

热点排行

VB Dotnet

求好心人帮小弟我解释下几行代码的意思，很快很简单