You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
347 lines
10 KiB
347 lines
10 KiB
<%@ LANGUAGE="VBSCRIPT"%>
|
|
<%Response.Expires = 0%>
|
|
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><HEAD>
|
|
<META HTTP-EQUIV="Content-Type"
|
|
CONTENT="text/html; CHARSET=iso-8859-1">
|
|
<META NAME="GENERATOR"
|
|
CONTENT="Microsoft Frontpage 2.0">
|
|
|
|
<HEAD>
|
|
<TITLE>Tasks Page</TITLE>
|
|
<%
|
|
Dim objTask
|
|
Dim objTaskCol
|
|
Dim objLocMgr
|
|
Dim strCaption
|
|
Dim strTaskSrc
|
|
Dim strTaskUrl
|
|
Dim strCaptionRID
|
|
Dim intCaptionID
|
|
Dim varReplacementStrings
|
|
Dim strTasks
|
|
Dim strTaskLinks
|
|
On Error Resume Next
|
|
Dim objRetriever
|
|
|
|
|
|
Err.Clear
|
|
|
|
'Get the values sent by main page and store them in session variables
|
|
Dim strCurrentPage
|
|
Dim strPageCount
|
|
Dim strFocusItem
|
|
|
|
strCurrentPage = Request.QueryString("CurrentPage")
|
|
strPageCount = Request.QueryString("PageCount")
|
|
strFocusItem = Request.QueryString("FocusItem")
|
|
|
|
If strCurrentPage <> "" Then
|
|
Session("Main_CurrentPage") = strCurrentPage
|
|
End If
|
|
|
|
If strPageCount <> "" Then
|
|
Session("Main_PageCount") = strPageCount
|
|
End If
|
|
|
|
If strFocusItem <> "" Then
|
|
Session("Main_FocusItem") = strFocusItem
|
|
End If
|
|
|
|
'reset the focus for network page
|
|
Session("Network_FocusItem") = ""
|
|
|
|
'reset the hostname value for hostname page
|
|
Session("Hostname_Hostname") = ""
|
|
|
|
Set objRetriever = Server.CreateObject("Elementmgr.ElementRetriever")
|
|
Set objTaskCol = objRetriever.GetElements(1, "LOCAL_UI_TASKS")
|
|
If objTaskCol.Count=0 or Err.Number <> 0 Then
|
|
Err.Clear
|
|
|
|
Else
|
|
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
|
|
strTasks = ""
|
|
strTaskLinks = ""
|
|
For Each objTask in objTaskCol
|
|
strTaskSrc = ""
|
|
strTaskUrl = ""
|
|
strTaskSrc = objTask.GetProperty("Source")
|
|
strTaskUrl = objTask.GetProperty("URL")
|
|
strCaptionRID = objTask.GetProperty("CaptionRID")
|
|
strCaption = ""
|
|
intCaptionID = 0
|
|
intCaptionID = "&H" & strCaptionRID
|
|
|
|
strCaption = objLocMgr.GetString(strTaskSrc, intCaptionID, varReplacementStrings)
|
|
If strCaption <> "" and strTaskUrl <> "" Then
|
|
strTasks = strTasks & "<option>" & strCaption
|
|
strTaskLinks = strTaskLinks & "<option>" & strTaskUrl
|
|
End If
|
|
|
|
Next
|
|
End If
|
|
|
|
Set objLocMgr = Nothing
|
|
Set objTask = Nothing
|
|
Set objTaskCol = Nothing
|
|
%>
|
|
|
|
<SCRIPT LANGUAGE="VBScript">
|
|
<!--
|
|
Option Explicit
|
|
|
|
public iTaskCount
|
|
public iPageCount
|
|
public iCurrentPage
|
|
public iCurrentTask
|
|
public iIdleTimeOut
|
|
|
|
Sub window_onload()
|
|
|
|
Dim iOffSet
|
|
Dim iFocus
|
|
Dim objKeypad
|
|
Set objKeypad = CreateObject("Ldm.SAKeypadController")
|
|
|
|
objKeypad.Setkey 0,9,TRUE
|
|
objKeypad.Setkey 1,9,FALSE
|
|
objKeypad.Setkey 2,37,FALSE
|
|
objKeypad.Setkey 3,39,FALSE
|
|
objKeypad.Setkey 4,27,FALSE
|
|
objKeypad.Setkey 5,13,FALSE
|
|
|
|
Set objKeypad = Nothing
|
|
|
|
iIdleTimeOut = window.SetTimeOut("IdleHandler()",300000)
|
|
|
|
iTaskCount = tasks.length
|
|
iPageCount = (iTaskCount-1)\5 + 1
|
|
|
|
if CurrentPage.value<> "" Then
|
|
iCurrentPage = CInt(CurrentPage.value)
|
|
Else
|
|
iCurrentPage = 0
|
|
End If
|
|
|
|
if CurrentTask.value<> "" Then
|
|
iCurrentTask = CInt(CurrentTask.value)
|
|
Else
|
|
iCurrentTask = 0
|
|
End If
|
|
|
|
if FocusItem.value<> "" Then
|
|
iFocus = CInt(FocusItem.value)
|
|
Else
|
|
iFocus = 0
|
|
End If
|
|
|
|
If iTaskCount > 0 Then
|
|
|
|
indicator.style.display = ""
|
|
indicator.style.top = iCurrentTask * 10
|
|
|
|
If iPageCount > 1 Then
|
|
PageInfo.style.display = ""
|
|
PageInfo.innertext = (iCurrentPage+1)&" of "&(iPageCount)
|
|
End If
|
|
iOffSet = iCurrentPage * 5
|
|
|
|
task1.innertext = Tasks.options(iOffSet).text
|
|
task1.hRef = TaskLinks.options(iOffSet).text
|
|
|
|
iOffSet = iOffSet + 1
|
|
If iOffSet < iTaskCount Then
|
|
task2.innertext = Tasks.options(iOffSet).text
|
|
task2.hRef = TaskLinks.options(iOffSet).text
|
|
End If
|
|
|
|
iOffSet = iOffSet + 1
|
|
If iOffSet < iTaskCount Then
|
|
task3.innertext = Tasks.options(iOffSet).text
|
|
task3.hRef = TaskLinks.options(iOffSet).text
|
|
End If
|
|
|
|
iOffSet = iOffSet + 1
|
|
If iOffSet < iTaskCount Then
|
|
task4.innertext = Tasks.options(iOffSet).text
|
|
task4.hRef = TaskLinks.options(iOffSet).text
|
|
End If
|
|
|
|
iOffSet = iOffSet + 1
|
|
If iOffSet < iTaskCount Then
|
|
task5.innertext = Tasks.options(iOffSet).text
|
|
task5.hRef = TaskLinks.options(iOffSet).text
|
|
End If
|
|
|
|
If iFocus = 0 Then
|
|
task1.focus
|
|
End If
|
|
|
|
If iFocus = 1 Then
|
|
task2.focus
|
|
End If
|
|
|
|
If iFocus = 2 Then
|
|
task3.focus
|
|
End If
|
|
|
|
If iFocus = 3 Then
|
|
task4.focus
|
|
End If
|
|
|
|
If iFocus = 4 Then
|
|
task5.focus
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub ArrowVisible(intIndex)
|
|
FocusItem.value = intIndex
|
|
indicator.style.top = intIndex * 10 + 1
|
|
CurrentTask.value = intIndex
|
|
End Sub
|
|
|
|
Sub keydown()
|
|
|
|
window.clearTimeOut(iIdleTimeOut)
|
|
iIdleTimeOut = window.SetTimeOut("IdleHandler()",300000)
|
|
|
|
Dim iOffSet
|
|
|
|
If iPageCount > 1 and (window.event.keycode = 39 or window.event.keycode = 37) Then
|
|
'right arrow
|
|
If window.event.keycode = 39 Then
|
|
iCurrentPage = iCurrentPage + 1
|
|
If iCurrentPage = iPageCount Then
|
|
iCurrentPage = 0
|
|
End If
|
|
PageInfo.innertext = (iCurrentPage+1)&" of "&(iPageCount)
|
|
End If
|
|
|
|
If window.event.keycode = 37 Then
|
|
iCurrentPage = iCurrentPage - 1
|
|
If iCurrentPage = -1 Then
|
|
iCurrentPage = iPageCount-1
|
|
End If
|
|
PageInfo.innertext = (iCurrentPage+1)&" of "&(iPageCount)
|
|
End If
|
|
iCurrentTask = 0
|
|
|
|
|
|
CurrentPage.value = iCurrentPage
|
|
CurrentTask.value = iCurrentTask
|
|
iOffSet = iCurrentPage * 5
|
|
|
|
|
|
task1.innertext = Tasks.options(iOffSet).text
|
|
task1.hRef = TaskLinks.options(iOffSet).text
|
|
|
|
iOffSet = iOffSet + 1
|
|
If iOffSet < iTaskCount Then
|
|
task2.innertext = Tasks.options(iOffSet).text
|
|
task2.hRef = TaskLinks.options(iOffSet).text
|
|
End If
|
|
|
|
iOffSet = iOffSet + 1
|
|
If iOffSet < iTaskCount Then
|
|
task3.innertext = Tasks.options(iOffSet).text
|
|
task3.hRef = TaskLinks.options(iOffSet).text
|
|
End If
|
|
|
|
iOffSet = iOffSet + 1
|
|
If iOffSet < iTaskCount Then
|
|
task4.innertext = Tasks.options(iOffSet).text
|
|
task4.hRef = TaskLinks.options(iOffSet).text
|
|
End If
|
|
|
|
iOffSet = iOffSet + 1
|
|
If iOffSet < iTaskCount Then
|
|
task5.innertext = Tasks.options(iOffSet).text
|
|
task5.hRef = TaskLinks.options(iOffSet).text
|
|
End If
|
|
|
|
End If
|
|
|
|
If window.event.keycode = 27 Then
|
|
window.navigate "localui_main.asp"
|
|
End If
|
|
End Sub
|
|
|
|
Sub IdleHandler()
|
|
|
|
window.navigate "localui_main.asp"
|
|
End Sub
|
|
|
|
Sub GotoTask(iTaskID)
|
|
Dim strLink
|
|
|
|
If iTaskID = 1 Then
|
|
strLink = Task1.hRef
|
|
ElseIf iTaskID = 2 Then
|
|
strLink = Task2.hRef
|
|
ElseIf iTaskID = 3 Then
|
|
strLink = Task3.hRef
|
|
ElseIf iTaskID = 4 Then
|
|
strLink = Task4.hRef
|
|
ElseIf iTaskID = 5 Then
|
|
strLink = Task5.hRef
|
|
End If
|
|
|
|
If strLink <> "" Then
|
|
window.event.returnValue = false
|
|
strLink = strLink+"?CurrentPage="+CurrentPage.value+"&"+"CurrentTask="+CurrentTask.value+"&"+"FocusItem="+FocusItem.value
|
|
window.navigate strLink
|
|
End If
|
|
End Sub
|
|
-->
|
|
</SCRIPT>
|
|
</HEAD>
|
|
|
|
<body RIGHTMARGIN=0 LEFTMARGIN=0 onkeydown="keydown">
|
|
|
|
<select id="tasks" STYLE="display:none;">
|
|
<%=strTasks%>
|
|
</select>
|
|
|
|
<select id="tasklinks" STYLE="display:none;">
|
|
<%=strTaskLinks%>
|
|
</select>
|
|
|
|
<IMG id="indicator" STYLE="position:absolute; top:0; left=0; display:none;"
|
|
SRC="localui_indicator.bmp" BORDER=0>
|
|
|
|
<A STYLE="position:absolute; top:0; left:10; font-size:10; font-family=arial;" OnClick="GotoTask(1)"
|
|
id="Task1" OnFocus="ArrowVisible(0)" HIDEFOCUS=true onkeydown="keydown">
|
|
</A>
|
|
|
|
<A STYLE="position:absolute; top:10; left:10; font-size:10; font-family=arial;" OnClick="GotoTask(2)"
|
|
id="Task2" OnFocus="ArrowVisible(1)" HIDEFOCUS=true onkeydown="keydown">
|
|
</A>
|
|
|
|
<A STYLE="position:absolute; top:20; left:10; font-size:10; font-family=arial;" OnClick="GotoTask(3)"
|
|
id="Task3" OnFocus="ArrowVisible(2)" HIDEFOCUS=true onkeydown="keydown">
|
|
</A>
|
|
|
|
<A STYLE="position:absolute; top:30; left:10; font-size:10; font-family=arial;" OnClick="GotoTask(4)"
|
|
id="Task4" OnFocus="ArrowVisible(3)" HIDEFOCUS=true onkeydown="keydown">
|
|
</A>
|
|
|
|
<A STYLE="position:absolute; top:40; left:10; font-size:10; font-family=arial;" OnClick="GotoTask(5)"
|
|
id="Task5" OnFocus="ArrowVisible(4)" HIDEFOCUS=true onkeydown="keydown">
|
|
</A>
|
|
|
|
<A STYLE="position:absolute; top:50; right:0; font-size:10; font-family=arial; display:none;"
|
|
id="PageInfo">
|
|
</A>
|
|
|
|
<INPUT TYPE=HIDDEN Name="CurrentPage" value="<%=Session("Task_CurrentPage")%>">
|
|
|
|
<INPUT TYPE=HIDDEN Name="CurrentTask" value="<%=Session("Task_CurrentTask")%>">
|
|
|
|
<INPUT TYPE=HIDDEN Name="FocusItem" value="<%=Session("Task_FocusItem")%>">
|
|
|
|
|
|
</body>
|
|
|
|
</html>
|