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 'UTF-8%><%' certrqxt.asp - (CERT)srv web - (R)e(Q)uest, e(XT)ernally created ' Copyright (C) Microsoft Corporation, 1998 - 1999 %><!-- #include FILE=certsbrt.inc --><!-- #include FILE=certdat.inc --><% Dim sBrowserDependentLineBreak If "Text"<>sBrowser Then sBrowserDependentLineBreak="<BR>" Else sBrowserDependentLineBreak="" 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>
<Form Name=UIForm OnSubmit="goNext();return false;" Action="certlynx.asp" Method=Post><Input Type=Hidden Name=SourcePage Value="certrqxt">
<P><LocID ID=locPageTitle> <B> Submit a Certificate Request or Renewal Request</B></LocID><!-- 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 "IE"=sBrowser Then%><Span ID=spnFixTxt Style="display:none"> <Table Border=0 CellSpacing=0 CellPadding=4 Style="Color:#FF0000"><TR><TD><LocID ID=locBlankError> <I>The request field may not be left blank.</I> Please paste a request in the field and try again. </TD></LocID></TR></Table></Span><%End If%>
<P><LocID ID=locInstructions>To submit a saved request to the CA, paste a base-64-encoded CMC or PKCS #10 certificate request or PKCS #7 renewal request generated by an external source (such as a Web server) in the Saved Request box.</LocID></P>
<Table Border=0 CellSpacing=0 CellPadding=0> <TR> <!-- establish column widths. --> <TD><Img Src="certspc.gif" Alt="" Height=1 Width=<%=L_LabelColWidth_Number%>></TD> <!-- label column, top border --> <TD RowSpan=59><Img Src="certspc.gif" Alt="" Height=1 Width=4></TD> <!-- label spacing column --> <TD></TD> <!-- field column --> </TR> <TR> <TD ColSpan=3><Font Face="Arial" Size=-1><Label For=locTaRequest><LocID ID=locSavedReqHead><B>Saved Request:</B></LocID></Label></Font></TD> </TR><TR><TD ColSpan=3 BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD> </TR><TR><TD ColSpan=3><Img Src="certspc.gif" Alt="" Height=3 Width=1></TD></TR> <TR> <TD Align=Left><Span ID=spnPasteLabel><LocID ID=SavedReqLabel><Font Face="Arial" Size=-1>Base-64-encoded <%=sBrowserDependentLineBreak%> certificate request <%=sBrowserDependentLineBreak%> (CMC or <%=sBrowserDependentLineBreak%> PKCS #10 or <%=sBrowserDependentLineBreak%> PKCS #7):</Font></LocID></Span></TD> <TD><TextArea ID=locTaRequest Rows=6 Cols=40 Name=taRequest Wrap=Off></TextArea></TD> </TR><TR><TD ColSpan=3 Height=3></TD> </TR><TR><TD></TD> <TD><%If "IE"=sBrowser Then%> <LocID ID=locBrowse><Font Face="Arial" Size=-1><Span tabindex=0 Style="cursor:hand; color:#0000FF; text-decoration:underline;" OnContextMenu="return false;" OnKeyDown="if (13==event.keyCode) {BeginRead();blur();return false;} else if (9==event.keyCode) {return true;};return false;" OnClick="BeginRead();blur();return false;" OnMouseOver="window.status=L_BrowseLink_Message;return true;" OnMouseOut="window.status='';return true;">Browse for a file to insert</Span>. </Font></LocID> <Span ID=spRead Style="display:none"> <Table Border=0 CellSpacing=0 CellPadding=0> <TR><TD Height=5></TD> <TR> <TD Width=6></TD> <TD Width=3 BgColor=#008080></TD> <TD Width=4></TD> <TD> <LocID ID=locFileNameLabel>Full path name:</LocID> <Input ID=locFlRequest Type=File Size=40 Name=flRequest><BR> <Input ID=locBtnRead Type=Button Value="Read!" onClick="FinishRead();blur();" Style="font-weight:bold"> <Input ID=locBtnCancel Type=Button Value="Cancel" onClick="spRead.style.display='none';blur();">
</TD> </TR> </Table> </Span> <%End If%></TD> </TR>
<%If "Enterprise"=sServerType Then%> <TR> <TD ColSpan=3><LocID ID=locCertTmplFont><Font Face="Arial" Size=-1><%If "Text"=sBrowser Then%><P><%Else%><BR><%End If%><Label For=lbCertTemplateID><LocID ID=locTemplateHead><B>Certificate Template:</B></LocID></Label></Font></LocID></TD> </TR><TR><TD ColSpan=3 BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD> </TR><TR><TD ColSpan=3><Img Src="certspc.gif" Alt="" Height=3 Width=1></TD> </TR><TR><TD></TD> <TD><Select Name=lbCertTemplate ID=lbCertTemplateID><% Dim nWriteTemplateResult nWriteTemplateResult=WriteTemplateList() %> </Select></TD> </TR> <%End If%>
<TR> <TD ColSpan=3><LocID ID=locAttrFont><Font Face="Arial" Size=-1><%If "Text"=sBrowser Then%><P><%Else%><BR><%End If%><Label For=locTaAttrib><LocID ID=locAttribHead><B>Additional Attributes:</B></LocID></Label></Font></LocID></TD> </TR><TR><TD ColSpan=3 BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD> </TR><TR><TD ColSpan=3><Img Src="certspc.gif" Alt="" Height=6 Width=1></TD> </TR>
<TR> <TD Align=Right><LocID ID=locAttribLabel><Font Face="Arial" Size=-1>Attributes:</Font></LocID></TD> <TD><TextArea ID=locTaAttrib Name=taAttrib Wrap=Off Rows=2 Cols=30></TextArea></TD> </TR>
<%If "StandAlone"<>sServerType And 0<>nWriteTemplateResult Then%><!-- submit button removed if there was an error getting the templates --><%Else%> <TR><TD ColSpan=3><Font Size=-1><BR></Font></TD></TR> <TR><TD ColSpan=3 BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD></TR> <TR><TD ColSpan=3><Img Src="certspc.gif" Alt="" Height=3 Width=1></TD></TR>
<TR><TD><TD Align=Right><LocID ID=locSubmitAlign> <Input Type=Submit ID=btnSubmit Value="Submit >" <%If "IE"=sBrowser Then%> Style="width:.75in"<%End If%>> </LocID></TD></TR> <TR><TD ColSpan=3 Height=20></TD></TR><%End If%>
</Table><P>
<!-- 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>
</Form></Font><!-- ############################################################ --><!-- End of standard text. Scripts follow --> <%bIncludeXEnroll=False%><%bIncludeGetCspList=False%><%bIncludeTemplateCode=True%><!-- #include FILE=certsgcl.inc -->
<!-- This form we fill in and submit 'by hand'--><Form Name=SubmittedData Action="certfnsh.asp" Method=Post> <Input Type=Hidden Name=Mode> <!-- used in request ('newreq'|'chkpnd') --> <Input Type=Hidden Name=CertRequest> <!-- used in request --> <Input Type=Hidden Name=CertAttrib> <!-- used in request --> <Input Type=Hidden Name=FriendlyType> <!-- used on pending --> <Input Type=Hidden Name=ThumbPrint> <!-- used on pending --> <Input Type=Hidden Name=TargetStoreFlags> <!-- used on install ('0'|CSSLM)--> <Input Type=Hidden Name=SaveCert> <!-- used on install ('no'|'yes')--></FORM>
<Script Language="JavaScript">
//---------------------------------------------------------------- // Strings to be localized <%If "IE"=sBrowser Then%> ; var L_BrowseLink_Message="Browse for a file to insert"; var L_ReadProhibited_ErrorMessage="Your web browser security settings prohibit this page from accessing your disk.\nEither paste the data into this page manually, or add this page to your browser's list of trusted sites."; var L_Unexpected_ErrorMessage="\"An unexpected error occurred while trying to read the file.\\n\\nError: \"+nResult"; var L_FileNotFound_ErrorMessage="The file you specified was not found or the drive you specified\nwas not ready. Please enter a valid file name."; var L_NoName_ErrorMessage="Please enter a file name."; <%End If%> <%If "StandAlone"<>sServerType Then%> ; var L_TemplateLoadErrNoneFound_ErrorMessage="No certificate templates could be found. You do not have permission to request a certificate from this CA, or an error occurred while accessing the Active Directory."; var L_TemplateLoadErrUnexpected_ErrorMessage="\"An unexpected error (\"+sErrorNumber+\") occurred while getting the certificate template list.\""; <%End If%> ; var L_NoBlank_ErrorMessage="The request field may not be left blank.\n Please paste a request in the field and try again."; var L_SavedReqCert_Text="Saved-Request Certificate";
//================================================================ // INITIALIZATION ROUTINES
//---------------------------------------------------------------- // This contains the functions we want executed immediately after load completes function postLoad() { <%If "StandAlone"<>sServerType And 0<>nWriteTemplateResult Then%> handleLoadError(<%=nWriteTemplateResult%>, L_TemplateLoadErrNoneFound_ErrorMessage, L_TemplateLoadErrUnexpected_ErrorMessage); <%End If%> }
<%If "StandAlone"<>sServerType Then%> //---------------------------------------------------------------- // handle errors from GetTemplateList() function handleLoadError(nResult, sNoneFound, sUnexpected) { if (-1==nResult) { alert(sNoneFound); } else { var sErrorNumber="0x"+toHex(nResult); alert(eval(sUnexpected)); } //document.UIForm.btnSubmit.disabled=true; } <%End If%>
<%If "IE"=sBrowser Then%> //================================================================ // FILE READ ROUTINES
//---------------------------------------------------------------- // IE SPECIFIC: // make sure that we have permision to do a read, then show // the file name box function BeginRead() { if (true==TestRead()) { spRead.style.display=''; document.UIForm.flRequest.focus() } else { alert(L_ReadProhibited_ErrorMessage); } }
//---------------------------------------------------------------- // IE SPECIFIC: function FinishRead() { spnFixTxt.style.display='none'; if (""==document.UIForm.flRequest.value) { handleReadError(5); return; } var nResult=GetFileData(); // use VBScript to read the file, since it can handle errors if (0!=nResult) { handleReadError(nResult); return; } spRead.style.display='none'; document.UIForm.btnSubmit.focus() }
//---------------------------------------------------------------- // IE SPECIFIC: function handleReadError(nResult) { var sMessage; var elemFocusMe=null; if (429==nResult) { sMessage=L_ReadProhibited_ErrorMessage; elemFocusMe=document.UIForm.flRequest; } else if (53==nResult || 76==nResult || 71==nResult) { sMessage=L_FileNotFound_ErrorMessage; elemFocusMe=document.UIForm.flRequest; } else if (5==nResult) { sMessage=L_NoName_ErrorMessage; elemFocusMe=document.UIForm.flRequest; } else { sMessage=eval(L_Unexpected_ErrorMessage); } // Show the error message alert(sMessage);
// place focus on offending control if (null!=elemFocusMe) { elemFocusMe.focus(); } } <%End If%>
//================================================================ // SUBMIT ROUTINES
//---------------------------------------------------------------- // determine what to do when the submit button is pressed function goNext() { SubmitRequest(); }
//---------------------------------------------------------------- // set a label to normal style function markLabelNormal(spn) { <%If "IE"=sBrowser Then%> spn.style.color="#000000"; spn.style.fontWeight='normal'; <%End If%> }
//---------------------------------------------------------------- // set a label to error state function markLabelError(spn) { <%If "IE"=sBrowser Then%> spn.style.color='#FF0000'; spn.style.fontWeight='bold'; <%End If%> }
//---------------------------------------------------------------- function validateRequest() { <%If "IE"<>sBrowser Then%> // work around for NN: label marking does nothing var spnPasteLabel; <%End If%>
markLabelNormal(spnPasteLabel); // Check for an empty request if (""==document.UIForm.taRequest.value) { bOK=false; markLabelError(spnPasteLabel); <%If "IE"=sBrowser Then%> spnFixTxt.style.display=''; window.scrollTo(0,0); <%Else%> alert(L_NoBlank_ErrorMessage); <%End If%> document.UIForm.taRequest.focus(); return false; }
// everything is OK return true; }
//---------------------------------------------------------------- function SubmitRequest() {
<%If "IE"=sBrowser Then%> spnFixTxt.style.display='none'; <%End If%>
// check that the form is filled in if (false==validateRequest()) { return; }
// set request document.SubmittedData.CertRequest.value=document.UIForm.taRequest.value;
// set defaults for values we need on install document.SubmittedData.TargetStoreFlags.value=0; // 0=Use default (=user store), but ignored when saving cert. document.SubmittedData.SaveCert.value="yes"; document.SubmittedData.Mode.value="newreq"; document.SubmittedData.FriendlyType.value=L_SavedReqCert_Text; // append the local date to the type document.SubmittedData.FriendlyType.value+=" ("+(new Date()).toLocaleString()+")"; //not created by xenroll, not supported document.SubmittedData.ThumbPrint.value="";
// make sure the arributes end cr/lf var sAttrib=document.UIForm.taAttrib.value; if (sAttrib.lastIndexOf("\r\n")!=sAttrib.length-2 && sAttrib.length>0) { sAttrib=sAttrib+"\r\n"; }
<%If "Enterprise"=sServerType Then%> // add an attribute for the cert type
// get the selected template var sRealName = getTemplateStringInfo(CTINFO_INDEX_REALNAME, null);
// set the cert template sAttrib+="CertificateTemplate:"+sRealName+"\r\n";
<%End If%>
// for interop debug purposes sAttrib+="UserAgent:<%=Request.ServerVariables("HTTP_USER_AGENT")%>\r\n";
// set the attributes document.SubmittedData.CertAttrib.value=sAttrib;
// Submit the cert request and move forward in the wizard document.SubmittedData.submit(); }
</Script>
<%If "IE"=sBrowser Then%><Script Language="VBSCRIPT">
'================================================================= ' FILE READ ROUTINES
'----------------------------------------------------------------- ' IE SPECIFIC: ' See if we have permision to access the file system Function TestRead() Dim filesystem On Error Resume Next ' See if we're allowed to create the FileSystem object Set filesystem=CreateObject("Scripting.FileSystemObject") ' Security may not allow this If Err.Number<>0 Then TestRead=False Else TestRead=True End If End Function
'----------------------------------------------------------------- ' IE SPECIFIC: ' read the given file into the text-area Function GetFileData() Dim filesystem, file On Error Resume Next ' First, create the FileSystem object Set filesystem=CreateObject("Scripting.FileSystemObject") ' Security may not allow this If Err.Number<>0 Then GetFileData=Err.Number Exit Function End If ' open the specified file Set file=filesystem.OpenTextFile(document.UIForm.flRequest.value, 1 , false) '1->ForReading, false->don't create ' file may not exist If Err.Number<>0 Then GetFileData=Err.Number Exit Function End If ' read the data and stash it into the form document.UIForm.taRequest.value=file.ReadAll ' catch any read errors If Err.Number<>0 Then GetFileData=Err.Number Exit Function End If ' clean up file.Close Set file=Nothing Set filesystem=Nothing GetFileData=0 End Function
</Script> <%End If '"IE"=sBrowser%>
</Body></HTML>
|
