ASP网页编程之用JPEG文件EXIF信息ASP版本（4）
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¤tHex="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则处于劣势.这可能与公司的支持以及技术的培训有关. 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 Session:这个存储跟客户端会话过程的数据，默认20分钟失效 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
页:
[1]