ckqx.aspx

来自「一个完整的办公自动化源码,免费提供给大家下载」· ASPX 代码 · 共 19 行

<script language="VB" runat="server">
	function checkqx(qx as string) as boolean
		dim oinfo()=session("lguinfo")
		dim lsqx as string=oinfo(4)
		'得到当前用户的根限
		'response.Write("需要的权限：" & qx & "<BR>")
		'response.write("你的权限:" & lsqx)
		if lsqx=nothing then
			return false
		else
			if qx<lsqx then
				return false
				'不符合条件
			end if
		end if
		return true
	end function
</script>