在第二个函数 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
在函数外先声明变量str1就行了