asp-classic – 如何在经典的asp中读取文本文件

发布时间：2020-12-15 23:59:20 所属栏目：asp.Net 来源：网络整理

导读：我正在上传图片.上传图片时,我将图片名称和该文件的链接保存在一个文本文件中. 喜欢这个, abc.jpeg,HTTP：//google.com 现在我想使用经典的asp显示所有带有相应链接的图像. 我该怎么做？请帮忙. 我用过这个asp代码： %For Each FileName in fold.FilesDim F

我正在上传图片.上传图片时,我将图片名称和该文件的链接保存在一个文本文件中.
喜欢这个,
abc.jpeg,HTTP：//google.com

现在我想使用经典的asp显示所有带有相应链接的图像.

我该怎么做？

请帮忙.

我用过这个asp代码：

<%
For Each FileName in fold.Files
Dim Fname
Dim strFileName
Dim objFSO
Dim objTextFile
Dim URLString
Dim strReadLineText

Fname= mid(FileName.Path,instrrev(FileName.Path,"")+1)
strFileName = "../admin/Links.txt"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

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,")
            response.Write(strReadLineTextArr(0))
            URLString=strReadLineTextArr(1)
        end if 
    end if
Loop

' Close and release file references

objTextFile.Close

Set objTextFile = Nothing

Set objFSO = Nothing

它显示所有图像,但对于所有图像链接是相同的.直接从文本文件中读取最后一个链接….我的代码有什么问题？

解决方法

你可以试试这样的东西 –

Dim lineData
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
set fs = fso.OpenTextFile(Server.MapPath("imagedata.txt"),1,true) 
Do Until fs.AtEndOfStream 
    lineData = fs.ReadLine
    'do some parsing on lineData to get image data
    'output parsed data to screen
    Response.Write lineData
Loop 

fs.close: set fs = nothing

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!