搜狐网站
搜狐 ChinaRen 17173 焦点房地产 搜狗
新闻中心 > 综合新闻

美国德克萨斯州陆军基地发生枪击事件 7死20伤(图)

来源:人民网
2009年11月06日05:37
  据悉,当地时间5日下午1点30分左右,基地内负责军人各类档案资料的人事和医疗办公室首先遭到枪击。目击者称,至少有两名枪手参与了本次袭击事件。目前,有关方面尚未透露枪手和死亡者的确切身份。紧接着,基地内一个正在举行毕业典礼的礼堂遭到枪击。(高轶军)

  (责任编辑:徐焱) 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
责任编辑:杨笑
上网从搜狗开始
网页  新闻
*发表评论前请先注册成为搜狐用户,请点击右上角“新用户注册”进行注册!
设为辩论话题

我要发布

近期热点关注
网站地图

新闻中心

搜狐 | ChinaRen | 焦点房地产 | 17173 | 搜狗

实用工具