［作者：不详    转贴自：不详    点击数：数据正在加载...     字体:【大 中小】    更新时间：2006-03-05］

VAR CAT = Send(<用户资料><姓名>谢柠檬</姓名></用户资料>,HTTP://WWW.CHINAASP.COM/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