经典ASP文件属于哪个文件夹

Question

我有一个文件夹结构，按千个图像存储图像，例如以下文件夹名称；

00001-01000
01001-02000
02001-03000
03001-04000
04001-05000
05001-06000
06001-07000

然后，我将动态渲染页面以显示各种图像。在页面中，我试图建立到图像的链接，但是我需要弄清楚图像属于哪个文件夹。例如，我正在使用以下代码从数据库中获取图像ID

<%= rs.Fields("imageid") %>

如果要返回“ 04232”，则该文件夹名称将为“ 04001-05000”。

有什么方法可以通过仅在经典asp中使用imageid来弄清楚文件夹的名称吗？

Answer 1

为此，您需要两个小的方法。首先，填充字符串：

Function PadLeft(str, padChar, desiredLength)
    Dim result
    result = CStr(str)
    Do Until Len(result)>=desiredLength
        result = padChar & result
    Loop
    PadLeft = result
End Function

查找文件夹名称的方法：

Function ExtractFolderName(imageFileName)
    Dim numericValue, rangeStart, rangeEnd
    numericValue = CInt(imageFileName)
    rangeStart = (Fix((numericValue / 1000)) * 1000) + 1
    rangeEnd = (Fix((numericValue / 1000)) + 1) * 1000
    ExtractFolderName = PadLeft(rangeStart, "0", 5) & "-" & PadLeft(rangeEnd, "0", 5)
End Function

要使用它：

folderName = ExtractFolderName(rs("imageid"))

基本上，该方法对名称执行一些数学运算以找到所需的范围。请注意，如果数据库中的值为非数值，这将引发错误。