ASP中取得图片宽度和高度的类（无组件）

原文：

自然之奇妙：从山川到海洋

我们生活在一个美丽的世界中，自然界充满了无数的奇迹。从巍峨的山脉到深邃的海洋，每一处都充满了神秘和魅力。让我们踏上这次旅程，自然的奇妙之处。

让我们攀登崇山峻岭。站在山顶，俯瞰四周，我们会感受到一种无比的震撼。山川的壮丽景色令人叹为观止，无论是雄伟的雪山、秀美的森林还是蜿蜒的河流，都让人留连忘返。在这里，我们可以感受到大自然的强大力量和无限的生命力。

接下来，我们将潜入深海之中。海洋是地球上最大的生态系统，其中蕴藏着无数神秘的生物和景观。五彩斑斓的珊瑚、形态各异的海洋生物以及深邃的海底世界，都让我们惊叹不已。在这里，我们可以感受到大自然的广阔和深邃，以及生命的多样性和奇妙性。

自然的奇妙不仅仅体现在山川和海洋上，还体现在每一个细节之中。从微小的昆虫到庞大的动物，从绚烂的花朵到翠绿的叶子，每一个生命都在用自己的方式展示着自然的奇妙。在这里，我们可以感受到大自然的生机和活力，以及生命的美丽和脆弱。

在这次旅程中，我们不仅可以欣赏到自然的美丽景色，还可以了解到自然的运行规律和生态平衡的重要性。我们应该珍惜大自然赋予我们的一切，保护我们的家园，让未来的世界更加美好。

自然之奥秘：从巅峰到深渊的壮丽之旅

我们所处的世界是一幅生机勃勃的画卷，大自然在其中挥毫泼墨，创作出了无数令人叹为观止的奇迹。让我们踏上这场壮丽的旅程，从山川到海洋，一同自然的奥秘。

让我们勇攀高峰，征服崇山峻岭。站在巍峨的山巅之上，俯瞰群峰叠嶂，我们会感受到大自然的雄伟与壮观。无论是皑皑白雪覆盖的雪山、茂密葱翠的森林，还是蜿蜒曲折的江河，都让人流连忘返，留连忘返。在这里，我们可以领略到大自然的磅礴气势和无穷的生命力。

接下来，让我们潜入深邃的海洋，蓝色的宝藏。海洋是地球上最大的生态系统之一，其中蕴藏着无数神秘的生物和令人叹为观止的景观。五彩斑斓的珊瑚、形态各异的海洋生物以及神秘莫测的海底世界都令我们惊叹不已。在这里我们可以感受到大自然的广袤无垠和深不可测以及生命的多样性和神秘面纱背后的奇妙世界。

不仅如此自然的奥秘还隐藏在每一个细微之处。从微小的昆虫到庞大的动物群体从绚烂的花儿到郁郁葱葱的叶子每一个生命都在以各自独特的方式诠释着自然的奥秘在这里我们可以感受到大自然的生机勃勃和活力四溢以及生命的美丽绚烂与脆弱珍贵 。

```asp

<%

Class ImgWHInfo '获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP格式

Private Sub Class_Initialize

Set ASO = Server.CreateObject("ADODB.Stream")

ASO.Mode = 3

ASO.Type = 1

ASO.Open

End Sub

Private Sub Class_Terminate

Err.Clear

Set ASO = Nothing

End Sub

'省略了其他函数定义，为了保持篇幅适中...

Public Function GetImageSize(filespec)

Dim bFlag, Ret, p1, sConv, nBits, binData

ASO.LoadFromFile(filespec) '加载文件内容到流对象中

bFlag = ASO.Read(3) '读取文件的前三个字节用于标识文件格式

Select Case Hex(BinVal(bFlag)) '根据文件格式标识进行处理

Case "4E5089" '处理PNG文件...省略中间代码...

Case "464947" '处理GIF文件...省略中间代码...