VBScript函数自定义及调用问题？

[tianwailiuxingy]

<%
function pad(strr,lenght)
      dim i
	  for i=len(strr+" ") to lenght
	      strr="0"+strr
	  
	  next
     Result =strr
     pad=Result
 
end function
%>   

这个函数定义有什么错误码
调用如下

<%
dim st
st="1"

st=pad(str,6) 
response.Write(st)


%>

怎么用了上面的那个函数，网页就不能显示了，有时显示了，但是说


Microsoft VBScript 编译器错误 错误 '800a03ea'
类型不匹配。

[_freaky_]

是不是str为数字时就显示类型不匹配啊？
你把
for i=len(strr+" ") to lenght
strr="0"+strr
中的+号改成&试试
for i=len(strr & " ") to lenght
strr="0" & strr

[_freaky_]

你的 str 是什么？

[tianwailiuxingy]

不行，一样的错误

[tianwailiuxingy]

<%
str=cstr(str)


%>

[_freaky_]

你把str改成具体的试一下 还有str的值到底是哪里来的

[tianwailiuxingy]

表单传过来的

[yangguo8013]

我记得vb function是不用加<% %>的

[sonic_andy]

最好可以知道是第几行第几列出的错.

[Quote=引用 7 楼 yangguo8013 的回复:]

我记得vb function是不用加<% %>的
[/Quote]
不加的是浏览器端执行的?如果浏览器不支持vbs,则无法运行..

[gzpydc]

楼主，请新建一个空白的HTML文件，然后把下面的VBScript代码和Html代码都复制到这个HTML文件，保存后运行一下看看效果。

其实是在网页上放一个按钮去执行你写的VBScript而已，希望我的回复对你有用。

<Script Language="VBScript">
    Function pad(strr,lenght)
        dim i
        for i=len(strr+" ") to lenght
            strr="0"+strr
        next
        Result =strr
        pad=Result
    end function

    Sub test
        dim st
        st="1"
        st=pad(st,6) 
        msgbox (st)
    End Sub
</script>

<input type="button" value="test" onclick="test">

[Dogfish]

代码里的str确实没有出处。可能是st的误笔。

[Rotel-刘志东]

<%
function pad(strr,lenght)
dim i
for i=len(strr+" ") to lenght
strr="0"+strr

next
Result =strr
pad=Result

end function
%>
strr应该是参数吧！笔者写错了

[碧海情天-赵亮]

只是想要格式化数字嘛，有专门的数字格式化函数不用，却来自找麻烦，时间充裕得能让死神自杀了。

[lww528499]

for i=len(strr+" ") to lenght中strr的值从哪里