<%@ CODEPAGE=65001 %> <% '------------------------------------------------------------ ' ' Microsoft Internet Printing Project ' ' Copyright (c) Microsoft Corporation. All rights reserved. ' '------------------------------------------------------------ option explicit %> <% Randomize CheckSession Response.Expires = 0 Dim strPrinter, strASP1, strCabURL, strView Dim bShowJobMenu strPrinter = Request("eprinter") If Len(strPrinter) > MAX_ENCODED_PRINTER_NAME_LENGTH Then Call ErrorHandler(L_InvalidParameter_Text) Else strPrinter = OleCvt.DecodeUnicodeName(strPrinter) End If strASP1 = Request(ASP1) strView = Request ("View") Dim strInstall strInstall = OleCvt.ASPString2(IDS_ASP_CONNECT_FROM, strPrinter, session(LOCAL_SERVER) ) Dim L_NavTitle_Text, L_View_Text, L_PrinterActions_Text Dim L_DocList_Text, L_Property_Text, L_Detail_Text, L_GoDocList_Text, L_GotoList_Text Dim L_GoPropPage_Text, L_GoDevStatus_Text, L_Select_Text, L_AllPrinters_Text Dim L_PausePrinter_Text, L_ResumePrinter_Text, L_CancelDocs_Text, L_CancelAllDocs_Text Dim L_PauseDoc_Text, L_ResumeDoc_Text, L_Connect_Text, L_DocumentActions_Text, L_Cancel_Text Dim L_CancelDelDoc_Text, L_Pause_Text, L_Resume_Text L_NavTitle_Text = "" L_View_Text = OleCvt.ASPString(IDS_ASP_VIEW_CAP) L_PrinterActions_Text = OleCvt.ASPString(IDS_ASP_PRINTER_ACTION_CAP) L_DocList_Text = OleCvt.ASPString(IDS_ASP_DOC_LIST) L_Property_Text = OleCvt.ASPString(IDS_ASP_PROPERTY) L_Detail_Text = OleCvt.ASPString(IDS_ASP_DEVICE_STATUS) L_GoDocList_Text = OleCvt.ASPString(IDS_ASP_GO_DOCLIST_PRINTER) L_GotoList_Text = OleCvt.ASPString(IDS_ASP_GO_DOCLIST) L_GoPropPage_Text = OleCvt.ASPString(IDS_ASP_GO_PROPERTY) L_GoDevStatus_Text = OleCvt.ASPString(IDS_ASP_GO_STATUS) L_Select_Text = OleCvt.ASPString(IDS_ASP_SELECT_DOC) L_AllPrinters_Text = OleCvt.ASPString(IDS_ASP_ALL_PRINTER) L_PausePrinter_Text = OleCvt.ASPString(IDS_ASP_PAUSE_PRINTER) L_ResumePrinter_Text = OleCvt.ASPString(IDS_ASP_RESUME_PRINTER) L_CancelDocs_Text = OleCvt.ASPString(IDS_ASP_CANCEL_DOC) L_CancelAllDocs_Text = OleCvt.ASPString(IDS_ASP_CANCEL_ALL_DOC) L_PauseDoc_Text = OleCvt.ASPString(IDS_ASP_PAUSE_DOC) L_ResumeDoc_Text = OleCvt.ASPString(IDS_ASP_RESUME_DOC) L_CancelDelDoc_Text = OleCvt.ASPString(IDS_ASP_DELETE_DOC) L_Pause_Text = OleCvt.ASPString(IDS_ASP_PAUSE) L_Resume_Text = OleCvt.ASPString(IDS_ASP_RESUME) L_Connect_Text = OleCvt.ASPString(IDS_ASP_CONNECT) L_DocumentActions_Text = OleCvt.ASPString(IDS_ASP_DOC_ACTION) L_Cancel_Text = OleCvt.ASPString(IDS_ASP_CANCEL) CONST VIEW_EQUALS_Q = "&view=q" CONST VIEW_EQUALS_P = "&view=p" CONST VIEW_EQUALS_D = "&view=d" Function GetHighlightLink (strLinkView, strLinkName) If strLinkView = strView Then GetHighlightLink = Write(SUBMENU_FONT_TAG & "" & strLinkName & "" & END_FONT) Else GetHighlightLink = Write(SUBMENU_FONT_TAG & strLinkName & END_FONT) End If End Function %> > <%=Write(L_NavTitle_Text)%> <%=Write(DEF_BASEFONT_TAG)%> <% If strASP1 <> "" then %> <% end if%> <% if Request(CONNECT) = "1" And request.servervariables ("LOCAL_ADDR") <> request.servervariables ("REMOTE_ADDR") then %> <% end if %> <% If strView = "q" Then %> <% End If %>

<%=Write(MENU_FONT_TAG & "" & L_View_Text & "" & END_FONT)%>
	" target="_top" title = "<% =Write(L_GoDocList_Text)%>" > <% =GetHighlightLink ("q", L_DocList_Text)%>
	" target="_top" title = "<% =Write(L_GoPropPage_Text) %>" > <% =GetHighlightLink ("p", L_Property_Text)%>
	" target="_top" title = "<%=Write(L_GoDevStatus_Text) %>" > <% =GetHighlightLink ("d", L_Detail_Text)%>
	<%= Write(SUBMENU_FONT_TAG & L_AllPrinters_Text & END_FONT)%>
<%=Write(MENU_FONT_TAG & "" & L_PrinterActions_Text & "" & END_FONT)%>
	&action=pause&page=<%=CStr(Int(Rnd*10000))%>" target="_top" title = "<% =Write(L_PausePrinter_Text) %>"><%=Write(SUBMENU_FONT_TAG & L_Pause_Text & END_FONT)%>
	&action=resume&page=<%=CStr(Int(Rnd*10000))%>" target="_top" title = "<% = Write(L_ResumePrinter_Text) %>"><%=Write(SUBMENU_FONT_TAG & L_Resume_Text & END_FONT)%>
	&action=purge&page=<%=CStr(Int(Rnd*10000))%>" target="_top" title = "<% =Write(L_CancelDocs_Text) %>"> <%=Write(SUBMENU_FONT_TAG & L_CancelAllDocs_Text & END_FONT)%>
<%=Write(MENU_FONT_TAG & "" & L_DocumentActions_Text & "" & END_FONT)%>
	"return getHref('pausejob',null);" target="_top" title = "<% =Write(L_PauseDoc_Text) %>"><%=Write(SUBMENU_FONT_TAG & L_Pause_Text & END_FONT)%>
	"return getHref('resumejob',null);" target="_top" title= "<% =Write(L_ResumeDoc_Text) %>"><%=Write(SUBMENU_FONT_TAG & L_Resume_Text & END_FONT)%>
	"return getHref('canceljob',null);" target="_top" title= "<% =Write(L_CancelDelDoc_Text) %>"><%=Write(SUBMENU_FONT_TAG & L_Cancel_Text & END_FONT)%>