木子屋
 

标题: 服务器组件检测

作者: dnawo

日期: 2007-05-09 03:27 PM

分类: Web编程

内容: 在使用非操作系统自带组件的时候，都应该在创建实例前判断下服务器是否安装了该组件，在没有安装时给出提示，避免程序莫名奇妙的抛出错误。
一、检测函数
'该函数来自阿江探针http://www.ajiang.net/products/aspcheck/
复制内容到剪贴板 程序代码<%
sub ObjTest(strObj)
  on error resume next
  IsObj=false
  VerObj=""
  set TestObj=server.CreateObject (strObj)
  If -2147221005 <> Err then        '感谢网友iAmFisher的宝贵建议
    IsObj = True
    VerObj = TestObj.version
    if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  end if
  set TestObj=nothing
End sub
%>
二、常见组件名称
1.操作系统自带的组件:
MSWC.AdRotator
MSWC.BrowserType
MSWC.NextLink
MSWC.Tools
MSWC.Status
MSWC.Counters
IISSample.ContentRotator
IISSample.PageCounter
MSWC.PermissionChecker
Microsoft.XMLHTTP
WScript.Shell
Scripting.FileSystemObject
Adodb.Connection
Adodb.Stream
2.常见文件上传和管理组件:
SoftArtisans.FileUp
SoftArtisans.FileManager
Ironsoft.UpLoad
LyfUpload.UploadFile
Persits.Upload.1
w3.upload
3.常见邮件处理组件:
JMail.SmtpMail
CDONTS.NewMail
CDO.Message
Persits.MailSender
SMTPsvg.Mailer
DkQmail.Qmail
SmtpMail.SmtpMail.1
4.其它常见组件:
SoftArtisans.ImageGen
W3Image.Image
Persits.Jpeg
XY.Graphics
Ironsoft.DrawPic
Ironsoft.FlashCapture
dyy.zipsvr
hin2.com_iis
Socket.TCP
三、应用
复制内容到剪贴板 程序代码<%
sub ObjTest(strObj)
  on error resume next
  IsObj=false
  VerObj=""
  set TestObj=server.CreateObject (strObj)
  If -2147221005 <> Err then        '感谢网友iAmFisher的宝贵建议
    IsObj = True
    VerObj = TestObj.version
    if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  end if
  set TestObj=nothing
End sub
Dim IsObj,VerObj
Call ObjTest("JMail.SmtpMail")
If IsObj then
    Response.write "系统有安装JMail.SmtpMail 版本为" & VerObj & "!"
Else
    Response.write "系统没有安装JMail.SmtpMail!"
End if
%>

+ 查看当前日志评论 (1)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

标题: 服务器组件检测

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms