charlength.vbs

航空订票系统基于asp.net和sql2005包含数据库和图片

'********************************************************************************
'*                                                                              *
'    功能描述：获取含中文字串长度VBScript函数
'    适用版本：博亿网 V1.0
'    初始创建：乔黎明 2003.12.27
'    最后修改：乔黎明 2003.12.27
'*                                                                              *
'********************************************************************************

'判断中文字串实际长度
Function GetStrLen(str)
  dim l, r, c, i
  l=Len(str)
  r=l
  for i=1 to l
    c=Asc(Mid(str,i,1))
    if c<0 then c=c+65536
    if c>255 then
    r=r+1
    end if
  next
  GetStrLen=r
End Function