ASP教程之ASP罕见成绩及解答(3)

SQLServer是基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比Access要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。解答|成绩1.图片显现把持：
<scriptlanguage="JavaScript">
<!--
varflag=false;
functionDrawImage(ImgD){
varimage=newImage();
image.src=ImgD.src;
if(image.width>0&&image.height>0){
flag=true;
if(image.width/image.height>=360/270){
if(image.width>360){
ImgD.width=360;
ImgD.height=(image.height*360)/image.width;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt=image.width+"×"+image.height;
}
else{
if(image.height>270){
ImgD.height=270;
ImgD.width=(image.width*270)/image.height;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt=image.width+"×"+image.height;
}
}
}
//-->
</script>


挪用格局：
<imgsrc=http://www.163design.net/a/q/"a.gif"onload="javascript:DrawImage(this);"


2.用asp把doc转换成html
doc2html.vbs

**********************************************************

挪用办法：doc2htmlc:doc2htmlc:doc2html
挪用办法：doc2html-sc:doc2htmla.docc:doc2html

**********************************************************

DimObjword
DimObjdoc
DimObjfso
DimStrsource
DimStrtarget
DimBbatch

失掉命令行参数，有三种大概的格局：[-s]要举行转换的源文件目次或文件转换成Html文件后保留的目次
FunctionGetparams()
DimObjarg
IfWscript.Arguments.Count>=2Then
IfWscript.Arguments.Item(0)="-s"OrWscript.Arguments.Item(0)="-S"Then
Strsource=Wscript.Arguments.Item(1)
Strtarget=Wscript.Arguments.Item(2)
Bbatch=False
Else
Strsource=Wscript.Arguments.Item(0)
Strtarget=Wscript.Arguments.Item(1)
Bbatch=True
EndIf
Else
Wscript.Quit(1)
EndIf
EndFunction

FunctionBatchprocessing()
DimObjfolder
DimObjfile
DimLpos
DimStrfilename
Lpos=0
SetObjfolder=Objfso.Getfolder(Strsource)
ForEachObjfileInObjfolder.Files
Lpos=Instr(1,Mid(Objfile.Path,Len(Objfile.Path)-3,4),"Doc",1)
IfLpos>0Then
Strfilename=Objfso.Getbasename(Objfile.Path)
WordinterfaceObjfile.Path,Strfilename
EndIf
Next
EndFunction


FunctionSingleprocessing()
DimObjfile
SetObjfile=Objfso.Getfile(Strsource)
Strfilename=Objfso.Getbasename(Objfile.Path)
WordinterfaceObjfile.Path,Strfilename
EndFunction

FunctionWordinterface(Strfilename,Formattedfilename)
Objword.Documents.OpenStrfilename
SetObjdoc=Objword.Activedocument
Stop
setTheTitleOfTheDocumentToMatchTheFilename
Objdoc.Builtindocumentproperties(1)=Formattedfilename
1=WdpropertytitleInVba

Objdoc.SaveasStrtarget&""&Formattedfilename&".htm",8
objdoc.Saveas"C:Doc2Html"&Formattedfilename&".htm",8
OnErrorResumeNext
Objdoc.Close
EndFunction

stop
SetObjfso=Createobject("Scripting.FileSystemObject")
SetObjword=Createobject("Word.Application")
Objword.Visible=False
CallGetparams

IfBbatchThen
CallBatchprocessing
Else
CallSingleprocessing
EndIf

Objword.Quit
SetObjword=Nothing


3.本人写的将小写金额换成年夜写

<%
****国民币巨细写转换格局****
dimstr(9)
str(0)="零"
str(1)="壹"
str(2)="贰"
str(3)="叁"
str(4)="肆"
str(5)="伍"
str(6)="陆"
str(7)="柒"
str(8)="捌"
str(9)="玖"
aa=Request.form("source")
hh=formatnumber(aa,2,-1)
aa=replace(hh,".","")
aa=replace(aa,",","")
fori=1tolen(aa)
s=mid(aa,i,1)
mynum=str(s)
selectcase(len(aa)+1-i)
case1:k=mynum&"分"
case2:k=mynum&"角"
case3:k=mynum&"元"
case</p>优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

掌握asp的特性而且一定要知道为什么。

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

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

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。