日期:2014-05-17  浏览次数:21100 次

缺少对象问题
在web里有下面一个过程运行时为什么提示缺少对象(说明:obj.md5是封装在DLL文件里的一个过程,已经注册,在其他地方调用正常,如果把这句封了,同样还提示缺少对象: 'server ')
script   language= "VBscript ">
Sub   B1_OnClick
dim   theform
set   theform=document.form1
if   theform.userID.value= " "   then
msgbox( "请输入工号 ")
exit   sub
else
dim   n
  n=obj.md5(theform.userID.value)
    set   tal=objconn.execute( "select   count(id)   to   t   from   admin   where   userID= ' "&(n)& " ' ")
          if   tal( "t ")> 1   then   msgbox( "工号已经存在 "):heform.userID.focus():exit   sub
end   if
end   Sub
</script>


------解决方案--------------------
这是在脚本中,取不到服务端的函数
------解决方案--------------------
客户端脚本。
你的DLL在服务器注册。
------解决方案--------------------
if tal( "t ")> 1 then msgbox( "工号已经存在 "):heform.userID.focus():exit sub
.........................................^^

heform应该是theform
------解决方案--------------------
同时注意是否创建了obj:
dim obj
set obj=server.createObject( "XXX ")