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

Question

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

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

然后我动态渲染页面以显示各种图像。在页面中，我试图为图像构建一个 link，但我需要弄清楚图像属于哪个文件夹。例如，我正在使用以下命令从数据库中获取图像 ID

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

如果是 return“04232”，则属于的文件夹名称将是“04001-05000”。

有什么方法可以让我仅通过经典中的 imageid 找出文件夹名称 asp？

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"))

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

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

Classic ASP which folder does a file belong to

asp-classic