| Server IP : 121.121.20.254 / Your IP : 216.73.216.59 Web Server : Microsoft-IIS/10.0 System : Windows NT WEB-SERVER 10.0 build 20348 (Windows Server 2022) AMD64 User : IUSR ( 0) PHP Version : 8.3.28 Disable Function : NONE MySQL : ON | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/Windows/Web/Printers/ |
Upload File : |
<%@ CODEPAGE=65001 %>
<%
'------------------------------------------------------------
'
' Microsoft Internet Printing Project
'
' Copyright (c) Microsoft Corporation. All rights reserved.
'
'------------------------------------------------------------
option explicit
%>
<!-- #include file = "ipp_util.inc" -->
<%
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 = "<title>" & OleCvt.ASPString(IDS_ASP_NAV_BAR) & "</title>"
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 & "<font color=#0000FF>" & strLinkName & "</font>" & END_FONT)
Else
GetHighlightLink = Write(SUBMENU_FONT_TAG & strLinkName & END_FONT)
End If
End Function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html lang=<%=L_Language%>>
<head>
<Meta Http-equiv="Content-Type" Content="text/html; CHARSET=UTF-8">
<%=Write(L_NavTitle_Text)%>
<base target="main">
</head>
<script language="javascript">
function getHref (action, thishref)
{
var jobid, iStart, iEnd;
if (parent.frames[2].document.URL.indexOf("<%=QUEUE_VIEW%>") == -1) {
alert ("<%=Write(L_GotoList_Text)%>");
return true;
}
else {
jobid = parent.frames[2].document.forms[1].elements[0].value;
iStart = parent.frames[2].document.forms[1].elements[1].value;
iEnd = parent.frames[2].document.forms[1].elements[2].value;
if (jobid == "" || iStart == "" || iEnd == "") {
alert ("<%=Write(L_Select_Text)%>");
return false;
}
else {
parent.location.href = "ipp_0004.asp?eprinter=<%=Request("eprinter")%>&action=" + action + "&jobid=" + jobid + "&StartId=" + iStart + "&EndId=" + iEnd + "&page=<%=CStr(Int(Rnd*10000))%>";
return false;
}
}
}
//
// Use this to access the hidden jobvalue. It will be compatible with IE3 -> IE4
//
// alert (parent.frames[1].document.forms[0].elements[0].value);
//
</script>
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000"
topmargin="0" leftmargin="0">
<%=Write(DEF_BASEFONT_TAG)%>
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td width="30" colspan="2" >
<img src="images/ipp_0002.gif">
</td>
</tr>
<tr>
<th colspan="2" align="left" bgcolor="#000000">
<%=Write(MENU_FONT_TAG & "<b>" & L_View_Text & "</b>" & END_FONT)%>
</th>
</tr>
<tr>
<td width="30"> </td>
<td width="100%"><a href="ipp_0004.asp?eprinter=<%=Request("eprinter") & VIEW_EQUALS_Q & ATPAGE & CStr(Int(Rnd*10000))%>"
target="_top"
title = "<% =Write(L_GoDocList_Text)%>" >
<% =GetHighlightLink ("q", L_DocList_Text)%> </a> </td>
</tr>
<tr>
<td width="30"></td>
<td width="100%"><a href="ipp_0004.asp?eprinter=<%=Request("eprinter") & VIEW_EQUALS_P & ATPAGE & CStr(Int(Rnd*10000))%>"
target="_top"
title = "<% =Write(L_GoPropPage_Text) %>" >
<% =GetHighlightLink ("p", L_Property_Text)%></a></td>
</tr>
<% If strASP1 <> "" then %>
<tr>
<td width="30"></td>
<td width="100%"><a href="ipp_0004.asp?eprinter=<%=Request("eprinter") & VIEW_EQUALS_D & ATPAGE & CStr(Int(Rnd*10000))%>"
target="_top"
title = "<%=Write(L_GoDevStatus_Text) %>" >
<% =GetHighlightLink ("d", L_Detail_Text)%></a></td>
</tr>
<% end if%>
<tr>
<td width="30"></td>
<td width="100%" ><a href="ipp_0001.asp" target="_top"
title = "<% =Write(OleCvt.ASPString1(IDS_ASP_LIST_ALL_PRINTER,session(LOCAL_SERVER)))%>" >
<%= Write(SUBMENU_FONT_TAG & L_AllPrinters_Text & END_FONT)%></a></td>
</tr>
<tr>
<td colspan="2" height="15"></td>
</tr>
<tr>
<th colspan="2" align="left" bgcolor="#000000"> <%=Write(MENU_FONT_TAG & "<b>" & L_PrinterActions_Text & "</b>" & END_FONT)%> </th>
</tr>
<tr>
<td width="30"></td>
<td width="100%"><a href="ipp_0004.asp?eprinter=<%=Request("eprinter")%>&action=pause&page=<%=CStr(Int(Rnd*10000))%>"
target="_top"
title = "<% =Write(L_PausePrinter_Text) %>"><%=Write(SUBMENU_FONT_TAG & L_Pause_Text & END_FONT)%></a></td>
</tr>
<tr>
<td width="30"></td>
<td width="100%"><a href="ipp_0004.asp?eprinter=<%=Request("eprinter")%>&action=resume&page=<%=CStr(Int(Rnd*10000))%>"
target="_top"
title = "<% = Write(L_ResumePrinter_Text) %>"><%=Write(SUBMENU_FONT_TAG & L_Resume_Text & END_FONT)%></a></td>
</tr>
<tr>
<td width="30"></td>
<td width="100%"><a href="ipp_0004.asp?eprinter=<%=Request("eprinter")%>&action=purge&page=<%=CStr(Int(Rnd*10000))%>"
target="_top"
title = "<% =Write(L_CancelDocs_Text) %>"> <%=Write(SUBMENU_FONT_TAG & L_CancelAllDocs_Text & END_FONT)%> </a></td>
</tr>
<% if Request(CONNECT) = "1" And request.servervariables ("LOCAL_ADDR") <> request.servervariables ("REMOTE_ADDR") then %>
<script language="vbscript">
Dim objHelper
On Error Resume Next
Err.Clear
Set objHelper = CreateObject("<% =PROGID_CLIENT_HELPER %>")
If Err.Number = 0 Then
Dim strInstall
strInstall = "<tr><td width=""30""></td><td width=""100%""><a href=ipp_0015.asp?eprinter=<%=Request("eprinter") & VIEW_EQUALS & strView%>" & " target=""_top""" & " title=" & """<%=Write(strInstall)%>""" & ">" &_
"<%= Write("<font " & DEF_DOUBLEFONT & " size = 2><b>" & L_Connect_Text & "</b>" & END_FONT)%>" & "</a></td></tr>"
Set objHelper = nothing
Document.Write (strInstall)
End If
</script>
<% end if %>
<tr>
<td width="30" colspan="2" height="15">
</td>
</tr>
<% If strView = "q" Then %>
<tr>
<th colspan="2" align="left" bgcolor="#000000"> <%=Write(MENU_FONT_TAG & "<b>" & L_DocumentActions_Text & "</b>" & END_FONT)%> </th>
</tr>
<tr>
<td width="30"></td>
<td width="100%"><a href="ipp_0004.asp?eprinter=<%=Request("eprinter") & VIEW_EQUALS_Q & ATPAGE & CStr(Int(Rnd*10000)) & QUOTE & ONCLICK_EQUALS%>"return getHref('pausejob',null);"
target="_top" title = "<% =Write(L_PauseDoc_Text) %>"><%=Write(SUBMENU_FONT_TAG & L_Pause_Text & END_FONT)%></a></td>
</tr>
<tr>
<td width="30"></td>
<td width="100%"><a href="ipp_0004.asp?eprinter=<%=Request("eprinter") & VIEW_EQUALS_Q & ATPAGE & CStr(Int(Rnd*10000)) & QUOTE & ONCLICK_EQUALS%>"return getHref('resumejob',null);"
target="_top" title= "<% =Write(L_ResumeDoc_Text) %>"><%=Write(SUBMENU_FONT_TAG & L_Resume_Text & END_FONT)%></a></td>
</tr>
<tr>
<td width="30"></td>
<td width="100%"><a href="ipp_0004.asp?eprinter=<%=Request("eprinter") & VIEW_EQUALS_Q & ATPAGE & CStr(Int(Rnd*10000)) & QUOTE & ONCLICK_EQUALS%>"return getHref('canceljob',null);"
target="_top" title= "<% =Write(L_CancelDelDoc_Text) %>"><%=Write(SUBMENU_FONT_TAG & L_Cancel_Text & END_FONT)%></a></td>
</tr>
<% End If %>
</table>
</body>
</html>