asp-classic - 如何使用经典ASP从文件夹中显示具有旋转效果的四张图像？-6ren

asp-classic - 如何使用经典ASP从文件夹中显示具有旋转效果的四张图像？

转载作者：行者123 更新时间：2023-12-04 06:03:54

24

4

我有一个用于存储图像的文件夹，现在我想创建一个幻灯片，例如 here .

我尝试了以下代码(但它在页面刷新时只显示单个图像):

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<html>
<head>
    <%
    Function RandomImage(strPath,strDefault)
        On Error Resume Next
        'response.Write("HI")
        Randomize Timer

        ' declare all variables
        Dim objFSO, objFolder, objFiles, objFile
        Dim strFiles, strImages, strPhysical, strFile

        ' this constant has the names of valid image file name
        ' extensions and can be modified for more image types
        Const strValid = ".gif.jpg.png"

        ' make sure we have a trailing slash in the path
        If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47)
        ' get the physical path of the folder
        strPhysical = Server.MapPath(strPath)

        ' get a File System Object
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

        ' create a folder object
        Set objFolder = objFSO.GetFolder(strPhysical)

        ' get the files collection
        Set objFiles = objFolder.Files

        ' enumerate the files collection looking for images
        For Each objFile in objFiles    
            strFile = LCase(objFile.Name)
            If Instr(strValid,Right(strFile,4)) Then
                ' add vaild images to a string of image names
                strFiles = strFiles & strFile & vbTab
            End If
        Next

        ' split the image names into an array
        strImages = Split(strFiles,vbTab)

        ' if we have an array...
        If UBound(strImages) > 1 Then
            ' get a random name
            RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages)))
        Else
            ' otherwise return the default
            RandomImage = strDefault
        End If
    End Function
    %>

    <%
    strImg = RandomImage("./retailers/","./retailers/A1-Supplements.jpg")

    strsplit = split(strImg,"/")  
    ' Response.Write(strsplit(2)) 
    '   Response.Write("rahul =" &strImg)
    ' d_desc    = Split(Request.Form("strImg"),"/")

    ' Name of text file to search:
    strFileName = "saveimagename.txt"

    ' Text to search for:
    strSearchText = strsplit(2)

    'response.Write(strSearchText)&"<br/>"
    'response.end()

    ' Create an instance of the the File System Object
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

    ' Open the file
    Set objTextFile = objFSO.OpenTextFile(Server.MapPath(strFileName))

    URLString = ""
    Do While Not objTextFile.AtEndOfStream
        strReadLineText = objTextFile.ReadLine
        'response.Write(strReadLineText & "<br>")

        If strReadLineText<>"" then
            If Instr(strReadLineText,",")>0 then
                strReadLineTextArr=split(strReadLineText,",")
                URLString=strReadLineTextArr(1)
            end if 
        end if  

        If  InStr(lcase(strReadLineText), lcase(strSearchText)) > 0 Then 
            Exit Do
        End If   
    Loop

    strSearchText=""

    ' Close and release file references
    objTextFile.Close

    Set objTextFile = Nothing
    Set objFSO = Nothing

    'Response.Write URLString
    'Response.End()
    %>
</head>

<body>
    <div align="center" style="width:800px; float:left;">
        <center>
            <table border="0" width="800px">
                <tr>
                    <td>
                    </td>
                    <td bgcolor="#000" align="center" style="border:none;">
                        <a href="<%=URLString%>" target="_blank"><img src="<%=strImg%>" onClick="<%=URLString%>" border="0"></a>
                    </td>
                    <td>
                    </td>
                </tr>
            </table>
        </center>
    </div>
</body>
</html>

请帮我。

最佳答案

尝试从服务器端实现这一点是非常困难的。您只能分配图像一次，更改它们的唯一方法是让您的用户刷新页面。
您需要做的是使用 JavaScript 在客户端创建幻灯片。幸运的是，有很多库可以帮助您。搜索幻灯片和 jquery，您应该能够找到您需要的内容。 Here's one such link .

关于asp-classic - 如何使用经典ASP从文件夹中显示具有旋转效果的四张图像？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/8602717/

24

4

0

文章推荐： php在循环内搜索数组

文章推荐： matlab - 如何将矩阵的非零项的索引转换为字符串

文章推荐： scala - 迭代过程的流与尾递归

文章推荐： PHP:$_SESSION 寄存器

常用SQL语句优化技巧总结【经典】
本文实例总结了常用SQL语句优化技巧。分享给大家供大家参考，具体如下：除了建立索引之外，保持良好的SQL语句编写习惯将会降低SQL性能问题发生。 ①通过变量的方式来设置参数好：
详解CSS代码重构与优化之路(经典)
写CSS的同学们往往会体会到，随着项目规模的增加，项目中的CSS代码也会越来越多，如果没有及时对CSS代码进行维护，CSS代码不断会越来越多。CSS代码交错复杂，像一张庞大的蜘蛛网分布在网站的各个位
python - 背包问题(经典)
所以我必须解决类的背包问题。到目前为止，我想出了以下内容。我的比较器是确定两个主题中哪一个是更好选择的函数(通过查看相应的(值，工作)元组)。我决定迭代工作量小于 maxWork 的可能主题，并且为
一文让你不再害怕指针之C指针详解(经典,非常详细)
前言:复杂类型说明要了解指针,多多少少会出现一些比较复杂的类型,所以我先介绍一下如何完全理解一个复杂类型,要理解复杂类型其实很简单,一个类型里会出现很多运算符,他们也像普通的表达式一样,有优先级
sqlserver 快速生成汉字的首拼字母的函数(经典)
代码如下：复制代码代码如下: USE [tempdb] GO /****** Object: UserDefinedFunction [dbo].[fun
Linux系统的服务器巡检怎么做？一个服务器的快速巡检思路，经典
最近收到一个工作要求，让我完成一个每天一次的Linux服务器巡检工作(服务器的版本为红帽6.4)，不可以使用监控软件来操作。在这里，把我的巡检过程和巡检脚本放送给大家做一参考。首先，巡检内容
object - 经典 ASP 对象
可以在 Classic ASP 中动态创建“空”对象并创建对象属性吗？以这个 JavaScript 示例为例: var sample = new Object(); sample.prop = "O
iis - 经典 ASP - 请求对象为空
我正在向旧的经典 asp 站点添加功能，但遇到了一个有趣的问题。页面上的以下行导致有用的错误“需要对象:''” strServerName = Request.ServerVariables("ser
sql - 经典 ASP - 服务器时间与本地时间
我有一个经典的 ASP 应用程序，我正在处理日期截止。我的服务器位于中部时间，但我在东部时间。发生的情况是我的应用程序认为它早了一个小时，而我的截止时间晚了一个小时。我敢肯定，如果用户在太平洋时间，他
arrays - 数组范围错误 - 经典 ASP
我是经典 ASP 的初学者。需要拆分一个由逗号分隔的许多电子邮件组成的字符串，并使用稍后生成的附加代码将结果插入(逐个电子邮件)到表格中。每条记录都应该有一个电子邮件地址。问题是我陷入了数组范围错误。
vbscript - 选择有条件的案例(经典 ASP)
这个问题已经有答案了: one condition, multiple events (2 个回答) 已关闭 6 年前。如何用更小的语句替换 1,2,3..。我尝试将 1 放入 10，但显示错误。
javascript - ExtJS 经典 - 将图表插入工具提示
我是 ExtJS 的新手，所以我不知道是否可能。 Google 只回答如何为图表制作工具提示，所以... 我需要制作一个带有工具提示的网格，当用户将鼠标放在单元格上时将显示该工具提示。在该工具提示中，
经典 ASP 中的 VBScript
我正在使用一个非常奇怪的 VB 版本...它不需要我告诉它什么是什么，它想自己弄清楚。在 C# 中，我可以轻松地对数组进行硬编码...在 VB 中则不然。我想在调用函数时创建一个硬编码数组...但
vbscript - 经典 Asp 中的参数化查询
我的数据库访问代码如下: set recordset = Server.CReateObject("ADODB.Recordset") set cmd1 = Server.CreateObject(
javascript - 经典 ASP 中带有按钮的清除文本框
我有 html 按钮和文本框的代码:文本框是我输入文本的地方，以便我可以在表格上进行一些更改。 'textbox " /> 'button Clear 我现在需要做的是单击“清除”按
javascript - 正在提交空白表单经典 ASP
我有一个表单，提交后会通过电子邮件发送。该表单使用 JavaScript 进行验证。经典 ASP 处理表单，即获取输入的数据、创建然后发送电子邮件。有报道称正在提交空白表格。仅发送标题和 Logo 。
javascript - 经典 ASP 在页面之间传递值
加载页面 A.asp 默认情况下正在执行，从那里开始执行电子邮件的情况，如果是电子邮件，我们将调用页面 B。我想在控件被执行时执行相同的电子邮件情况从页面 B 转移到页面 A。请帮助我。 Page A
经典 ASP 中的 session
我正在使用经典 ASP 开发一个项目，例如，我想添加一些用户作为临时列表，当我提交表单时，这些数据将保存到数据库中。我知道如何在 asp.net 中使用它，但不知道如何在经典 asp 中使用它。例
sql - 经典 ASP while 循环显示错误
我有一个带有简单 html 表的经典 ASP 页面，我想根据从数据库中提取的未知数量的记录循环表行，但是，当我使用 do/while 循环循环记录时，我收到一条错误消息，指出 Either BOF o
date - 经典 Asp 日期
嘿，一直在寻找一段时间，但我似乎找不到任何有关如何在经典 asp 中处理日期的信息。现在，我需要一种方法来计算今年过去的天数。我正在考虑一个简单的函数，它将获取当前日期，然后使用 (day = 1,

首页

博学

6Ren·AI

商城

asp-classic - 如何使用经典ASP从文件夹中显示具有旋转效果的四张图像？