getvalue.asp

来自「功能齐全的oa网络办公源码asp+acce」· ASP 代码 · 共 16 行

<% 
function getValue(newvalue)   
   if not(repRs.bof and repRs.eof) then repRs.movefirst
   'repRs.move newvalue
   while not repRs.eof
       if repRs("sumorder")=newvalue then 
		  getValue=true	 
		  exit function
	   else
	      getValue=false	  
	   end if	  
	   repRs.movenext
   wend
end function
%>