韩国驻沈阳总领事馆开馆10周年

　　人民网10月14日电（记者何勇）10月14日中午，韩国驻沈阳总领事馆在沈阳举行纪念韩国国庆日及韩国驻沈阳总领事馆开馆10周年招待酒会。

　　韩国驻沈阳总领事馆总领事辛亨根和出席酒会的辽宁省人民政府赵国红副省长，均高度评价了过去10年间韩国与东北三省之间飞跃式的关系发展和经济交流的扩大，并表示今后将继续加强双方之间的合作关系。

　　酒会还邀请了9月13日举办的沈阳KBS全国竞歌擂台最优秀奖获得者李雪花，金美玲，为活动演唱“手拉手”。

　　东北三省地方政府、驻沈阳总领事使节团，东北三省韩人会会长团，韩国侨民等共300余名贵宾出席了此次活动。

　　韩国驻沈阳总领事馆1999年设立，开馆初期是韩国驻华大使馆领事部下属的领事事务所，现在已发展成为拥有100多名工作人员的重要驻外使领馆之一，为促进韩国与我国东北三省的关系，发挥了重要作用。东北三省地区每年与驻沈阳总领事馆都共同举办韩国周活动，沈阳韩国周、哈尔滨韩国周已具备较大影响力。

　　中韩两国关系建交17年来，两国之间的贸易总额增长了36倍。

　　（责任编辑：苏楠）

　　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