VBScript问题

[qingqingliman]

VBScript随即数问题

mystring=CStr(Now)
Randomize
ch=CStr(Int(10*Rnd))
replace(mystring, "-", ch)

ch=CStr(Int(10*Rnd))
replace(mystring, " ", ch)

ch=CStr(Int(10*Rnd))
replace(mystring, ":", ch)

response.write mystring

错误类型：
Microsoft VBScript 编译器错误 (0x800A0414)
调用子程序时不能使用括号
/dsa/fff.asp, 第 47 行, ? 38 ?
47行是：
replace(mystring, "-", ch)

不知道怎么办？

[竹林听雨2005]

http://boyd.zhanzhang.cn/u1/493/archives/2005/9998.shtml

学习一下REPLACE的具体用法吧。

[jspadmin]

temp=10*rnd
temp=int(temp)
temp=cstr(temp)
ch=temp
replace(mystring, "-", ch)

[孟子E章]

mystring = replace(mystring, "-", ch)

[竹林听雨2005]

另外，你这个replace不能单独这样使用，必须赋值给变量　，比如

aa=replace(mystring, "-", ch)

这样绝对不会有错

[竹林听雨2005]

<%
mystring=CStr(Now)
Randomize

ch=CStr(Int(10*Rnd))

aa=replace(mystring, "-", ch)

ch=CStr(Int(10*Rnd))
aa=replace(mystring, " ", ch)

ch=CStr(Int(10*Rnd))
aa=replace(mystring, ":", ch)

response.write "<font color=blue>"&mystring&"</font>"
%>

[竹林听雨2005]

哈哈，看来JSPADMIN也没搞清问题的解决方法，哈哈。

[KimSoft]

楼主这样写：replace(mystring, "-", ch)

VBS解释器会认为replace是一个子程序(SUB)，而子程序的调用可以是
Call SubName(参数1，参数2)
或
SubName 参数1，参数2
所以报了这个错误，实际上replace是有返回值的Function，按楼上各位大侠的改法就OK了，我只是给你分析一下为什么会报这个错误。

[jspadmin]

汗
<%
mystring=CStr(Now)
Randomize
ch=CStr(Int(10*Rnd))
str=replace(mystring, "-", ch)

ch=CStr(Int(10*Rnd))
str=replace(str, " ", ch)

ch=CStr(Int(10*Rnd))
str=replace(str, ":", ch)

response.write str & "<br>" & now()
%>

[jspadmin]

我上面代码肯定楼主想要的
没注意到楼主会犯这么低级错误...

[binbin695]

replace 需赋值给变量或输出