在第二个函数 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就行了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024