<%
sub CheckUserFlag(UserFlag)
	 Set ObjDCW = Server.CreateObject("dc_data100_v1_0.C_A_Config")
	 U_Flag=ObjDCW.CheckManageFlag(UserFlag)
	 if U_Flag=false then
		'Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请以<a href=" + WebPath +"manage/login.asp><font color=#ff0000>管理员身份登陆</font></a>后进入。<br><li>您没有管理本页面的权限。"
		'response.write Errmsg
		response.redirect WebUrl & "manage/err.htm"
		response.end
	 end if
end sub
%>