仓酷云

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

[学习教程] ASP教程之在asp文件中会见flash具体信息

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

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

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

x
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了会见<%

ClassSWFDump

Privateheader
PrivateRECTdata
PrivatenBits
Privatemversion
Privatemfilelen
PrivatemxMin
PrivatemxMax
PrivatemyMin
PrivatemyMax
Privatemheigt
Privatemwidth
Privatemframerate
Privatemframecount

PrivateSubClass_Initialize()

EndSub

PrivateSubClass_Terminate()

EndSub


PrivateFunctionReadHeader(filename)
ConstForReading=1,ForWriting=2,ForAppending=8
Dimfso,f
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.OpenTextFile(filename,ForReading)
ReadHeader=f.Read(21)
EndFunction

PrivateFunctionToBin(inNumber,OutLenStr)
Dimbinary
binary=""
dowhileinNumber>=1
binary=binary&inNumbermod2
inNumber=inNumber2
loop
binary=binary&String(OutLenStr-len(binary),"0")
ToBin=StrReverse(binary)
EndFunction

PrivateFunctionBin2Decimal(inBin)
Dimcounter
Dimtemp
DimValue
inBin=StrReverse(inBin)
temp=0
Forcounter=1toLen(inBin)
Ifcounter=1then
Value=1
Else
Value=Value*2
EndIf
temp=temp+mid(inBin,counter,1)*Value
Next
Bin2Decimal=temp
EndFunction

PublicFunctionSWFDump(fileName)

header=ReadHeader(fileName)
mversion=asc(mid(header,4,1))
mfilelen=asc(mid(header,5,1))
mfilelen=mfilelen+asc(mid(header,6,1))*256
mfilelen=mfilelen+asc(mid(header,7,1))*256*256
mfilelen=mfilelen+asc(mid(header,8,1))*256*256*256

RECTdata=ToBin(asc(mid(header,9,1)),8)
RECTdata=RECTdata&ToBin(asc(mid(header,10,1)),8)
RECTdata=RECTdata&ToBin(asc(mid(header,11,1)),8)
RECTdata=RECTdata&ToBin(asc(mid(header,12,1)),8)
RECTdata=RECTdata&ToBin(asc(mid(header,13,1)),8)
RECTdata=RECTdata&ToBin(asc(mid(header,14,1)),8)
RECTdata=RECTdata&ToBin(asc(mid(header,15,1)),8)
RECTdata=RECTdata&ToBin(asc(mid(header,16,1)),8)
RECTdata=RECTdata&ToBin(asc(mid(header,17,1)),8)

nBits=Mid(RECTdata,1,5)
nBits=Bin2Decimal(nBits)

mxMin=Bin2Decimal(Mid(RECTdata,6,nBits))
mxMax=Bin2Decimal(Mid(RECTdata,6+nBits*1,nBits))
myMin=Bin2Decimal(Mid(RECTdata,6+nBits*2,nBits))
myMax=Bin2Decimal(Mid(RECTdata,6+nBits*3,nBits))

mheigt=(myMax-myMin)/20
mwidth=(mxMax-mxMin)/20

mframerate=asc(mid(header,18,1))

mframecount=asc(mid(header,19,1))
mframecount=mframecount+asc(mid(header,20,1))*256

EndFunction


PublicPropertyGetHeigt()
Heigt=mheigt
EndProperty

</p>因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。
若天明 该用户已被删除
10#
发表于 2015-3-20 21:27:59 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
9#
发表于 2015-3-13 23:08:48 | 只看该作者
掌握asp的特性而且一定要知道为什么。
蒙在股里 该用户已被删除
8#
发表于 2015-3-7 00:42:32 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
山那边是海 该用户已被删除
7#
发表于 2015-2-22 15:55:37 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
只想知道 该用户已被删除
6#
发表于 2015-2-7 16:18:27 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
飘灵儿 该用户已被删除
5#
发表于 2015-2-2 05:13:14 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
简单生活 该用户已被删除
地板
发表于 2015-1-25 07:29:21 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
金色的骷髅 该用户已被删除
板凳
发表于 2015-1-22 10:30:32 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
柔情似水 该用户已被删除
沙发
发表于 2015-1-20 09:52:32 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 14:45

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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