OI_NUMBER=Session("OI_NUMBER")
'打开记录集
Set Rs=Conn.Execute("Select * from OPERATOR_INFO Where OI_NUMBER='"& OI_NUMBER &"'")
PowerR=Rs("OI_POWER") '字段 char(40)
For I=1 To Len(trim(PowerR))
Power(I)=Mid(cstr(PowerR),i,1)
Next
OI_NUMBER=Session("OI_NUMBER")
'打开记录集
Set Rs=Conn.Execute("Select * from OPERATOR_INFO Where OI_NUMBER='"& OI_NUMBER &"'")
PowerR=Rs("OI_POWER") '字段 char(40)
For I=1 To Len(trim(PowerR))
Power(I)=Mid(cstr(PowerR),i,1)
Next