Asp无组件生成缩略图

来源：asp社区 作者：心晴 出处：巧巧读书 2005-10-31 进入讨论组

• 关 键 词：
• server
• google
• flash
• asp
• rip

上一页 1 2 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%>>

　　至于图片格式可以用<%=PicSuffixName%>得到，图片尺寸可以写成

<%
response.write PXWidth&"X"&PXHeight
%>

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

　　这样，一个无组件生成缩略图程序就写好了，可能有点拿来主义，不过只要大家能将方法掌握相信还是有很大提高的。
查看 http://www.qqread.com/asp/n421270000.html进入讨论组讨论。

上一页 1 2 3 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：ASP利用Google实现在线翻译功能

较新的文章：由HTTP 500 Internal server error想到的...