<%Response.Expires=0%>
Web サーバー登録ページ
<%
''Process a Certificate Request
On Error Resume Next
Dim Certificate, DispositionCode, LastStatus,ConfigString, PKCS10
Dim SubmitFlag, GetCertFlag, Attributes, ControlType
set ICertRequest = Server.CreateObject("CertificateAuthority.Request")
set ICertConfig = Server.CreateObject("CertificateAuthority.Config")
ConfigString = ICertConfig.GetConfig(0)
PKCS10 = Request.Form("CertRequest")
SubmitFlag = Request.Form("SubmitFlag")
GetCertFlag = Request.Form("GetCertFlag")
Attributes = Request.Form("CertAttrib")
ControlType = Request.Form("ControlType")
if PKCS10 <> "" then
DispositionCode = ICertRequest.Submit(SubmitFlag, PKCS10, Attributes, ConfigString)
LastStatus = 0
LastStatus = ICertRequest.GetLastStatus()
Certificate = ICertRequest.GetCertificate(GetCertFlag)
Session("CertStore") = Certificate
end if
%>
<% if PKCS10 = "" then %>
<% end if %>
<% if ControlType = "" then %>
<% else
''Format the Certificate
FormatedCert = ""
qc = chr(34)
CharsLeft = True
OutP = 1
while(CharsLeft)
BeginLine = OutP
OutP = InStr(OutP, Certificate, vbNewLine)
if (OutP > 0) then
FormatedCert = FormatedCert & "szPKCS7 = szPKCS7 & " & qc & _
Mid(Certificate, BeginLine, OutP-BeginLine) & qc
if (OutP >= (len(Certificate) - len(vcNewLine))) then
CharsLeft = False
end if
else
CharsLeft = False
end if
FormatedCert = FormatedCert & vbNewLine
OutP = OutP + len(vbNewLine)
wend
end if %>
<% if ControlType = "XENROLL" or ControlType = "CERTENR3" then %>
<% if ControlType = "XENROLL" then %>
<% else %>
<% end if %>
<% end if %>
ホーム
<% if DispositionCode = 3 then %>
証明書のダウンロード
要求は正常に処理されました。
新しい証明書を取得するには [ダウンロード] ボタンをクリックしてください。
<% else %>
エラー !
Certificate Server は要求の処理に失敗しました。
最後に発生したエラーのコード = <%=HEX(LastStatus)%>
<% if LastStatus = 1722 then %>
このエラーは、Certificate Authority (証明機関) サービスが開始されていない
場合に発生します。
証明機関に相談してください。
<% elseif LastStatus = -2146893811 then %>
証明機関のキーに問題がある可能性があります。
キーを発見できなかったため、証明書は発行されませんでした。
証明機関に相談してください。
<% elseif LastStatus = 87 then %>
不正なデータが Certificate Server に提出されました。
原因は 2 つ考えられます。提出した要求の形式が不正であるか、
Certificate Server の構成時に、"共有フォルダ" に
ネットワーク共有または相対パスを指定しました。
証明機関に相談してください。
<% elseif LastStatus = -2147024883 then %>
提出した要求のエンコード長が 7F である可能性があります。
共通名、部署などに入力したデータの "長さ" を変更し、
この証明書を再度要求してください。
それでも問題が解消しない場合は、証明機関に連絡してください。
<% else %>
提出した要求が正しいことを確認し、問題が解消しない場合は
証明機関に相談してください。
<% end if %>
<% end if %>
