'**************************************************

'[用于左填充指定数量的字符,以达到规范长度]

'函数名：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