<%
sub discreteness
%>
<LINK href="Include/Admin_Style.css" type=text/css rel=stylesheet>
<table width="100%" border="1" align="center" cellpadding="5" cellspacing="0" bgcolor="#FEFFF7" bordercolorlight="#CCCCCC" bordercolordark="#CCCCCC" bordercolor="#FFFFFF">
<tr class=a1>
<td width="60%" height="29" bgcolor="#DFF3DE">&nbsp;组件名称</td>
<td width="40%" height="29" bgcolor="#DFF3DE">支持及版本</td>
</tr>
<%
Dim theInstalledObjects(17)
theInstalledObjects(12) = "JMail.Message"
theInstalledObjects(13) = "CDONTS.NewMail"
theInstalledObjects(14) = "Persits.MailSender"
For i=12 to 14
Response.Write "<TR class=a3><TD>&nbsp;" & theInstalledObjects(i) & "<font color=888888>&nbsp;"
select case i
case 12
Response.Write "(JMail 邮件发送)"
case 13
Response.Write "(WIN虚拟SMTP 发信)"
case 14
Response.Write "(ASPEmail 邮件发送)"
end select
Response.Write "</font></td><td>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<font color=red><b>×</b>(不支持)</font>"
Else
Response.Write "<b>√</b>(支持) " & getver(theInstalledObjects(i)) & ""
End If
Response.Write "</td></TR>" & vbCrLf
Next
%>
</table>
<%
end sub

''''''''''''''''''''''''''''''
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
''''''''''''''''''''''''''''''
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
discreteness
%>