<%@ CODEPAGE=65001 'UTF-8%> <%' certrsis.asp - (CERT)srv web - (R)e(S)ult: (IS)sued ' Copyright (C) Microsoft Corporation, 1998 - 1999 %> <% ' came from certfnsh.asp ' from \nt\public\sdk\inc\certcli.h Const CR_OUT_BASE64HEADER=&H00000000 Const CR_OUT_BASE64 =&H00000001 Const CR_OUT_BINARY =&H00000002 Const CR_OUT_CHAIN =&H00000100 Const FR_PROP_FULLRESPONSE =&H00000001 Const PROPTYPE_BINARY =&H00000003 ' Strings To Be Localized Const L_InstallCert_Message="Install certificate" Const L_DownloadCert_Message="Download certificate" Const L_DownloadChain_Message="Download certificate chain" Set ICertRequest=Session("ICertRequest") sMode=Request.Form("Mode") If "IE"=sBrowser And "no"=Request.Form("SaveCert") Then ' get the cert chain and save in on this page so the client can install it Public sPKCS7 Dim sCertificate sCertificate=ICertRequest.GetFullResponseProperty(FR_PROP_FULLRESPONSE, 0, PROPTYPE_BINARY, CR_OUT_BASE64) sPKCS7=FormatBigString(sCertificate, " sPKCS7=sPKCS7 & ") End If '----------------------------------------------------------------- ' Format the big string as a concatenated VB string, breaking at the embedded newlines Function FormatBigString(sSource, sLinePrefix) Dim sResult, bCharsLeft, nStartChar, nStopChar, chQuote sResult="" chQuote=chr(34) bCharsLeft=True nStopChar=1 While (bCharsLeft) nStartChar=nStopChar nStopChar=InStr(nStopChar, sSource, vbNewLine) If (nStopChar>0) Then sResult=sResult & sLinePrefix & chQuote & Mid(sSource, nStartChar, nStopChar-nStartChar) & chQuote & " & vbNewLine" If (nStopChar>=Len(sSource)-Len(vbNewLine)) Then bCharsLeft=False End If Else bCharsLeft=False End if sResult=sResult & vbNewLine nStopChar=nStopChar+Len(vbNewLine) Wend FormatBigString=sResult End Function %> Microsoft Certificate Services OnLoad="postLoad();" <%End If%>>
Microsoft Certificate Services  --  <%=sServerDisplayName%>   Home

Certificate Issued

The certificate you requested was issued to you.

<%If "Text"<>sBrowser And "no"<>Request.Form("SaveCert") Then%> <%End If%> <%If "IE"=sBrowser And "no"=Request.Form("SaveCert") Then%> <%ElseIf "NN"=sBrowser And "no"=Request.Form("SaveCert") Then%> <%ElseIf "Text"=sBrowser Then%> <%ElseIf "IE"=sBrowser Then%> <%Else%> <%End If%>
 or 
Install this certificate Install this certificate Download certificate: DER Encoded or Base 64 encoded
Download certificate chain: DER Encoded or Base 64 encoded 		Download certificate
Download certificate chain 		Download certificate
Download certificate chain

<%If "IE"=sBrowser And "no"=Request.Form("SaveCert") And "chkpnd"=Request.Form("Mode")Then%> <%End If%>
<%bIncludeXEnroll=True%> <%bIncludeGetCspList=False%> <%If "IE"=sBrowser And "no"=Request.Form("SaveCert") Then%>
<%ElseIf "Text"<>sBrowser Then%> <%Else '"IE"<>sBrowser%> <%End If%> <%Session.Abandon()%>