快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

ASP无组件生成缩略图 (3)

3.定义缩略图尺寸

  这部分代码就是仁者见仁,智者见智了。首先,我们需要规定缩略图显示尺寸范围,譬如:300X260,代码可以这样写:
<%
Dim PXWidth,PXHeight
Dim Pp \\\'//Proportion
If PWidth=0 Or PWidth="" Then
PXWidth=0
PXHeight=0
Else
Pp=FormatNumber(PWidth/PHeight,2) \\\'//长宽比
End If
If PWidth>=PHeight Then
If PWidth>=300 Then
PXWidth=300
PXHeight=FormatNumber(300/Pp,0)
Else
PXWidth=PWidth
PXHeight=PHeight
End If
Else
If PHeight>=260 Then
PXHeight=260
PXWidth=FormatNumber(260*Pp,0)
Else
PXWidth=PWidth
PXHeight=PHeight
End If
End If
%>

  将上面的代码紧接第二步写下即可。调用时代码如下:
<img src=<%=curfilename%> border="0" width=<%=PXWidth%>
height=<%=PXHeight%>>

  至于图片格式可以用得到,图片尺寸可以写成
<%
response.write PXWidth&"X"&PXHeight
%>

  图片大小可以用FSO.GetFileSize(filename)来实现,而点击次数可以简朴地用SQL语句实现,详细编码就不再累述了。

  这样,一个无组件生成缩略图程序就写好了,可能有点拿来主义,不过只要大家能将方式把握相信还是有很大提高的。
返回类别: 教程
上一教程: 十天学会ASP之第五天
下一教程: 用户注册及跟踪代码(三)

您可以阅读与"ASP无组件生成缩略图 (3)"相关的教程:
· ASP无组件生成缩略图
· ASP无组件生成缩略图(2)
· ASP无组件生成缩略图(1)
· 我的ASP之旅?无组件生成缩略图
· 用CANVAS做的ASP无组件生成图片验证码
    微笑服务 优质保证 索取样品