ClassicASP 确实可以用 WIA来做缩略图，不用第三方插件。

经典 ASP 确实可以用 WIA（Windows Image Acquisition） 来做缩略图，不用额外组件。

1.只支持常见图片格式
支持：
jpg
png
bmp
gif(静态）

不支持：
webp ❌
svg ❌

2.WIA 有时会对中文路径不稳定
建议：上传路径用英文或统一转 GUID 文件名

3.权限问题（常见）
IIS 账户必须有写权限：
/upload/

否则：SaveFile 会失败

4.质量问题
WIA压缩质量一般，不能调质量参数。如果你对画质要求高用第三方组件

1. <%
   
2. Function MakeThumb(srcPath, destPath, maxWidth, maxHeight)
   
3.     On Error Resume Next
   
4. 
   
5.     Dim img, ip
   
6. 
   
7.     Set img = CreateObject("WIA.ImageFile")
   
8.     img.LoadFile srcPath
   
9. 
   
10.     ' 原始尺寸
    
11.     Dim w, h, scale
    
12.     w = img.Width
    
13.     h = img.Height
    
14. 
    
15.     ' 计算缩放比例（等比）
    
16.     scale = 1
    
17.     If w > maxWidth Or h > maxHeight Then
    
18.         If w / maxWidth > h / maxHeight Then
    
19.             scale = maxWidth / w
    
20.         Else
    
21.             scale = maxHeight / h
    
22.         End If
    
23.     End If
    
24. 
    
25.     Dim newW, newH
    
26.     newW = Int(w * scale)
    
27.     newH = Int(h * scale)
    
28. 
    
29.     Set ip = CreateObject("WIA.ImageProcess")
    
30. 
    
31.     ' 添加缩放滤镜
    
32.     ip.Filters.Add ip.FilterInfos("Scale").FilterID
    
33.     ip.Filters(1).Properties("MaximumWidth") = newW
    
34.     ip.Filters(1).Properties("MaximumHeight") = newH
    
35.     ip.Filters(1).Properties("PreserveAspectRatio") = True
    
36. 
    
37.     ' 执行处理
    
38.     Set img = ip.Apply(img)
    
39. 
    
40.     ' 保存
    
41.     img.SaveFile destPath
    
42. 
    
43.     If Err.Number <> 0 Then
    
44.         MakeThumb = False
    
45.     Else
    
46.         MakeThumb = True
    
47.     End If
    
48. 
    
49.     Set img = Nothing
    
50.     Set ip = Nothing
    
51. End Function
    
52. 
    
53. Dim src, dest, ok
    
54. 
    
55. src  = Server.MapPath("/upload/4.jpg")
    
56. dest = Server.MapPath("/upload/thumb/4_small.jpg")
    
57. 
    
58. ok = MakeThumb(src, dest, 300, 300)
    
59. 
    
60. If ok Then
    
61.     Response.Write "生成成功"
    
62. Else
    
63.     Response.Write "生成失败"
    
64. End If
    
65. %>

复制代码

效果如下图：