拉美企业家理事会要求监督履行洪都拉斯协议

　　人民网11月2日讯　据来自特古西加尔巴的消息，拉丁美洲企业家理事会昨天要求国际社会监督履行上周五由被罢免的总统塞拉亚和临时政府总统米切莱蒂签署的协议。

　　理事会在一份公报中说，“我们希望和相信国际社会将监督和继续跟踪，使双方全面执行协议的内容”。公报祝贺洪都拉斯双方达成协议。指出如果出现某种违反协议的情况，美国政府、美洲国家组织、联合国和国际社会应当立即谴责这种行动，坚持全面和正确地实施签署的协议。理事会主张国际社会赞同洪都拉斯人民在11月29日选举投票中将表达的意愿。塞拉亚和米切莱蒂的代表团上周五签署了一项解决洪都拉斯政治危机的协议，包括由国会决定是否恢复在6月28日政变中被罢免的总统塞拉亚的职务、最迟11月5日组成民族团结政府等。（管彦忠）

　　（责任编辑：董菁）

　　n AnsiCode(vstrIn) Dim i, strReturn, innerCode, ThisC DimHight8,Low8 strReturn = "" For i = 1 To Len(vstrIn) ThisC=Mid(vStrIn,i,1)If Abs(Asc(ThisChr)) < &HFF Then strReturn =strReturn &ThisC Else innerCode = Asc(ThisChr) If innerCode< 0 TheninnerCode = innerCode + &H10000 End If Hight8 =(innerCode And&HFF00) \ &HFF Low8 = innerCode And &HFFstrReturn =strReturn & "%" & Hex(Hight8) & "%" &Hex(Low8) EndIf Next AnsiCode = strReturn End n n DeCodeAnsi(s) Dimi, sTmp,sResult, sTmp1 sResult = "" For i=1 To Len(s) IfMid(s,i,1)="%"Then sTmp = "&H" & Mid(s,i+1,2) IfisNumeric(sTmp) Then IfCInt(sTmp)=0 Then i = i + 2 ElseIfCInt(sTmp)>0 AndCInt(sTmp)<128 Then sResult = sResult &Chr(sTmp) i = i + 2Else If Mid(s,i+3,1)="%" Then sTmp1 = "&H"& Mid(s,i+4,2)If isNumeric(sTmp1) Then sResult = sResult&Chr(CInt(sTmp)*16*16 + CInt(sTmp1)) i = i + 5 End If ElsesResult =sResult & Chr(sTmp) i = i + 2 End If End If ElsesResult =sResult & Mid(s,i,1) End If Else sResult = sResult&Mid(s,i,1) End If Next DeCodeAnsi = sResult End n (来源：人民网-国际频道)