如何阅读经典的ASP文本文件

我上传image.While上传图像我保存图像名称和该iage链接在一个文本文件。这样， abc.jpeg，http：//google.com如何阅读经典的ASP文本文件

现在我想显示所有的图像与相应的链接使用经典的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

其显示所有图像，但所有图片链接same.its直接读取文本文件，从最后一个环节....什么是我的代码的问题？

来源

2011-10-08 user985225

你可以尝试这样的事情 -

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

来源

2011-10-08 09:49:12 ipr101

谢谢，它适用于我。 – chenio

你的问题是你分配URLString的方式。它以“”开始，并且在您读取文件中的每一行时，会覆盖它的现有值。该文件的最后一行将是最后一次覆盖，所以这将是循环结束时URLString中的值。代码的一个例子是：

output = "" 
path = server.mappath("../admin/Links.txt") 
set fs = server.createobject("Scripting.FileSystemObject") 
set f = fs.OpenTextFile(path, 1, true) '1 = for reading 
do while not f.AtEndOfStream 
    text = trim(f.ReadLine) 
    if text <> "" then 
     if instr(text,",") > 0 then 
      arry = split(text,",") 
      ' assuming line = filename.jpg, url.com 
      output = output & "<a href="""&trim(arry(1))&"""><img src="""&trim(arry(0))&""" /></a><br />" 
     end if 
    end if 
loop 
f.close 
set f = nothing 
set fs = nothing

这消除了周围的任何文字多余的空格，只是写一系列图像的列表。其中一个缺陷是，如果文件名中有一个逗号，就会中断。

来源

2011-10-09 04:10:51

如何阅读经典的ASP文本文件

回答

相关问题