| Server IP : 121.121.20.254 / Your IP : 216.73.217.51 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" -->
<%
Response.Expires = 0
Dim strTitlePrintError_Text, strError_WebPnPDownload_Disabled, strUnknownErr_Message
strTitlePrintError_Text = OleCvt.ASPString(IDS_ASP_INET_ERROR)
strError_WebPnPDownload_Disabled = OleCvt.ASPString(IDS_ASP_DOWNLOAD_DISABLED)
strUnknownErr_Message = OleCvt.ASPString(IDS_ASP_UNKNOWN_ERROR)
%>
<!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">
<title><% =Write(strTitlePrintError_Text) %></title>
</head>
<body>
<%=Write(CLIENT_FONT)%><p>
<%
Dim strPrtFail_Text
strPrtFail_Text = "<H2>" & OleCvt.ASPString(IDS_ASP_PRINTER_INSTALL_FAILED) & "</H2>"
%>
<%=Write(strPrtFail_Text)%>
</p>
<font size=2>
<%
Dim iCode
Dim strError
iCode = Request("code")
If iCode <> "" Or iCode <>"0" Then
If iCode = 1260 Then ' 1260 is for the ERROR_ACCESS_DISABLED_BY_POLICY constant.
strError = strError_WebPnPDownload_Disabled
Else
Dim objPrinter
Set objPrinter = Server.CreateObject (PROGID_HELPER)
On Error Resume Next
Err.Clear
strError = objPrinter.ErrorDscp (iCode)
If Err.Number <> 0 Then
strError = OleCvt.ASPString1(IDS_ASP_ERROR_CODE_2, Hex (iCode))
End If
End If
Else
strError = strUnknownErr_Message
End If
Response.Write (Write (strError))
%>
</font>
<%=END_FONT%>
</body>
</html>