defaultfunction.asp

功能齐全的oa系统

<%
Function DefaultFunction(FName)
	Dim Re
	If Left(FName,1) = "@" Then
		If LCase(FName) = "@date" Then
			Re = Date()
		End If
	Else
		Re = FName
	End If
	DefaultFunction = Re
End Function
%>