仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 378|回复: 8
打印 上一主题 下一主题

[学习教程] ASP教程之Base64

[复制链接]
不帅 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:17:43 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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假死,或者消耗掉服务器的内存导致服务器崩溃。
因胸联盟 该用户已被删除
沙发
发表于 2015-1-20 09:07:47 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
深爱那片海 该用户已被删除
板凳
发表于 2015-1-29 06:21:26 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
只想知道 该用户已被删除
地板
发表于 2015-2-2 11:21:44 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
蒙在股里 该用户已被删除
5#
发表于 2015-2-7 18:47:40 | 只看该作者
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
第二个灵魂 该用户已被删除
6#
发表于 2015-2-22 22:47:58 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
admin 该用户已被删除
7#
发表于 2015-3-7 04:01:29 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
金色的骷髅 该用户已被删除
8#
发表于 2015-3-14 09:15:17 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
莫相离 该用户已被删除
9#
发表于 2015-3-21 01:37:38 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2025-1-8 05:19

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表