func_verify.asp

来自「企业办公简单管理系统,可以发布信息以及论坛」· ASP 代码 · 共 24 行

<%
function getmaxid(wfid)
	dim maxid
	sql="select max(id) as maxid from cci_oa_flowlist"
	rs.open sql,connobj,1,1
	if not rs.eof then
		maxid=rs("maxid")
	end if
	rs.close
		
	if isnull(maxid) then
		maxid=0
	end if
	maxid=maxid+1
	connobj.execute("proc_start_wf "& wfid & ","& maxid & "," & session("userid"))
	getmaxid=maxid
end function



if session("userid")="" then
	Response.Redirect("messageA.asp?msgurl=登陆&rediurl=default.asp&msginfo=您没有登陆或您的权限不够，您无法访问该功能！")
end if
%>