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%><%' certlynx.asp - (CERT)srv web - (LYNX) adapter page ' Copyright (C) Microsoft Corporation, 1998 - 1999 %><!-- #include FILE=certsbrt.inc --><!-- #include FILE=certdat.inc --><%bIncludeTemplateCode=True%><!-- #include FILE=certsgcl.inc --><%' This page redirects queries that come from Text-only browsers
'----------------------------------------------------------------- ' Strings to be localized Const L_CertOK_Message="The certificate request passes basic validity tests. Please continue." Const L_BlankRequest_ErrorMessage="The request field may not be left blank. Please paste a request in the field and try again." Const L_SavedReqCert_Text="Saved-Request Certificate" ' Note: should match string in certrqxt.asp
'----------------------------------------------------------------- ' This function produces the standard header that all the pages ' in this file use. We put it here to keep the localization parser happy Sub PrintHtmlHeader%><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><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><% End Sub
'----------------------------------------------------------------- ' BEGIN PROCESSING
'----------------------------------------------------------------- ' Non-text-only browsers with javascript off: If "Text"<>sBrowser Then PrintHtmlHeader%><P ID=locPageTitle1><Font Color=#FF0000><B>Scripting Must Be Enabled</B></Font><!-- 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><P ID=locNeedScripting> This web site requires that scripting be enabled in your browser. Please enable scripting and try your last action again.</Body></HTML><%
'------------------------------------------------------------- ' External request page ElseIf "certrqxt"=Request.Form("SourcePage") Then
'validate the data ' if it's good, send it to submit ' else send it back to external request
Dim sRequest, bAllowContiune, sMessage, bError, sAttrib sRequest=Request.Form("taRequest")
sMessage=L_CertOK_Message bAllowContinue=True bError=False If ""=sRequest Then sMessage=L_BlankRequest_ErrorMessage bAllowContinue=False bError=True End If sAttrib=Request.Form("taAttrib") If "Enterprise"=sServerType Then ' add an attribute for the cert type Dim sTemplate
' get the selected template sTemplate=Request.Form("lbCertTemplate") ' get template real name sTemplate=getTemplateStringInfo(CTINFO_INDEX_REALNAME, null)
' set the cert template sAttrib=sAttrib & "CertificateTemplate:" & sTemplate & vbNewLine End If
' for interop debug purposes sAttrib=sAttrib & "UserAgent:" & Request.ServerVariables("HTTP_USER_AGENT") & vbNewLine
PrintHtmlHeader%>
<Form Name=SubmittedData Action="certfnsh.asp" Method=Post>
<%If True=bError Then%><P ID=locPageTitle2><Font Color=#FF0000><B>Error</B></Font><%Else%><P ID=locPageTitle3><B>Checkpoint</B><%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>
<P><%=sMessage%></P>
<%If True=bAllowContinue Then%><Input Type=Hidden Name=Mode Value="newreq"> <!-- used in request ('newreq'|'chkpnd') --><Input Type=Hidden Name=CertRequest Value="<%=Server.HTMLEncode(sRequest)%>"> <!-- used in request --><Input Type=Hidden Name=CertAttrib Value="<%=Server.HTMLEncode(sAttrib)%>"> <!-- used in request --><Input Type=Hidden Name=FriendlyType Value="<%=L_SavedReqCert_Text%> (<%=Now%>)"><!-- used on Pending --><Input Type=Hidden Name=TargetStoreFlags Value="0"> <!-- used on install ('0'|CSSLM)--><Input Type=Hidden Name=SaveCert Value="yes"> <!-- used on install ('no'|'yes')--><%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>
<%If True=bAllowContinue Then%><Table Width=100% Border=0 CellPadding=0 CellSpacing=0><TR><TD ID=locResubmitAlign Align=Right> <Input ID=locBtnResubmit Type=Submit Value="Resubmit >"> </TD></TR></Table><%End If%>
</Form></Font></Body></HTML><%
'------------------------------------------------------------- ' Unexpected form -- should never happen Else PrintHtmlHeader%>
<P ID=locPageTitle5><Font Color=#FF0000><B>Error</B></Font><!-- 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>
<P ID=locErrorMsg> An unexpected error has occurred. The form you submitted ("<%=Server.HTMLEncode(Request.Form("SourcePage"))%>") is unknown.<P ID=locSubmittedData> Submitted data:<Pre><%=Server.HTMLEncode(Request.Form)%></Pre></Body></HTML><%
End If%>
|
