Leaked source code of windows server 2003
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.
|
|
<%@ 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>
|
