Question

asp自定义类函数问题

图1 一直出错 ，就是说这句话有问题。改成 图2 就正确了 也就是说函数要赋予一个变量 就不会报错，数据库执行了修改字段内容函数定义如下 Public Function setuser(tab,field,id)'设置用户权限函数 Dim dsql dsql="select * from "&tab&" where "&field&"="&id dbconn_start rs.open dsql,conn,1,3 If rs("mu_h")<>0 then rs("mu_h")=0 Else rs("mu_h")=1 End if rs.update dbconn_end End function有没有大神指点下。我头已快大了





Answer 1

代码有语法错误 function sj(a,b) cent=0.6 mm=(a-b)*cent sj=mm end function b=20 a=30 response.write sj(30,20) 这个才是个 function 涵数 sub sj(a,b) cent=0.6 mm=(a-b)*cent response.write mm end sub call sj(30,20)'这是调用过程 要分清涵数与过程的区别 函数是可以有返值也没有返回值 但过程就没有反回值 函数的调用与过程的调用有一点区别 函数的调用时 要返回的值 通过赋给函数名来返回 也就是 sj=mm

追问

但是 我这个函数没有返回值
我定义了一个类class xmb
Public Function setuser(tab,field,id)'设置用户权限函数
这里是过程
End function
end class
然后就是你看到图片的那个问题 而且这个函数内部 我并没有给返回值 比如 ”函数名= “
但是在应用页面，前面不加个变量接受这个实例化类.函数，或者在改成
call xm.setuser(),