|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
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能做到,例如银行安全控件 |
|