[donx]

调用组件时总是出错,提示:
错误类型：
Server 对象, ASP 0177 (0x80004002)
不支持此接口
/test1.asp, 第 25 行


response.buffer=true
dim objSMS
dim lngRes,strNO,strCON,strMsgCenter
strNO=13911111111
strCON=request.Form("txtContent")
if strNo="" then
response.Write "<script>alert('请入接收号码');window.history.back();</script>"
response.End
end if
set SMS=Server.CreateObject("JinDi.SmsControl")//这就是第25行
'设置串口号
objSMS.CommPort=1
'打开设备
lngRes=objSMS.OpenComm
if lngRes=0 then
response.Write "打开设备成功<br>"
else
response.Write "打开设备失败<br>"
end if
response.Flush
'设置短信中心，只需在SIM卡第一次使用时设置，以后不用再设，此处仅作示例
strMsgCenter="+8613800755500" '请改为当地的短信中心号码
lngRes=objSMS.SetMsgCenterNo(strMsgCenter)
if lngRes=0 then
response.Write "短信中心设置成功<br>"
else
response.Write "短信中心设置失败<br>"
end if
response.Flush
'发送短信
lngRes=objSMS.SendMsg(strNO,strCON)
if lngRes=0 then
response.Write "短信发送成功<br>"
else
response.Write "短信发送失败<br>"
end if
response.Write "'>返回</a>"
response.Flush
objSMS.CloseComm
set objSMS=nothing