admin_function.asp

来自「庐江二中」· ASP 代码 · 共 33 行

<%
Dim ServerObject(18)
ServerObject(0) = "MSWC.AdRotator"
ServerObject(1) = "MSWC.BrowserType"
ServerObject(2) = "MSWC.NextLink"
ServerObject(3) = "MSWC.Tools"
ServerObject(4) = "MSWC.Status"
ServerObject(5) = "MSWC.Counters"
ServerObject(6) = "IISSample.ContentRotator"
ServerObject(7) = "IISSample.PageCounter"
ServerObject(8) = "MSWC.PermissionChecker"
ServerObject(9) = "Scripting.FileSystemObject"
ServerObject(10) = "JRO.JetEngine"
ServerObject(11) = "adodb.connection"

ServerObject(12) = "SoftArtisans.FileUp"
ServerObject(13) = "SoftArtisans.FileManager"
ServerObject(14) = "JMail.SMTPMail"
ServerObject(15) = "CDONTS.NewMail"
ServerObject(16) = "Persits.MailSender"
ServerObject(17) = "LyfUpload.UploadFile"
ServerObject(18) = "Persits.Upload.1"

Function IsObjInstalled(strClassString)
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function	
%>