Question

这个ASP自定义函数对不对

这个ASP自定义函数对不对(目的是求一个子串在母串的数量)
<script language="vbscript">
function Dass(muchuan,zichuan)
dim muchuan as string
dim zichuan as string
dim str as string
str=replace(muchuan,zichuan,"z")
dim i
dim j
j=0
For i=1 To Len(str)
If mid(str,i,1)="z" Then
j=j+1
End If
Next
Dass(muchuan,zichuan)=j
end function
</script>

Answer 1

一楼,他不是不用加,他会出错的,是根本不要那句话就行了!

function Dass(muchun,zichuan)
这里的muchun已经是一个变量了,如果再使用dim muchun是出现重定义的错误.所以绝对不要使用dim muchun这样的定义语句的!但也不能使用redim muchun否则会造成传值的丢失!
即便是这样,他的程序也根本是不对的!他并不知道replace的使用方法.它的意思是将母串中的所有的子串替换成字母Z,然后查一下z出现的次数.理论上不错,但原字母中若是有Z怎么办呢?不如这样吧!

function Dass(muchuan,zichuan)
dim slen : slen = len(muchuan)
dim elen : elen = len(replace(muchuan,zichuan,""))
dim zlen : zlen = len(zichuan)
Dass = (slen-elen)/zlen
end function
这样还是很快的!不信可以试一下,也不用要循环的!
muchuan = replace(muchuan,zichuan,"")

Answer 2

这里dim muchuan as string
dim zichuan as string
dim str as string
不用加as string
这里Dass(muchuan,zichuan)=j
改成Dass=j

Answer 3

1 DIM后面跟变量就行了 至于什么类型 它自动匹配