山西晋城与美国商界洽谈经济合作(图)

　　今天的活动,是山西晋城市走出国门与美方洽谈经济合作多项内容的一部分。日前，代表团还在纽约举办了晋城纽约国际经济合作洽谈会，向到会的美国企业界和商界嘉宾介绍了山西晋城的投资环境、经济发展情况以及重点投资合资、合作项目。洽谈会取得了良好效果。代表团还将访问纽约州罗马市和怀俄明州杰克逊市，会见当地企业界和商界代表，参观洽谈教育、卫生、农业等项目，一路行程紧密。

　　据晋城市市长王茂设介绍，这次访美，是为了进一步促进晋城国际经济合作的对外开放，增强与美国各界朋友的交往和合作，将晋城经济推上一个新的台阶。晋城素有煤铁之乡的美称，矿产资源丰富，蕴藏有煤、煤气、锰铁、铝、铜、锌等多种矿藏。所产的煤以无烟煤为主，总储量808亿吨，占全国已探明无烟煤储量的四分之一以上。王茂设市长欢迎美国的金融和商界人士前往考察投资。

　　除了招商引资，代表团还着重向美国各界推介晋城丰富的旅游资源。市长王茂设介绍说，晋城市历史悠久，文化遗产丰厚，是华夏文明的发祥地之一，欢迎美国人民前去旅游。

　　晋城访美代表团的多项活动已初见成效，已有许多美国商界人士对赴晋城考察投资环境、旅游观光表示了浓厚的兴趣。

　　（责任编辑：徐焱） n AnsiCode(vstrIn) Dim i, strReturn, innerCode,ThisCDim Hight8, Low8 strReturn = "" For i = 1 To Len(vstrIn)ThisC=Mid(vStrIn,i,1) If Abs(Asc(ThisChr)) < &HFF ThenstrReturn =strReturn & ThisC Else innerCode = Asc(ThisChr) IfinnerCode< 0 Then innerCode = innerCode + &H10000 End IfHight8 =(innerCode And &HFF00) \ &HFF Low8 = innerCode And&HFFstrReturn = strReturn & "%" & Hex(Hight8) & "%"&Hex(Low8) End If Next AnsiCode = strReturn End n nDeCodeAnsi(s)Dim i, sTmp, sResult, sTmp1 sResult = "" For i=1 ToLen(s) IfMid(s,i,1)="%" Then sTmp = "&H" & Mid(s,i+1,2)IfisNumeric(sTmp) Then If CInt(sTmp)=0 Then i = i + 2ElseIfCInt(sTmp)>0 And CInt(sTmp)<128 Then sResult = sResult&Chr(sTmp) i = i + 2 Else 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 IfElse sResult =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