马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我想详细了解ASP整站代码与PSP整站代码有什么优缺点,那个更好,更安全,更用容易维护,和管理。。。函数|加密ConstsBASE_64_CHARACTERS="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
FunctionBase64encode(ByValasContents)
DimlnPosition
DimlsResult
DimChar1
DimChar2
DimChar3
DimChar4
DimByte1
DimByte2
DimByte3
DimSaveBits1
DimSaveBits2
DimlsGroupBinary
DimlsGroup64
IfLen(asContents)Mod3>0ThenasContents=asContents&String(3-(Len(asContents)Mod3),"")
lsResult=""
ForlnPosition=1ToLen(asContents)Step3
lsGroup64=""
lsGroupBinary=Mid(asContents,lnPosition,3)
Byte1=Asc(Mid(lsGroupBinary,1,1)):SaveBits1=Byte1And3
Byte2=Asc(Mid(lsGroupBinary,2,1)):SaveBits2=Byte2And15
Byte3=Asc(Mid(lsGroupBinary,3,1))
Char1=Mid(sBASE_64_CHARACTERS,((Byte1And252)4)+1,1)
Char2=Mid(sBASE_64_CHARACTERS,(((Byte2And240)16)Or(SaveBits1*16)And&HFF)+1,1)
Char3=Mid(sBASE_64_CHARACTERS,(((Byte3And192)64)Or(SaveBits2*4)And&HFF)+1,1)
Char4=Mid(sBASE_64_CHARACTERS,(Byte3And63)+1,1)
lsGroup64=Char1&Char2&Char3&Char4
lsResult=lsResult+lsGroup64
Next
Base64encode=lsResult
EndFunction
</p>ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段,极大地提高了开发的效果。在讨论ASP的安全性问题之前,让我们来看看ASP是怎么工作的。 |