mirror of https://github.com/tongzx/nt5src
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.
102 lines
3.7 KiB
102 lines
3.7 KiB
<%@ CODEPAGE=65001 'UTF-8%>
|
|
<%' certrspn.asp - (CERT)srv web - (R)e(S)ult: (P)e(N)ding
|
|
' Copyright (C) Microsoft Corporation, 1998 - 1999 %>
|
|
<!-- #include FILE=certsbrt.inc -->
|
|
<!-- #include FILE=certdat.inc -->
|
|
<!-- #include FILE=certsrck.inc -->
|
|
<% ' came from certfnsh.asp
|
|
|
|
Set ICertRequest=Session("ICertRequest")
|
|
sMode=Request.Form("Mode")
|
|
|
|
'Stop
|
|
|
|
' If this is a new request, add it to the user's cookie
|
|
If 0<>InStr(sMode,"newreq") Then
|
|
AddRequest
|
|
End If
|
|
%>
|
|
<HTML>
|
|
<Head>
|
|
<Meta HTTP-Equiv="Content-Type" Content="text/html; charset=UTF-8">
|
|
<Title>Microsoft Certificate Services</Title>
|
|
</Head>
|
|
<Body BgColor=#FFFFFF Link=#0000FF VLink=#0000FF ALink=#0000FF OnLoad="postLoad();"><Font ID=locPageFont Face="Arial">
|
|
|
|
<Table Border=0 CellSpacing=0 CellPadding=4 Width=100% BgColor=#008080>
|
|
<TR>
|
|
<TD><Font Color=#FFFFFF><LocID ID=locMSCertSrv><Font Face="Arial" Size=-1><B><I>Microsoft</I></B> Certificate Services -- <%=sServerDisplayName%> </Font></LocID></Font></TD>
|
|
<TD ID=locHomeAlign Align=Right><A Href="/certsrv"><Font Color=#FFFFFF><LocID ID=locHomeLink><Font Face="Arial" Size=-1><B>Home</B></Font></LocID></Font></A></TD>
|
|
</TR>
|
|
</Table>
|
|
|
|
<P ID=locPageTitle> <B> Certificate Pending </B>
|
|
<!-- Green HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD></TR></Table>
|
|
|
|
<%If 0<>InStr(sMode,"newreq") Then%>
|
|
<P ID=locInfoNewReq> Your certificate request has been received. However, you must wait for an
|
|
administrator to issue the certificate you requested. </P>
|
|
<%ElseIf "chkpnd"=sMode Then%>
|
|
<P ID=locInfoChkPnd> Your certificate request is still pending. You must wait for an
|
|
administrator to issue the certificate you requested. </P>
|
|
<%End If%>
|
|
|
|
<P ID=locInstructions> Please return to this web site in a day or two to retrieve your certificate.</P>
|
|
<P ID=locTimeoutWarning><Font Size=-1><B>Note:</B> You must return with <B>this</B> web browser within <%=nPendingTimeoutDays%> days to retrieve your
|
|
certificate</Font></P>
|
|
|
|
<%If "chkpnd"=sMode Then%>
|
|
<Form Action="certrmpn.asp" Method=Post>
|
|
<Input Type=Hidden Name=Action Value="rmpn">
|
|
<Input Type=Hidden Name=ReqID Value="<%=Request.Form("ReqID")%>">
|
|
<P><Input ID=locBtnRemove Type=Submit Value="Remove"> - Remove this request from your list of pending requests.
|
|
</Form>
|
|
<%End If%>
|
|
|
|
|
|
<!-- Green HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD></TR></Table>
|
|
<!-- White HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#FFFFFF><Img Src="certspc.gif" Alt="" Height=5 Width=1></TD></TR></Table>
|
|
|
|
</Font>
|
|
<!-- ############################################################ -->
|
|
<!-- End of standard text. Scripts follow -->
|
|
|
|
<Script Language="VBScript">
|
|
Sub postLoad
|
|
On Error Resume Next
|
|
<%If 0<>InStr(sMode,"newreq") Then%>
|
|
'set pending info
|
|
Dim n
|
|
Dim sServerConfig
|
|
Dim nReqId
|
|
Dim sCADNS
|
|
Dim sCAName
|
|
Dim sThumbPrint
|
|
Dim objXEnroll
|
|
Dim sFriendlyName
|
|
|
|
sThumbPrint="<%= Request.Form("ThumbPrint") %>"
|
|
If ""=sThumbPrint Then
|
|
Exit Sub
|
|
End If
|
|
Set objXEnroll = CreateObject("CEnroll.CEnroll.1")
|
|
sServerConfig="<%=sServerConfig%>"
|
|
nReqId = <%=nReqId%>
|
|
n = InStr(sServerConfig, "\")
|
|
sCADNS=Left(sServerConfig, n-1)
|
|
sCAName=Mid(sServerConfig, n+1)
|
|
sFriendlyName=""
|
|
'sFriendlyName="testName"
|
|
'Alert "requestId=" & nReqId & " CADNS=" & sCADNS & " CAName=" & sCAName & " ThumbPrint=" & sThumbPrint & " FriendlyName=" & sFriendlyName
|
|
objXEnroll.ThumbPrint=sThumbPrint
|
|
objXEnroll.setPendingRequestInfo nReqId, sCADNS, sCAName, sFriendlyName
|
|
|
|
Set objXEnroll=Nothing
|
|
<%End If%>
|
|
End Sub
|
|
|
|
</Script>
|
|
|
|
</Body>
|
|
</HTML>
|
|
<%Session.Abandon()%>
|