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.
|
|
<%@ CODEPAGE=65001 %> <%'------------------------------------------------------------'' Microsoft Internet Printing Project'' Copyright (c) Microsoft Corporation. All rights reserved.'''------------------------------------------------------------ option explicit%><!-- #include file = "ipp_util.inc" --><% CheckSession Response.Expires = 0
Dim strPrinter, strLocal, strJobEta Dim objPrinter, objQueue Const L_OpenPrinter_Text = "Open Printer: %1"
strPrinter = OleCvt.DecodeUnicodeName (request ("eprinter"))
strLocal = session(LOCAL_SERVER)
Set objQueue = GetObject("WinNT://" & session(COMPUTER) & "/" & strPrinter)
Dim strTitle Const L_PrinterOn_Text = "%1 on %2"
strTitle = LARGE_FONT_TAG & RepString2(L_PrinterOn_Text, strCleanString (GetFriendlyName (objQueue.PrinterName, session(COMPUTER))), session(LOCAL_SERVER)) & END_FONT
Set objPrinter = Server.CreateObject(PROGID_HELPER) On Error Resume Next objPrinter.open "\\" & session(COMPUTER) & "\" & strPrinter If Err Then Call ErrorHandler ( RepString1(L_OpenPrinter_Text, strPrinter) ) End If
strJobEta = JobEtaInfo (objPrinter)
objPrinter.Close
%>
<!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"><meta http-equiv="refresh" content="60"></head>
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#808080" alink="#000000"topmargin="0" leftmargin="0">
<table width="100%" border=0 cellspacing="0" cellpadding="2"> <tr> <td nowrap><% =Write (strTitle) %> <br><hr width=100% size=1 noshade color=red> <% =Write(strJobEta) %> </td> </tr></table>
</body></html>
|
