在线求教Microsoft VBScript 编译器错误 '800a03f6'

[dahai_0426]

Microsoft VBScript 编译器错误'800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp
服务器对象错误 'ASP 0177 : 800401f3'
Server.CreateObject 失败
/MD5.inc.asp,行17
无效的 ProgID。
若要获取关于此消息的更多的信息，请访问 Microsoft 联机支持站点: http://www.microsoft.com/contentredirect.asp 。
以上那个错误是什么原因啊???
MD5.inc.asp代码如下:

Function GetMd5(str)

Dim objMd5

if IsNull(str) or IsEmpty(str) then
exit Function
end if

set objMd5 = server.createobject("basp21")
GetMd5 = objMd5.MD5(str)
set objMd5 = Nothing

End Function

[xiaobird1]

set objMd5 = server.createobject("basp21")

这句语法有问题，应该是
set objMd5 = server.createobject("工程名.类名")

你可以用VB的引用功能查看

[jspadmin]

set objMd5 = server.createobject("basp21") 一方面类名引用错误，还有就是这个类存在吗？你的系统注册它了吗？
----------------------------------------------------------------------------------
欢迎光临我的小站（提供免费博客申请）：http://www.pifoo.com，有问题的话，可以在留言本上给我留言http://www.pifoo.com/guestbook/

[dahai_0426]

谢谢,是我的MD5算法的插件没有注册.
谢谢两位大虾.