%>
原文件名：<%=sOriginalPath%><br/>
缩略图文件名：<%=sSmallPath%><br/>
原图片：<img src='<%=sOriginalPath%>' border=0><br/><br/>
缩略图：<img src='<%=sSmallPath%>' border=0>

<%
'================================================================
'Author：laifangsong QQ:25313644
'功能：按照指定图片生成缩略图
'注意：以下提到的“路径”都是值相对于调用本函数的文件的相对路径
'参数：
'    s_OriginalPath:        原图片路径 例:images/image1.gif
'    s_BuildBasePath:    生成图片的基路径,不论是否以“/”结尾均可 例:images或images/
'    n_MaxWidth:            生成图片最大宽度
'                        如果在前台显示的缩略图是 100*100,这里 n_MaxWidth=100,n_MaxHeight=100.
'    n_MaxHeight:        生成图片最大高度
'返回值：
'    返回生成后的缩略图的路径
'错误处理：
'    如果函数执行过程中出现错误,将返回错误代码,错误代码以 “Error”开头
'        Error_01:创建AspJpeg组件失败,没有正确安装注册该组件
'        Error_02:原图片不存在,检查s_OriginalPath参数传入值
'        Error_03:缩略图存盘失败.可能原因:缩略图保存基地址不存在,检查s_OriginalPath参数传入值;对目录没有写权限;磁盘空间不足
'        Error_Other:未知错误
'调用例子:
'    Dim sSmallPath '缩略图路径
'    sSmallPath = BuildSmallPic("images/image1.gif", "images", 100, 100)   
'================================================================
Function BuildSmallPic(s_OriginalPath, s_BuildBasePath, n_MaxWidth, n_MaxHeight)
    Err.Clear
    On Error Resume Next
   
    '检查组件是否已经注册
    Dim AspJpeg
    Set AspJpeg = Server.Createobject("Persits.Jpeg")
    If Err.Number <> 0 Then
        Err.Clear
        BuildSmallPic = "Error_01"
        Exit Function
    End If

(编辑:aniston)