XMLHTTP---介绍(3)

XMLHTTP---介绍

VAR CAT = Send("<用户资料><姓名>谢柠檬</姓名></用户资

料>","/VIVA.ASP") //执行函数

IF(CAT == FALSE)

{

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

}

ELSE

{

IF(EVAL(CAT))

{

ALERT("OK.数据已经发送成功.兼以处理完成!!!!!!")

}

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