<%Function LeftStr(byVal Str,byVal StrLen) Dim l,t,c,i l=Len(str) t=0 For i=1 To l c=AscW(Mid(str,i,1)) If c<0 Or c>255 Then t=t+2 Else t=t+1 IF t>=StrLen Then LeftStr=left(Str,i)&"..." Exit For Else LeftStr=Str End If Next End Function %>

郑铁职院组织部

  你的位置: 首页 -> 干部工作-> 干部教育
- 干部工作 - 干部教育
·[干部教育] 关于在“讲正气、树新风”主题教育活动第二阶段...2007-04-2523
本类栏目
 ->干部教育
热门阅读
· 关于在“讲正气、树新风...
推荐阅读
·还没有文章
版权所有 Copyright© 2006-2007 郑州铁路职业技术学院
郑州铁路职业技术学院党委组织部 主办