仓酷云

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

[学习教程] ASP网站制作之怎样取得jpg文件的实践尺寸呢?

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

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

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

x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!网上找的一段代码,把它编译成组件就能够用了,还撑持png<br>
<br>
<br>
Ihavereleasedthissourcecodeintothepublicdomain.Youmayuseit<br>
withnostringsattached.<br>
JustcallGetImageSizewithastringcontainingthefilename,and<br>
itwillreturnauserdefinedtypeImageSize(seebelow)<br>
Returnvaluesof0indicateanerrorofsomesort.Theerrorhandling<br>
inthismoduleislimited.Thereis*NO*errorhandlingonthetest<br>
form.ThisroutineislimitedtoXorYsizesof32767pixels,butthat<br>
shouldnotbeaproblem.<br>
<br>
Checkbackathttp://www.qtm.net/~davidc<br>
Imayaddsupportformorefiletypes.<br>
<br>
supportedinthisversion:<br>
JPEG<br>
GIF<br>
PNG<br>
<br>
ThisroutinedoesnotrequireanyroyaltyfeesforUnisysasit<br>
doesnothingwiththecompressedpartofGIFfiles.Itsimplyreads<br>
4bytestodetermineimagesize.<br>
<br>
OptionExplicit<br>
PublicWImgAsLong<br>
PublicHImgAsLong<br>
PublicTypeImageSize<br>
WidthAsLong<br>
HeightAsLong<br>
EndType<br>
<br>
PublicSubGetImageSize(sFileNameAsString)<br>
OnErrorResumeNextyoullwanttochangethis<br>
DimiFNAsInteger<br>
DimbTemp(3)AsByte<br>
DimlFlenAsLong<br>
DimlPosAsLong<br>
DimbHmsbAsByte<br>
DimbHlsbAsByte<br>
DimbWmsbAsByte<br>
DimbWlsbAsByte<br>
DimbBuf(7)AsByte<br>
DimbDoneAsByte<br>
DimiCountAsInteger<br>
<br>
lFlen=FileLen(sFileName)<br>
iFN=FreeFile<br>
OpensFileNameForBinaryAsiFN<br>
Get#iFN,1,bTemp()<br>
<br>
PNGfile<br>
IfbTemp(0)=&H89AndbTemp(1)=&H50AndbTemp(2)=&H4E_<br>
AndbTemp(3)=&H47Then<br>
Get#iFN,19,bWmsb<br>
Get#iFN,20,bWlsb<br>
Get#iFN,23,bHmsb<br>
Get#iFN,24,bHlsb<br>
GetImageSize.Width=CombineBytes(bWlsb,bWmsb)<br>
GetImageSize.Height=CombineBytes(bHlsb,bHmsb)<br>
WImg=CombineBytes(bWlsb,bWmsb)<br>
HImg=CombineBytes(bHlsb,bHmsb)<br>
EndIf<br>
<br>
GIFfile<br>
IfbTemp(0)=&H47AndbTemp(1)=&H49AndbTemp(2)=&H46_<br>
AndbTemp(3)=&H38Then<br>
Get#iFN,7,bWls</p>ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。
飘飘悠悠 该用户已被删除
沙发
发表于 2015-1-20 06:48:46 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
分手快乐 该用户已被删除
板凳
发表于 2015-1-25 18:06:28 | 只看该作者
掌握asp的特性而且一定要知道为什么。
若相依 该用户已被删除
地板
发表于 2015-1-31 06:50:18 | 只看该作者
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
飘灵儿 该用户已被删除
5#
发表于 2015-1-31 16:12:29 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
透明 该用户已被删除
6#
发表于 2015-2-6 20:34:27 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
活着的死人 该用户已被删除
7#
发表于 2015-2-18 15:27:08 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
不帅 该用户已被删除
8#
发表于 2015-3-6 08:22:38 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
灵魂腐蚀 该用户已被删除
9#
发表于 2015-3-12 22:34:17 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
愤怒的大鸟 该用户已被删除
10#
发表于 2015-3-20 04:42:20 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 00:30

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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