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

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

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