一个asp填充函数-转载来的！用来收藏吧！

Function fillStr(str,char,direction,length)
'------------------------------------------------------------
'功能： 填充字符
'参数说明：
' str : 操作的字符串
' char : 填充的字符
' direction: 方向，0:在str的前方填充，1：在后方
' length : 填充后的字符串长度,不能小于str的长度
'------------------------------------------------------------

tmp = str
strLen = Len(str)
fillLen = 0

If strlen >= length Then

Else
fillLen = length-strlen
End If

If direction = 0 Then
For i=1 To fillLen
tmp = char & tmp
Next
Else
For i=1 To fillLen
tmp = tmp & char
Next
End If

fillStr = tmp

END Function