<%
	dim writenote
	set rs_company=createobject("adodb.recordset")
	sql_company="select * from company where uname='" &Request.Cookies("admin_company_name")& "'"
	rs_company.open sql_company,Conn
	if not rs_company.eof then
		grade=rs_company("grade") '企业用户级别 0为初级，1为中级，2为高级
		dian=rs_company("dian")	'企业用户的M币数量
		fen=rs_company("fen")	'企业用户的积分数量
		begintime=rs_company("begintime")	'会员期开始时间
		endtime=rs_company("endtime")	'会员期结束时间
		readnum=rs_company("readnum")	'会员期内读取个人会员资料的数量，本项目只适用于中级企业用户
		changepay=rs_company("changepay")	'读取用户的收费方式
	end if
	begint=datediff("d",now(),begintime)	'会员期开始时间与当前时间的差值
	endt=datediff("d",now(),endtime)	'会员期结束时间与当前时间的差值

	rs_company.close
	set rs_company=nothing
	if grade=0 then writenote="您是初级企业用户，现在还不能查看个人的详细信息，请升级充值"
	if grade=1 then
		if begint>0 then writenote="您的会员期还没有开始，还不能查询个人的联系信息，请稍等"
		if endt<0 then writenote="您的会员期已经结束，现在已经不能查询个人的联系信息，请重新充值"
		if readnum<1 then writenote="您浏览个人简历的次数已经超过限制，现在已经不能查询个人的联系信息，请重新充值"
	end if
	if grade=2 then
		if begint>0 then writenote="您的会员期还没有开始，还不能查询个人的联系信息，请稍等"
		if endt<0 then writenote="您的会员期已经结束，现在已经不能查询个人的联系信息，请重新充值"
	end if
	
	if grade=1 and begint<=0 and endt>=0 and readnum>=1 then action="ture"
	if grade=2 and begint<=0 and endt>=0 then action="ture"
	if grade=1 and action="ture" then conn.execute("update company set readnum=readnum-1 where uname='" &Request.Cookies("admin_company_name")& "'")
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from zp_person where cuname='"&Request.Cookies("admin_company_name")&"' order by id desc"
	rs.open sql,conn,1,1
	zpnum5=rs.recordcount
	if zpnum5="" then zpnum5=0
	rs.close                                                                    
	set rs=nothing
%>