ASP教程之苦心源码，接待下载
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。下载SavePic.asp<%
---------------------------------------RETURNTHEIMAGEFORMAT--------------------
functioncheckImageFormat(checkdata)
--return:A,B,C(Aisimageformat;Bisheightpixels;Ciswidthpixels;Discolordepth)
flag=00isnotjpg/gif/pngimage;1isjpg/gif/png
-------------------------------------------------------checkjpg----------------
ifflag=0then
tempstr=Leftb(checkdata,10)
tstr=chrb(255)&chrb(216)&chrb(255)&chrb(224)&chrb(0)&chrb(16)&chrb(74)&chrb(70)&chrb(73)&chrb(70)
ifstrcomp(tempstr,tstr,0)=0then
msgstr01="jpg"
lngSize=len(checkdata)
flgFound=0
strTarget=chrb(255)&chrb(216)&chrb(255)
flgFound=instrb(checkdata,strTarget)
lngPos=flgFound+2
ExitLoop=false
dowhileExitLoop=FalseandlngPos<lngSize
dowhileascb(midb(checkdata,lngPos,1))=255andlngPos<lngSize
lngPos=lngPos+1
loop
ifascb(midb(checkdata,lngPos,1))<192orascb(midb(checkdata,lngPos,1))>195then
lngMarkerSize=lngConvert2(midb(checkdata,lngPos+1,2))
lngPos=lngPos+lngMarkerSize+1
else
ExitLoop=True
endif
loop
i_Height=lngConvert2(midb(checkdata,lngPos+4,2))
i_Width=lngConvert2(midb(checkdata,lngPos+6,2))
i_Depth=2^(ascb(midb(checkdata,lngPos+8,1))*8)
msgstr02=","&i_height&","&i_width
flag=2
else
flag=0
endif
endif
--------------------------------------------------checkgif--------------------------------
ifflag=0then
tempstr=Leftb(checkdata,6)
tstr=chrb(71)&chrb(73)&chrb(70)&chrb(56)&chrb(57)&chrb(97)
tstr2=chrb(71)&chrb(73)&chrb(70)&chrb(56)&chrb(55)&chrb(97)
ifstrcomp(tempstr,tstr,0)=0orstrcomp(tempstr,tstr2)=0then
msgstr03="gif"
i_width=lngConvert(midb(checkdata,7,2))
i_height=lngConvert(midb(checkdata,9,2))
i_Depth=2^((ascb(midb(checkdata,11,1))and7)+1)
msgstr04=","&i_height&","&i_width
flag=2
else
flag=0
endif
endif
---------------------------------------------------checkpng------------------------------
ifflag=0then
tempstr=Leftb(checkdata,4)
tstr=chrb(137)&chrb(80)&chrb(78)&chrb(71)
ifstrcomp(tempstr,tstr,0)=0then
msgstr05="png"
i_Width=lngConvert2(midb(checkdata,19,2))
i_Height=lngConvert2(midb(checkdata,23,2))
i_Depth=lngConvert(midb(checkdata,25,2))
selectcaseascb(right(i_Depth,1))
case0
i_Depth=2^(asc(left(i_Depth,1)))
g</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。
页:
[1]