XMLHTTP对象应用开发初体验_ASP技巧

}

ELSE

{

ALERT("对不起.处理程序返回的是FALSE.数据处理已经失败........")

}

}

===============================VIVA.ASP============================

ON ERROR RESUME NEXT

DIM BOBO

DIM MOMO

SET BOBO = SERVER.CREATEOBJECT("MICROSOFT.XMLDOM")

BOBO.ASYNC = FALSE

BOBO.LOAD REQUEST

IF BOBO.PARSEERROR.ERRORCODE <> 0 THEN

RESPONSE.WRITE("<程序处理结果><最终结果>FALSE</最终结果></程序处理结果>")

ELSE

SET MOMO = BOBO.DOCUMENTELEMENT

IF MOMO.CHILDNODES.ITEM(0).TEXT = "谢柠檬" THEN

RESPONSE.WRITE("<程序处理结果><最终结果>TRUE</最终结果></程序处理结果>")

ELSE

RESPONSE.WRITE("<程序处理结果><最终结果>FALSE</最终结果></程序处理结果>")

END IF

END IF

SET BOBO = NOTHING