<scriptlanguage="vbscript">
'Aother:奔腾的心
'QQ:7180001
'Date:2008-01-17
ClassmShift
Privatem_lPower2(31)
PublicFunctionRShift(ByVallThis,ByVallBits)
OnErrorResumeNext
Init
If(lBits<=0)Then
RShift=lThis
ElseIf(lBits>63)Then
'..error...
ElseIf(lBits>31)Then
RShift=0
Else
If(lThisAndm_lPower2(31-lBits))=m_lPower2(31-lBits)Then
RShift=(lThisAnd(m_lPower2(31-lBits)-1))*m_lPower2(lBits)Or
m_lPower2(31)
Else
RShift=(lThisAnd(m_lPower2(31-lBits)-1))*m_lPower2(lBits)
EndIf
EndIf
EndFunction
PublicFunctionLShift(ByVallThis,ByVallBits)
OnErrorResumeNext
Init
If(lBits<=0)Then
LShift=lThis
ElseIf(lBits>63)Then
'...error...
ElseIf(lBits>31)Then
LShift=0
Else
If(lThisAndm_lPower2(31))=m_lPower2(31)Then