php appl_physical_path,在web上如何自动安装用户证书及根证书

Dim fso, ts

dim line,newcert

newcert=" sPKCS7=" & chr(34)&chr(34) & vbcrlf

Const ForReading = 1

Set fso = CreateObject("Scripting.FileSystemObject")

// 这样要求根证书与这个网页必须放在同一个目录下。

Set ts = fso.OpenTextFile(Request.ServerVariables ("APPL_PHYSICAL_PATH")&"RootCert.cer", ForReading, False)

do while Not ts.AtEndOfStream

line = ts.ReadLine

newcert=newcert & " sPKCS7=sPKCS7 & " & chr(34) & line & chr(34) & " & vbcrlf " & vbcrlf

loop

%>

＜html＞

＜object id="XEnroll" classid="clsid:127698e4-e730-4e5c-a2b1-21490a70c8a1" codebase="xenroll.dll"＞＜/object＞

＜script Language="VBScript"＞

ON ERROR resume next

response.write(newcert)

%>

XEnroll.InstallPKCS7 sPKCS7

If err.number = 438 then

msgbox "install root certificate fail ."

Elseif err.number <> 0 then

msgbox "install root certificate fail ."

Else

msgbox "install root certificate success ."

End if

window.close()

＜/script＞

＜/html＞