<%
	name=Request.Cookies("admin_person_name")
	set rs_ptime=createobject("adodb.recordset")
	ptime_sql="select * from person where uname='" & name & "'"
	rs_ptime.open ptime_sql,Conn
	if not rs_ptime.eof then
		begintime=rs_ptime("begintime")
		endtime=rs_ptime("endtime")
		dian=rs_ptime("dian")
		fen=rs_ptime("fen")
		gj=rs_ptime("gj")
		changepay=rs_ptime("changepay")
	end if
	begint=datediff("d",now(),begintime)
	endt=datediff("d",now(),endtime)
	rs_ptime.close
	set rs_ptime = nothing
	if begint>0 then writenote="您的会员期还没有开始，暂不能进行此操作，请稍等"
	if endt<0 then writenote="您的会员期已经结束，暂不能进行此操作，请重新充值"
	if changepay=1 and begint<=0 and endt>=0 then action="ture"
%>