һԱķ
ͼ1ʾ

 Ա
ة
 շѻԱѻԱ
ةة
 ʽշѻԱշѻԱʽѻԱѻԱ
ة
ʽѸѻԱʽδѻԱ
ة
     ܸѻԱ  ѻԱ
         ͼ1


վԱﹲֻԱ

ѻԱܸѻԱʽδѻԱշѻԱʽѻԱѻԱ

жϻԱշѻԱѻԱʱñhybzжϣhybz=1ΪշѻԱhybz=0ΪѻԱ

жϻԱʽԱǴ˻Աʱñuflagжϣuflag=1ΪʽԱuflag=0Ϊ˻Ա

ǰ̨ȫflagƻԱ,һ                 1

Ա flagֵ 
ܻԱ 0 
Ա 1 
δʽԱ 2 
շѻԱ 3 
ʽѻԱ 4 
ѻԱ 5 


Ա͵ת
ֻܽͼ1Ҷʾû֮ת30ֿԣ3ʾпհ׵ǲ򲻽תiеjԪرʾiԱתΪjԱҪеĲ

ɱ2

  flag 0 1 2 3 4 5 
flag Ա ܻԱ
uflag=1
hybz=1 Ա
uflag=1
hybz=1 δʽԱ
uflag=1
hybz=1 շѻԱ
uflag=0
hybz=1 ʽѻԱ
uflag=1
hybz=0 ѻԱ
uflag=0
hybz=0 
0 ܻԱ
uflag=1
hybz=1  ; ÿε¼ʱж
If enddate<date() Then flag=1    ; עʸ
uflag=0
hybz=false
flag=5 
1 Ա
uflag=1
hybz=1 ; 
flag=0
rs("begindate")=date()
rs("enddate")=date()+365  flag=2   ; עʸ
uflag=0
hybz=false
flag=5 
2 δʽԱ
uflag=1
hybz=1 ; 
flag=0
rs("begindate")=date()
rs("enddate")=date()+365     ; עʸ
uflag=0
hybz=false
flag=5 
3 շѻԱ
uflag=0
hybz=1 ; +
uflag=1
flag=0
rs("begindate")=date()
rs("enddate")=date()+365  ; 
uflag=1
flag-=1   ; עʸ
uflag=0
hybz=false
flag=5 
4 ʽѻԱ
uflag=1
hybz=0 ; 
hybz=true
flag=0
rs("begindate")=date()
rs("enddate")=date()+365     ; עʸ
uflag=0
hybz=false
flag=5 
5 ѻԱ
uflag=0
hybz=0
 ; +
hybz=true
uflag=1
flag=0
rs("begindate")=date()
rs("enddate")=date()+365    ; 
uflag=1
flag-=1  

ɿԱת4ֻˣѣѻԱתΪշѻԱעʸ£

; 
Sub Auditing
  uflag=1;
  flag-=1;
End Sub

; 
Sub Charge
  rs("begindate")=date()
  rs("enddate")=date()+365
End Sub

; 
Sub Upgrade
  hybz=true
End Sub

; עʸ
Sub Degrade
  uflag=0
  hybz=false
  flag=5
End Sub

Ա֮תֻ֮ϣټʵ۲2ǿԿܹ5ת 

ԱܻԱ 
ԱѻԱ 
ѻԱʽѻԱշѻԱδʽԱ 
ԱδʽԱ 
ܻԱԱ 

Select Case request("uflag")
case "0" 'ѻԱ
rs("uflag")=0
rs("hybz")=0
rs("flag")=5
case "1" 'ʽѻԱ
rs("uflag")=1
rs("hybz")=0
rs("flag")=4
case "2" 'շѻԱ
rs("uflag")=0
rs("hybz")=1
rs("flag")=3
case "3" 'ʽδѻԱ
rs("uflag")=1
rs("hybz")=1
rs("flag")=2
case "4" 'ܸѻԱ
rs("uflag")=1
rs("hybz")=1
rs("flag")=0
case "5" 'ѻԱ
rs("uflag")=1
rs("hybz")=1
rs("flag")=1
rs("enddate")=date()
case else msgbox "Out of the select!"
End select 
