填充0的问题

[xuheguan]

请问怎样判断字符长度增加0
num=?(0,7-leng(rs("id")))
或者判断月分如果10以下加0补充
num=?(0,2-len(rs("month")))

[huangshuiyuan]

痛苦，为了这个我写了一个很长的函数，真笨，期望有好的办法

[鲁鲁517]

好像有一个函数可以重复字符几次
String("0",7-leng(rs("id"))) +rs("id")

[liuyingbo]

我前天写了一个给月份添0的函数，给你用用看：：
function zero(str)
dim length
length=len(str)
if length=1 then
zero="0"&str
else
zero=str
end if

end function

当你写月份的时候呢，就用一下for循环就可以::

<%＝zero(i)%>
有更好的通知我！谢谢！
－－通菜

[karma]

try

function PrependZero (str, n)
dim strTemp
str = String(n,"0") & str
PrependZero = right(str,n)
end function

<%＝PrependZero(i,7)%>

<%＝PrependZero(rs("month"),2)%>

[lucong]

说句题外的话。

这就是Perl能经久不衰的原因："痛苦，为了这个我写了一个很长的函数，真笨，期望有好的办法"

学Perl吧。 ;-)

ＡＳＰ中也支持Perl，可以用Perl和VBScript混合编程。比方说，你可以用Perl写下面的函数。然后用VBScript调用它：

<%=LeadingZeros7(123)%>

<script language="PerlScript">
sub LeadingZeros7
{
return sprintf "%07d", $_
}
</script>