仓酷云

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

[学习教程] ASP网页编程之用JPEG文件EXIF信息ASP版本(4)

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

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

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

x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;FunctionOpenJPGFile(FileName)

DimAscii,lastHex,currentHex,SOSFound
DimFSO,File,i

IfNotFileName=""Then

IfInStr(1,FileName,":")=0Then
FileName=Server.MapPath(FileName)
EndIf

SetFSO=Server.CreateObject("Scripting.FileSystemObject")
IfFSO.FileExists(FileName)Then
SetFile=FSO.OpenTextFile(FileName,ForReading,False,TristateFalse)
i=0
WhileNotFile.AtEndOfStreamandSOSFound=false

Ascii=Asc(File.Read(1))
lastHex=currentHex
currentHex=Right("0"&Hex(Ascii),2)
iflastHex&currentHex="FFDA"ori>100000then
SOSFound=true
endif
ExifTemp(i)=currentHex
i=i+1
ReDimPreserveExifTemp(i)
Wend
File.Close

SetFile=Nothing
Else
Response.Write("Filedoesnotexist")
EndIf
SetFSO=Nothing

EndIf
endfunction

SubGetDirectoryEntries(Offset)

DimNo_of_Entries
DimUpper_IFDDirectory
DimNewDimensions
DimProcessed_ExifSubIFD
DimBytesPerComponent
DimOffset_to_MakerNote
Dimi,j,k

Do
IfIsIntelThen
No_of_Entries=_
HexToDec(ExifTemp(Offset+1))*256+_
HexToDec(ExifTemp(Offset+0))
Else
No_of_Entries=_
HexToDec(ExifTemp(Offset+0))*256+_
HexToDec(ExifTemp(Offset+1))
EndIf

OnErrorResumeNext
Upper_IFDDirectory=UBound(IFDDirectory)
OnErrorGoTo0

NewDimensions=Upper_IFDDirectory+No_of_Entries

ReDimPreserveIFDDirectory(NewDimensions)

Fori=1ToNo_of_Entries
k=Upper_IFDDirectory+i-1

IFDDirectory(k)=array(null,null,null,null,null,null,null)
WithIFDDirectory(Upper_IFDDirectory+i)

IfIsIntelThen
IFDDirectory(k)(IFD_IDX_Tag_No)=_
ExifTemp((Offset+2)+((i-1)*12)+1)&_
ExifTemp((Offset+2)+((i-1)*12)+0)
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+1))*256+_
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+0))

IFDDirectory(k)(IFD_IDX_Data_Format)=_
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+3))*256+_
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+2))

IFDDirectory(k)(IFD_IDX_Components)=_
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+7))*256*256*256+_
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+6))*256*256+_
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+5))*256+_
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+4))

SelectCaseIFDDirectory(k)(IFD_IDX_Data_Format)

Casem_BYTE,m_SBYTE
BytesPerComponent=1
IfIFDDirectory(k)(IFD_IDX_Components)*BytesPerComponent<=4Then
IFDDirectory(k)(IFD_IDX_Value)=_
ExifTemp((Offset+2)+((i-1)*12)+11)&_
ExifTemp((Offset+2)+((i-1)*12)+10)&_
ExifTemp((Offset+2)+((i-1)*12)+9)&_
ExifTemp((Offset+2)+((i-1)*12)+8)
Else
IFDDirectory(k)(IFD_IDX_OffsetToValue)=_
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+11))*256*256*256+_
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+10))*256*256+_
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+9))*256+_
HexToDec(ExifTemp((Offset+2)+((i-1)*12)+8))
Fo</p>asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.
冷月葬花魂 该用户已被删除
沙发
发表于 2015-1-18 07:47:26 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
板凳
发表于 2015-1-21 12:22:33 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
再现理想 该用户已被删除
地板
发表于 2015-1-28 06:08:37 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
再见西城 该用户已被删除
5#
发表于 2015-2-5 12:35:13 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
分手快乐 该用户已被删除
6#
发表于 2015-2-11 20:28:35 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
兰色精灵 该用户已被删除
7#
发表于 2015-3-2 18:21:24 | 只看该作者
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。
柔情似水 该用户已被删除
8#
发表于 2015-3-11 05:08:39 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
飘灵儿 该用户已被删除
9#
发表于 2015-3-17 21:08:25 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
小魔女 该用户已被删除
10#
发表于 2015-3-25 02:37:13 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 21:13

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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