<%@ CODEPAGE=65001 %> <% '------------------------------------------------------------ ' ' Microsoft Internet Printing Project ' ' Copyright (c) Microsoft Corporation. All rights reserved. ' ' Printer Job List ' '------------------------------------------------------------ Option Explicit %> <% Const CHECKED_TAG = " checked " Randomize CheckSession Response.Expires = 0 Const SelectedColor = "#c0c0c0" Const UnselectedColor = "#ffffff" Const iJobLength = 10 Const L_OpenQueue_Text = "Open Queue" Const L_GetJobs_Text = "Get Jobs" Dim strPrinter, strAction, strComputer, strJobid, objQueue, objJobs, objJob, iRes, bDHTML Dim objPrinter Dim iStart, iEnd Dim index index = -1 strPrinter = Request("eprinter") if Len(strPrinter) > MAX_ENCODED_PRINTER_NAME_LENGTH Then Call ErrorHandler(L_InvalidParameter_Text) Else strPrinter = OleCvt.DecodeUnicodeName(strPrinter) End If strAction = Request("action") strJobid = Request("jobid") strComputer = Session(COMPUTER) bDHTML = Session(DHTML_ENABLED) On Error Resume Next Err.Clear If Request("startid") = "" Or Request ("endid") = "" Then iStart = 1 iEnd = iStart+ iJobLength Else iStart = Int (Request ("startid")) iEnd = Int (Request ("endid")) End If Set objQueue = GetObject("WinNT://" & strComputer & "/" & strPrinter & ",PrintQueue") If Err Then ErrorHandler (OleCvt.ASPString(IDS_ASP_OPEN_QUEUE)) Set objJobs = objQueue.PrintJobs If Err Then ErrorHandler (OleCvt.ASPString(IDS_ASP_GET_JOBS)) Function strJobStatus(iStatus) Dim L_JobStatus_Text(11) Dim bit, i Dim strTemp, bFirst Const L_Seperator_Text = " - " L_JobStatus_Text(0) = OleCvt.ASPString(IDS_ASP_PAUSED) L_JobStatus_Text(1) = OleCvt.ASPString(IDS_ASP_ERROR) L_JobStatus_Text(2) = OleCvt.ASPString(IDS_ASP_DELETING) L_JobStatus_Text(3) = OleCvt.ASPString(IDS_ASP_SPOOLING) L_JobStatus_Text(4) = OleCvt.ASPString(IDS_ASP_PRINTING) L_JobStatus_Text(5) = OleCvt.ASPString(IDS_ASP_OFFLINE) L_JobStatus_Text(6) = OleCvt.ASPString(IDS_ASP_OUT_PAPER) L_JobStatus_Text(7) = OleCvt.ASPString(IDS_ASP_PRINTED) L_JobStatus_Text(8) = OleCvt.ASPString(IDS_ASP_DELETED) L_JobStatus_Text(9) = OleCvt.ASPString(IDS_ASP_BLOCKED) L_JobStatus_Text(10) = OleCvt.ASPString(IDS_ASP_INTERVENTION) L_JobStatus_Text(11) = OleCvt.ASPString(IDS_ASP_RESTART) bit = 1 i = 0 bFirst = True strTemp = "" For i = 0 To 11 If iStatus And bit Then If Not bFirst Then strTemp = strTemp + L_Seperator_Text End If strTemp = strTemp + L_JobStatus_Text(i) bFirst = False End If bit = bit * 2 Next If strTemp = "" Then strTemp = " " strJobStatus = strTemp End Function Function GenQueueViewHead () Dim L_TableHeader1_Text, L_TableHeader2_Text, L_TableHeader3_Text Dim L_TableHeader4_Text, L_TableHeader5_Text, L_TableHeader6_Text L_TableHeader1_Text = "" & OleCvt.ASPString(IDS_ASP_DOCUMENT) & "" L_TableHeader2_Text = "" & OleCvt.ASPString(IDS_ASP_STATUS) & "" L_TableHeader3_Text = "" & OleCvt.ASPString(IDS_ASP_OWNER) & "" L_TableHeader4_Text = "" & OleCvt.ASPString(IDS_ASP_PAGES) & "" L_TableHeader5_Text = "" & OleCvt.ASPString(IDS_ASP_SIZE) & "" L_TableHeader6_Text = "" & OleCvt.ASPString(IDS_ASP_SUBMITTED) & "" GenQueueViewHead = "" & _ "" & MENU_FONT_TAG & L_TableHeader1_Text & END_FONT & "" &_ "" & MENU_FONT_TAG & L_TableHeader2_Text & END_FONT & "" &_ "" & MENU_FONT_TAG & L_TableHeader3_Text & END_FONT & "" &_ "" & MENU_FONT_TAG & L_TableHeader4_Text & END_FONT & "" &_ "" & MENU_FONT_TAG & L_TableHeader5_Text & END_FONT & "" &_ "" & MENU_FONT_TAG & L_TableHeader6_Text & END_FONT & "" &_ "" End Function Function GenQueueViewBody (objJob, i) Dim strHTML Dim TdStart, TdEnd TdStart = "" & DEF_FONT_TAG TdEnd = END_FONT & "" If objJob.Name = strJobid Then index = i End If strHTML = strHTML & "" &_ TdStart & " " &_ strCleanString (objjob.Description) & TdEnd &_ TdStart & strJobStatus(objJob.status) & TdEnd &_ TdStart & objJob.user & TdEnd If objJob.totalpages > 0 Then strHTML = strHTML & TdStart & objJob.totalpages & TdEnd Else strHTML = strHTML & TdStart & " " & TdEnd End If If objJob.size > 0 Then strHTML = strHTML & TdStart & strFormatJobSize (objJob.size) & TdEnd Else strHTML = strHTML & TdStart & " " & TdEnd End If strHTML = strHTML & TdStart & formatdatetime(objJob.timesubmitted, 3) & " " &_ formatdatetime(objJob.timesubmitted, 2) & TdEnd & "" GenQueueViewBody = strHTML End Function %> > <%=Write (L_DocumentList_Text)%>
<%if bDHTML then %>
<% end if%> <%= Write (GenQueueViewHead) %> <% Dim i Dim bShowNext bShowNext = FALSE i = 1 For Each objJob In objJobs If (i >= iEnd) Then bShowNext = TRUE Exit For End If If (i >= istart) Then Response.Write (Write (GenQueueViewBody (objJob, i))) 'Response.Write (GenQueueViewBody (objJob, i)) End If i = i + 1 Next %>
<% If i = 1 Then 'No job in the printer queue Dim strNoJob_Text strNoJob_Text = "

" & OleCvt.ASPString(IDS_ASP_NO_JOB_IN_QUEUE)& "
" Response.Write (Write(DEF_FONT_TAG & strNoJob_Text & END_FONT)) End If Dim strUrl strUrl = "" &_ OleCvt.ASPString1(IDS_ASP_PRE_DOC, CStr (iJobLength)) & "    " If iStart > 1 Then Response.Write ( Write(DEF_FONT_TAG & strUrl & END_FONT)) End If strUrl = "" &_ OleCvt.ASPString1(IDS_ASP_NEX_DOC, CStr (iJobLength)) & "" If bShowNext Then Response.Write ( Write(DEF_FONT_TAG & strUrl & END_FONT)) End If %> <%if bDHTML then%>
<% end if %> <%if index > 0 then%> <%end if%>