 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
下面，我们获取图片的绝对路径。代码如下： <% \\\'/////获取ShowImg.asp的绝对路径///// Dim curFile curFile=Server.mappath(Request.servervariables("PATH_INFO")) Dim curfilename,filename \\\'/////图片相对路径（存于数据库中） cufilename=rs("ImgURL") \\\'/////因为ShowImg.asp与images在同一目录，所以我们用instrrev获取images的路径///// filename=left(curFile,instrrev(curFile,""))&cufilename \\\'/////建立GPS类实体///// Dim GetPicSize Set GetPicSize=new GPS Set fs=Server.CreateObject("Scripting.FileSystemObject") \\\'/////获取图片类型///// Dim PicSuffixName PicSuffixName=fs.GetExtensionName(filename) Dim PD \\\'//Picture Dimension Dim PWidth,PHeight Select Case PicSuffixName 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高度 Case Else End Select Set fs=Nothing Set GetPicSize=Nothing %> 将上面的代码复制到<body>的上面就OK了！ 当然，有人会说，获取路径不一定要用PATH_INFO，直接用server.mappath()不就可以了嘛，呵呵，萝卜青菜各有所爱，主要是我用PATH_INFO可以实现FSO的一些功能而用server.mappath()没有搞定，所以一直使用这个。 返回类别: 教程 上一教程: 用ASP实现在特定的时段或对特定访问者开放 下一教程: 用文件写入建立简朴的网上调查 您可以阅读与"ASP无组件生成缩略图(2)"相关的教程: · 我的ASP之旅?无组件生成缩略图 · ASP无组件生成缩略图 (3) · ASP无组件生成缩略图(1) · ASP无组件生成缩略图 · 用CANVAS做的ASP无组件生成图片验证码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
