Asp常用通用函数之用于左、右填充指定数量的字符,以达到规范长度

 '函数名：lpad
  '作 用：用于左填充指定数量的字符,以达到规范长度
  '参 数：desstr ---- 目标字符
  '参 数：padchar ---- 填充字符
  '参 数：lenint ---- 填充后的字符总长度
  '返回值：返回字符
  '示 例：response.write lpad(4,0,5),结果显示00004
  '**************************************************
  Public Function lpad(ByVal desstr,ByVal padchar,ByVal lenint)
   dim d,p,t
   d = cstr(desstr)
   p = cstr(padchar)
   lpad=""
   for t=1 to lenint-len(d)
   lpad = p & lpad
   next
   lpad = lpad & d
  end function
'************************************************** 
 '函数ID：0034[用于右填充指定数量的字符,以达到规范长度]
  '函数名：rpad
  '作 用：用于右填充指定数量的字符,以达到规范长度
  '参 数：desstr ---- 目标字符
  '参 数：padchar ---- 填充字符
  '参 数：lenint ---- 填充后的字符总长度
  '返回值：返回字符
  '示 例：response.write rpad('a',0,5),结果显示a0000
  '**************************************************
  Public Function rpad(ByVal desstr,ByVal padchar,ByVal lenint)
   dim d,p,t
   d = cstr(desstr)
   p = cstr(padchar)
   rpad=""
   for t=1 to lenint-len(d)
   rpad = p & rpad
   next
   rpad = d & rpad
  end function