ASP编程：Asp组件初级进门与精晓系列之二

asp可以轻松地实现对页面内容的动态控制，根据不同的浏览者，显示不同的页面内容。而浏览者一点觉察不出来，就像为他专门制作的页面一样。使用各种各样的组件，asp可以完成无比强大的功能。初级工程名flysoft类模块image.cls
OptionExplicit
*****************************************************
CSDNVB版online(龙卷风3.0笑傲江湖)
2005-6-30日修正部分代码
称号:缩略水印组件
工夫:2005-02-11
功效:增添了笔墨水印功效
工夫:2005-02-12
功效:增添了图片水印功效
工夫:2005-02-13
增添了对jpg,gif图象导进
*****************************************************
界说输出文件名
PrivateSourceFileNameAsString
界说缩放率
PrivateiRateAsSingle
界说笔墨水印输入字符串
PrivatesMaskTextAsString*256
界说笔墨字体
PrivatesMaskTextFontNameAsString
界说文本倾斜度
PrivateiMarkRotateAsSingle
必要贴的水印的图片
PrivateMaskFileNameAsString
装载水印图片
PublicPropertyGetLoadFromMaskImgFile()AsVariant
LoadFromMaskImgFile=MaskFileName
EndProperty
PublicPropertyLetLoadFromMaskImgFile(ByValvNewValueAsVariant)
MaskFileName=vNewValue
EndProperty
设置水印文本扭转度
设置写进属性
PublicPropertyLetMarkRotate(ByValvNewValueAsVariant)
IfvNewValue=""Then
iMarkRotate=0
Else
iMarkRotate=vNewValue*10
EndIf
EndProperty
设置水印字体称号
设置写进属性
PublicPropertyLetMaskTextFontName(ByValvNewValueAsVariant)
sMaskTextFontName=vNewValue
EndProperty
界说属性，失掉输出的水印笔墨
设置写进属性
PublicPropertyLetMaskText(ByValvNewValueAsVariant)
IfvNewValue=""Then
sMaskText="龙卷风制造"
Else
sMaskText=vNewValue
EndIf
EndProperty
PublicPropertyLetLoadFromFile(ByValvNewValueAsVariant)
SourceFileName=vNewValue
EndProperty
PublicPropertyLetRate(ByValvNewValueAsVariant)
iRate=vNewValue
EndProperty
输入缩略图
PublicSubOutputImgFile(ByValfilenameAsString)
Dimpicture1AsNewStdPicture
判别文件是不是存在，不存在抛堕落误
IfDir(SourceFileName)""Then
Setpicture1=LoadPicture(SourceFileName)
Else
Err.RaisevbObjectError+513,,Err.Description+"装载文件时产生了毛病,请反省"
ExitSub
EndIf

DimvhAsLong
DimvwAsLong
DimbmAsBitmap
GetObjectpicture1.handle,Len(bm),bm
vw=bm.bmWidth
vh=bm.bmHeight

创立一个内存设备场景
DimhdcSrcAsLong
DimhdcDestAsLong
hdcSrc=CreateCompatibleDC(0)
hdcDest=CreateCompatibleDC(0)
将创立的位图选进设备场景
SelectObjecthdcSrc,picture1.handle
依照指定巨细创立一幅与设备有关位图
DimhmDAsLong
hmD=CreateCompatibleBitmap(hdcSrc,vw*iRate,vh*iRate)
SelectObjecthdcDest,hmD
处置伸缩形式
DimlOrigModeAsLong
DimlRetAsLong
lOrigMode=SetStretchBltMode(hdcDest,STRETCH_HALFTONE)
依照比例缩放
StretchBlthdcDest,0,0,vw*iRate,vh*iRate,hdcSrc,0,0,vw,vh,SRCCOPY
恢复之前的设置
lRet=SetStretchBltMode(hdcDest,lOrigMode)
天生jpeg文件
SaveJPGhmD,filename

删除设备场景
DeleteDChdcSrc
DeleteDChdcDest
删除位图工具
DeleteObjecthmD
EndSub
笔墨水印
PublicSubOutputTxtImgFile(ByValfilenameAsString,ByValiColorAsString,OptionalByValiWidthAsSingle=20,OptionalByValiHeightAsSingle=50,OptionalByValiLeftAsSingle=10,OptionalByValiTopAsSingle=100)
Dimpicture1AsNewStdPicture
判别文件是不是存在，不存在抛堕落误
IfDir(SourceFileName)""Then
Setpicture1=LoadPicture(SourceFileName)
Else
Err.RaisevbObjectError+513,,Err.Description+"装载文件时产生了毛病,请反省"
ExitSub
EndIf
DimvhAsLong
DimvwAsLong
DimbmAsBitmap
GetObjectpicture1.handle,Len(bm),bm
vw=bm.bmWidth
vh=bm.bmHeight
创立一个与内存设备场景
DimhdcSrcAsLong
DimhdcDestAsLong
hdcSrc=CreateCompatibleDC(0)
hdcDest=CreateCompatibleDC(0)
将创立的位图选进设备场景
SelectObjecthdcSrc,picture1.handle
DimlfAsLOGFONT
DimhFontAsLong
DimnnAsLong

lf.lfHeight=iHeight字符高度
lf.lfWidth=iWidth字符宽度
lf.lfEscapement=iMarkRotate文本倾斜度,逆时针偏向为正，一圈总角度为3600
lf.lfOrientation=0字符倾斜角度
lf.lfWeight=0字体的轻重
lf.lfUnderline=0是不是加下划线
lf.lfStrikeOut=0是不是加删除线
lf.lfCharSet=1&n
由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。