|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般缩略图|无组件如今我们先计划一个ShowImg.asp页面用来显现缩略图及相干信息。详细计划以下: 图片:
图片格局:
图片尺寸:
图片巨细:
点击次数:
上面,我们猎取图片的相对路径。代码以下:
<%
/////猎取ShowImg.asp的相对路径/////
DimcurFile
curFile=Server.mappath(Request.servervariables("PATH_INFO"))
Dimcurfilename,filename
/////图片绝对路径(存于数据库中)
cufilename=rs("ImgURL")
/////由于ShowImg.asp与images在统一目次,以是我们用instrrev猎取images的路径/////
filename=left(curFile,instrrev(curFile,""))&cufilename
/////创建GPS类实体/////
DimGetPicSize
SetGetPicSize=newGPS
Setfs=Server.CreateObject("Scripting.FileSystemObject")
/////猎取图片范例/////
DimPicSuffixName
PicSuffixName=fs.GetExtensionName(filename)
DimPD//PictureDimension
DimPWidth,PHeight
SelectCasePicSuffixName
Case"gif","bmp","jpg","png":
/////挪用GPS通用类中的GetImageSize函数猎取图片尺寸/////
PD=GetPicSize.GetImageSize(filename)
PWidth=PD(1)//猎取图片宽度
PHeight=PD(2)//猎取图片高度
Case"swf"
PD=GetPicSize.GetImageSize(filename)
PWidth=PD(1)//猎取Flash宽度
PHeight=PD(2)//猎取Flash高度
CaseElse
EndSelect
Setfs=Nothing
SetGetPicSize=Nothing
%>
将下面的代码复制到的下面就OK了!
固然,有人会说,猎取路径纷歧定要用PATH_INFO,间接用server.mappath()不就能够了嘛,呵呵,萝卜青菜各有所爱,次要是我用PATH_INFO能够完成FSO的一些功效而用server.mappath()没有弄定,以是一向利用这个。
</p>asp可以轻松地实现对页面内容的动态控制,根据不同的浏览者,显示不同的页面内容。而浏览者一点觉察不出来,就像为他专门制作的页面一样。使用各种各样的组件,asp可以完成无比强大的功能。 |
|