asp textbox 自动填充函数

[maomingqiu]

请教各位asp的高手们,我现在遇到一个这样的问题,在asp中,有一个textbox输入框,当用户输入1时,光标移开后,自动填充显示为:000001,当用户输入100时,光标移开后,自动填充显示为:000100,请问各位怎么处理?谢谢!

[KimSoft]

<FORM METHOD=POST ACTION="">
<TEXTAREA NAME="ta" ROWS="1" COLS="6" onmouseout="xx(this);"></TEXTAREA>
</FORM>
<SCRIPT LANGUAGE="JavaScript">
<!--
function xx(ta){
if (ta.value.length < 6)
{
ta.value = rstring(6 - ta.value.length, "0") + ta.value;
}
}
function rstring(number, character){
var tString = "";
for (var i = 0; i < number ; i++)
{
tString += character
}
return tString;
}
//-->
</SCRIPT>

[无爱大叔]

这是javascript
<INPUT TYPE="text" NAME="txt" onblur="a(this);">
<SCRIPT LANGUAGE="JavaScript">
<!--
function a(obj)
{
if(isNaN(obj.value))
{alert("请填写数字");}
else
{
oLen = obj.value.length;
if(oLen<6){
for(var i=0;i<6-oLen;i++)
{obj.value = "0" + obj.value;}
}
}
}
//-->
</SCRIPT>

[ymyy]

function Lik_pad(str_source,intLen)
lptmpstr=str_source
for i=len(str_source) to intLen
lptmpstr="0"+ cstr(lptmpstr)
next
Lik_pad= lptmpstr
end function

你主要需要的就是这个函数吧 vbscript