|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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还有更多的扩展,可以用存储过程,数据库大小无极限限制。 |
|