"
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
Response.Write "
<%else %>
<% 'End If
End Function
'----------------------------------------------------------------------------
'
' Function : IsIE
'
' Synopsis : Is client browser IE
'
' Arguments: None
'
' Returns : true/false
'
'----------------------------------------------------------------------------
Function IsIE()
On Error Resume Next
If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") Then
IsIE = True
Else
IsIE = False
End If
End Function
'----------------------------------------------------------------------------
'
' Function : IsNT
'
' Synopsis : Is client NT4
'
' Arguments: None
'
' Returns : true/false
'
'----------------------------------------------------------------------------
Function IsNT()
On Error Resume Next
If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Windows NT") Then
IsNT = True
Else
IsNT = False
End If
End Function
'----------------------------------------------------------------------------
'
' Function : IsNT5
'
' Synopsis : Is client Windows 2000
'
' Arguments: None
'
' Returns : true/false
'
'----------------------------------------------------------------------------
Function IsNT5()
On Error Resume Next
If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Windows NT 5.") Then
IsNT5 = True
Else
IsNT5 = False
End If
End Function
'----------------------------------------------------------------------------
'
' Function : IsWin98
'
' Synopsis : Is client Windows 98
'
' Arguments: None
'
' Returns : true/false
'
'----------------------------------------------------------------------------
Function IsWin98()
On Error Resume Next
If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Windows 98") Then
IsWin98 = True
Else
IsWin98 = False
End If
End Function
'----------------------------------------------------------------------------
'
' Function : GetFirstTabURL
'
' Synopsis : Get URL of the first tab
'
' Arguments: None
'
' Returns : URL string of the first tab
'
'----------------------------------------------------------------------------
Function GetFirstTabURL()
Dim objTabs
Dim objTab
Dim strHomeURL
On Error Resume Next
strHomeURL = ""
Set objTabs = GetElements("TABS")
For Each objTab in objTabs
strHomeURL = objTab.GetProperty("URL")
Exit For
Next
Set objTab = Nothing
Set objTabs = Nothing
GetFirstTabURL = strHomeURL
End Function
'----------------------------------------------------------------------------
'
' Function : GetUserAccount
'
' Synopsis : Username of user on remote client
'
' Arguments: None
'
' Returns : User name string
'
'----------------------------------------------------------------------------
Function GetUserAccount()
Dim strLogonUser
On Error Resume Next
strLogonUser = Request.ServerVariables("LOGON_USER")
If strLogonUser <> "" Then
strLogonUser = Right(strLogonUser, (Len(strLogonUser) - InStr(strLogonUser, "\")))
GetUserAccount = strLogonUser
Else
GetUserAccount = ""
End If
End Function
'----------------------------------------------------------------------------
'
' Function : GetServerName
'
' Synopsis : Return server name as referred to in remote client
'
' Arguments: None
'
' Returns : server name string
'
'----------------------------------------------------------------------------
Function GetServerName()
On Error Resume Next
GetServerName = Request.ServerVariables("SERVER_NAME")
End Function
'----------------------------------------------------------------------------
'
' Function : GetScriptFileName
'
' Synopsis : file name of current file being request by client
'
' Arguments: None
'
' Returns : file name string
'
'----------------------------------------------------------------------------
Function GetScriptFileName()
Dim strPath
Dim intPos
On Error Resume Next
strPath = Request.ServerVariables("PATH_INFO")
intPos = InStr(strPath, "/")
Do While intPos > 0
strPath = Right(strPath, Len(strPath) - intPos)
intPos = InStr(strPath, "/")
Loop
GetScriptFileName = strPath
End Function
'----------------------------------------------------------------------------
'
' Function : GetScriptPath
'
' Synopsis : path of file name being request by client
'
' Arguments: None
'
' Returns : path string
'
'----------------------------------------------------------------------------
Function GetScriptPath()
' Returns the path w/o leading slashes (/)
'
Dim strPath
On Error Resume Next
strPath = Request.ServerVariables("PATH_INFO")
If Left(strPath, 1) = "/" Then
strPath = Right(strPath, Len(strPath)-1)
End If
GetScriptPath = strPath
End Function
'----------------------------------------------------------------------------
'
' Function : GetLocString
'
' Synopsis : Gets localized string from resource dll
'
' Arguments: SourceFile(IN) - resource dll name
' ResourceID(IN) - resource id in hex
' ReplacementStrings(IN) - parameters to replace in string
'
' Returns : localized string
'
'----------------------------------------------------------------------------
Function GetLocString(SourceFile, ResourceID, ReplacementStrings)
' returns localized string
'
Dim objLocMgr
Dim varReplacementStrings
On Error Resume Next
' prep inputs
If Left(ResourceID, 2) <> "&H" Then
ResourceID = "&H" & ResourceID
End If
If Trim(SourceFile) = "" Then
SourceFile = "svrapp"
End If
If (Not IsArray(ReplacementStrings)) Then
ReplacementStrings = varReplacementStrings
End If
' call Localization Manager
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
Err.Clear
GetLocString = objLocMgr.GetString(SourceFile, ResourceID, ReplacementStrings)
If Err <> 0 Then
GetLocString = Err.description
Err.Clear
End If
Set objLocMgr = Nothing
End Function
'----------------------------------------------------------------------------
'
' Function : FixHTMLSpaces
'
' Synopsis : Replace space with
'
' Arguments: InString(IN) - string to fix
'
' Returns : None
'
'----------------------------------------------------------------------------
Function FixHTMLSpaces(InString)
' Replaces a 'space' character with the HTML equivalent
On Error Resume Next
FixHTMLSpaces = Replace(InString, " ", " ")
End Function
'----------------------------------------------------------------------------
'
' Function : EscapeQuotes
'
' Synopsis : Insert escape character before quote
'
' Arguments: InString(IN) - string to fix
'
' Returns : None
'
'----------------------------------------------------------------------------
Function EscapeQuotes(InString)
On Error Resume Next
Dim i
Dim strOut
strOut = InString
i = 1
Do While i <> 0
i = InStr(i, strOut, "'")
If i <> 0 Then
If (i > 1) And (Mid(strOut, i-1, 2) = "\'") Then
' input string was escaped already - do nothing
Else
strOut = Left(strOut, i-1) & "\'" & Right(strOut, Len(strOut)-i)
End If
End If
If (i < Len(strOut)) And (i <> 0) Then
i = i + 1
Else
Exit Do
End If
Loop
EscapeQuotes = Server.HTMLEncode(strOut)
End Function
'----------------------------------------------------------------------------
'
' Function : GetElements
'
' Synopsis : Return collection of IWebElement objects based on the
' Container parm
'
' Arguments: Container(IN) - container name
'
' Returns : collection of elements
'
'----------------------------------------------------------------------------
Function GetElements(Container)
'Return collection of IWebElement objects based on the Container parm.
'
Dim objRetriever
Dim objElements
On Error Resume Next
Set objRetriever = Server.CreateObject("Elementmgr.ElementRetriever")
Set objElements = objRetriever.GetElements(1, Container)
If Err.Number <> 0 Then
Err.Clear
End If
Set GetElements = objElements
Set objElements = Nothing
Set objRetriever = Nothing
End Function
'----------------------------------------------------------------------------
'
' Function : ServeRestartingPage
'
' Synopsis : Redirect user to the restarting page
'
' Arguments: strRsrcDLL(IN) - resource DLL name which contains the msg to
' be displayed in the restaring page.
' strMsgID(IN) - msg ID in strRsrcDLL to be displayed. This ID
' should be a string. For e.g., if the msg id is
' 80010004, then set strMsgID="80010004".
' strInitWaitTime(IN) - initial wait time in milliseconds.
' strWaitTime(IN) - subsequent wait time in milliseconds.
'
' Returns : None
'
'----------------------------------------------------------------------------
Function ServeRestartingPage(strRsrcDLL, strMsgID, strInitWaitTime, strWaitTime)
On Error Resume Next
%>
<% Response.End
End Function
'----------------------------------------------------------------------------
'
' Function : Redirect
'
' Synopsis : Redirect to given URL
'
' Arguments: URL(IN) - URL to redirect to
'
' Returns : None
'
'----------------------------------------------------------------------------
Function Redirect(URL)
On Error Resume Next %>
<%
End Function
'----------------------------------------------------------------------------
'
' Function : ClearAlert
'
' Synopsis : Clears an alert
'
' Arguments: Cookie(IN) - cookie of alert to clear
'
' Returns : true/false
'
'----------------------------------------------------------------------------
Function ClearAlert(Cookie)
Dim objAM
Dim rc
On Error Resume Next
Set objAM = GetObject("WINMGMTS:{impersonationLevel=impersonate}!\\" & GetServerName & "\root\cimv2:Microsoft_SA_Manager=@" )
rc = objAM.ClearAlert(CInt(Cookie))
If rc = 0 And Err = 0 Then
ClearAlert = True
Else
ClearAlert = False
End If
Set objAM = Nothing
End Function
'----------------------------------------------------------------------------
'
' Function : SwapRows
'
' Synopsis : Swap routine used by QuickSort
'
' Arguments: arr(IN) - array whose row needs to be swapped
' row1(IN) - row to swap
' row2(IN) - row to swap
'
' Returns : None
'
'----------------------------------------------------------------------------
Sub SwapRows(ary,row1,row2)
'== This proc swaps two rows of an array
Dim x,tempvar
For x = 0 to Ubound(ary,2)
tempvar = ary(row1,x)
ary(row1,x) = ary(row2,x)
ary(row2,x) = tempvar
Next
End Sub 'SwapRows
'----------------------------------------------------------------------------
'
' Function : QuickSort
'
' Synopsis : the quick sort algorithm
'
' Arguments: vec(IN) - array whose row needs to be swapped
' loBound(IN) - lower bound of array vec
' hiBound(IN) - upped bound of array vec
' SortField(IN) - the field to sort on
'
' Returns : None
'
'----------------------------------------------------------------------------
Sub QuickSort(vec, loBound, hiBound, SortField)
Dim pivot(),loSwap,hiSwap,temp,counter
Redim pivot (Ubound(vec,2))
'loBound = LBound(vec)
'hiBound = UBound(vec)
'== Two items to sort
if hiBound - loBound = 1 then
if vec(loBound,SortField) > vec(hiBound,SortField) then Call SwapRows(vec,hiBound,loBound)
End If
'== Three or more items to sort
For counter = 0 to Ubound(vec,2)
pivot(counter) = vec(int((loBound + hiBound) / 2),counter)
vec(int((loBound + hiBound) / 2),counter) = vec(loBound,counter)
vec(loBound,counter) = pivot(counter)
Next
loSwap = loBound + 1
hiSwap = hiBound
do
'== Find the right loSwap
while loSwap < hiSwap and vec(loSwap,SortField) <= pivot(SortField)
loSwap = loSwap + 1
wend
'== Find the right hiSwap
while vec(hiSwap,SortField) > pivot(SortField)
hiSwap = hiSwap - 1
wend
'== Swap values if loSwap is less then hiSwap
if loSwap < hiSwap then Call SwapRows(vec,loSwap,hiSwap)
loop while loSwap < hiSwap
For counter = 0 to Ubound(vec,2)
vec(loBound,counter) = vec(hiSwap,counter)
vec(hiSwap,counter) = pivot(counter)
Next
'== Recursively call function .. the beauty of Quicksort
'== 2 or more items in first section
if loBound < (hiSwap - 1) then Call QuickSort(vec,loBound,hiSwap-1,SortField)
'== 2 or more items in second section
if hiSwap + 1 < hibound then Call QuickSort(vec,hiSwap+1,hiBound,SortField)
End Sub 'QuickSort
Function ServePageWaterMarkNavIE
if isIE then
%>
<% else %>
<% end if %>
|
<%
End Function
Function ServePageWaterMarkEndNavIE(WaterMarkImagePath, OEMImagePath, fServeBack)
%>
|
<%if fServeBack=false then%>
 |
<%else%>
| <%ServeBackButton%> |
|
|
<%end if%>
 |
<%
End Function
%>
