更新:这是WIP功能。
<%
Function ReturnTwoValues(Data)
If Data= Now() Then
Var1= "ABC"
Var2= "000"
Else
Var1= "CDE"
Var2= "111"
End If
ReturnTwoValues = Array(Var1, Var2)
End Function
a = ReturnTwoValues(Data)
Value1= a(0)
Value2= a(1)
%>
我现在的疑问是:如何调用该函数?如果可以Response.Write Value1
,Response.Write Value2
我可以获取该值,但是我需要先传递该参数。类似于ReturnTwoValues(Now())
,但是如果我这样做,我如何能够获得第一个和第二个值?
原始问题:
我有这个伪函数,并希望能够从Variable1
和返回值Variable2
:
<%
Today= Now()
Function TellsMeTheTime(Date_Field)
If IsNull(Date_Field) = False Or Date_Field <> "" Then
DaysAmount= DateDiff("d", Date_Field, Today)
Select Case True
Case DaysAmount = 0
Variable1 = "warning"
Variable2 = "text1"
Case DaysAmount > 1
Variable1 = "danger"
Variable2 = "text2 " & DaysAmount & " text3"
Case DaysAmount = -1
Variable1 = "warning"
Variable2 = "text4"
Case DaysAmount = -2, -3, -4, -5, -6, -7
Variable1 = "warning"
Variable2 = "text5 " & Right(DaysAmount, Len(DaysAmount) - 1) & " text6"
Case DaysAmount <= -8
Variable1 = "success"
Variable2 = "text7 " & Right(DaysAmount, Len(DaysAmount) - 1) & " text8"
Case DaysAmount = ""
Variable1 = "danger"
Variable2 = "text9 " & DaysAmount & " text10"
Case Else
Variable1 = "warning"
Variable2 = "text11 " & Right(DaysAmount, Len(DaysAmount) - 1) & " text12"
End Select
Else
Variable1 = "danger"
Variable2 = "text12"
End If
End Function
%>
我怎样才能做到这一点?
返回一个数组:
Function ReturnTwoValues(Date_Field)
' Do some date testing using Date_Field and then return the proper values...
ReturnTwoValues = Array("hello", "world")
End Function
a = ReturnTwoValues(#7/7/2014#)
WScript.Echo a(0) ' ==> "hello"
WScript.Echo a(1) ' ==> "world"
或者利用以下事实:在VBScript中通过引用传递变量:
Sub ModifyTwoValues(Date_Field, returnOne, returnTwo)
' Do some date testing using Date_Field and then return the proper values...
returnOne = "hello"
returnTwo = "world"
End Sub
ModifyTwoValues #7/7/2014#, var1, var2
WScript.Echo var1 ' ==> "hello"
WScript.Echo var2 ' ==> "world"
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句