Question

asp function之间怎么互相传值？

下面说下我面临的问题：
function qqq(str)
...
sp2 = str 'str内容为：id=111 len=222 sortid=99
...
end function

function GetValueByKey(key)
Set Reg = New Regexp
Reg.IgnoreCase = True
Reg.Global = True
Reg.Pattern = ".*\s" & Key & "=(.*?)\s.*"
GetValueByKey = Reg.Replace(" " & sp2 & " ", "$1")
end function

-----------第一个是获取到内容 id=111 len=222 sortid=99
而第二个fun是GetValueByKey("id")或者=右边的内容的， 最后的问题是怎么把第一个里面的sp2传给第二个fun
当然我知道GetValueByKey(key,key2)这样就行了， 不这样有别的办法吗？

Answer 1

在第二个函数 GetValueByKey(key) 中调用 qqq() ，前提是 qqq() 必须有返回值。

function GetValueByKey(key)
Dim newString = qqq() ' newString 这样不就可以使用了吗？ASP语法我不太了解，不知道是否可以这样调用
Set Reg = New Regexp
Reg.IgnoreCase = True
Reg.Global = True
Reg.Pattern = ".*\s" & Key & "=(.*?)\s.*"
GetValueByKey = Reg.Replace(" " & sp2 & " ", "$1")
end function

Answer 2

在函数外先声明变量str1就行了
<script language=vbscript>
dim str1
function qqq(str)
str1 = str
end function

function aaa()
msgbox(str1)
end function

call qqq("111")
call aaa()
</script>