|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。快过生蛋节了,俺送人人一段Base64的程序,出口函数是Encode(bytFile()asByte),bytFile是一个Byte型的数组,前往一个字符串。对了,传进的数组不年夜于32767个元素(这一点没做甚么较验,多了会堕落哦!嘻嘻)
----------------------------------------------------------
Privatem_bytIndex(0To63)AsByte
****************************************************
**
*--ToencodefiledatawithBase64method.*
**
****************************************************
PublicFunctionEncode(bytFile()AsByte)AsString
DimiAsLong,jAsLong
DimstrRsltAsString
i=0
Fori=0ToUBound(bytFile)-((UBound(bytFile)+1)Mod3)Step3
strRslt=strRslt+Chr(m_bytIndex(Int((bytFile(i)And252)/4)))
strRslt=strRslt+Chr(m_bytIndex(Int((bytFile(i)And3)*16+(bytFile(i+1)And240)/16)))
strRslt=strRslt+Chr(m_bytIndex(Int((bytFile(i+1)And15)*4+(bytFile(i+2)And192)/64)))
strRslt=strRslt+Chr(m_bytIndex(Int(bytFile(i+2)And63)))
Nexti
SelectCase((UBound(bytFile)+1)Mod3)
Case1
strRslt=strRslt+Chr(m_bytIndex(Int((bytFile(UBound(bytFile))And252)/4)))
strRslt=strRslt+Chr(m_bytIndex(Int((bytFile(UBound(bytFile))And3)*16)))
strRslt=strRslt+"=="
Case2
strRslt=strRslt+Chr(m_bytIndex(Int((bytFile(UBound(bytFile)-1)And252)/4)))
strRslt=strRslt+Chr(m_bytIndex(Int((bytFile(UBound(bytFile)-1)And3)*16+(bytFile(UBound(bytFile))And240)/16)))
strRslt=strRslt+Chr(m_bytIndex(Int((bytFile(UBound(bytFile))And15)*4)))
strRslt=strRslt+"="
EndSelect
Encode=strRslt
EndFunction
****************************************************
**
*--ClassInitializetoinitializethearrayof*
*base64coding.*
**
****************************************************
PrivateSubClass_Initialize()
m_bytIndex(0)=65Asc("A")
m_bytIndex(1)=66Asc("B")
m_bytIndex(2)=67Asc("C")
m_bytIndex(3)=68Asc("D")
&n</p>Access是一种桌面数据库,只适合数据量少的应用,在处理少量数据和单机访问的数据库时是很好的,效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限,如果数据达到100M左右,很容易造成服务器iis假死,或者消耗掉服务器的内存导致服务器崩溃。 |
|