Asp classic 标题：在经典asp中动态读取文本文件中的内容

我已经完成了将我在文本框中输入的值写入文本文件的代码。现在我想读取这些值并将其分配给一个变量

存储在文本文件中的值如下所示：

abc.jpg,www.google.com
123.jpg, www.yahoo.com

我想读取单独变量中的图像名称和单独变量中的链接。因为我想把它们分配给图像旋转器代码。请帮忙

我使用以下代码读取文本文件中的链接：现在我想从文本文件中读取图像名称

Do While Not objTextFile.AtEndOfStream     
    intLineNumber = intLineNumber + 1
    strReadLineText = objTextFile.ReadLine

    'response.Write("Hi")

    Postion1= InStr(strReadLineText, strSearchText)
    Postion2= Postion1 + len(strSearchText)    
    URLString=Mid(strReadLineText,Postion2+1,len(strReadLineText))       
    'URLString=Left(strReadLineText,strSearchText)

    If strSearchText <> "" And InStr(strReadLineText, strSearchText) > 0 Then

        strReadLineText = Replace(strReadLineText, _       
        strSearchText, _
        "<span style=""background-color:yellow;"">" & strSearchText & "</span>")

        strLineNumbers = strLineNumbers & intLineNumber & ", "
Exit Do

Do While Not objTextFile.AtEndOfStream
intLineNumber=intLineNumber+1
strReadLineText=objTextFile.ReadLine
“回复。写下（“你好”）
position1=InStr（streadlinetext，strearchtext）
position2=position1+len（strearchtext）
URLString=Mid（strReadLineText，position2+1，len（strReadLineText））
'URLString=Left（strReadLineText，strearchtext）
如果strearchtext“”和InStr（streadlinetext，strearchtext）>0，则
strReadLineText=替换（strReadLineText，\u
strearchtext_
“”&strSearchText&“”）
strLineNumbers=strLineNumbers&intLineNumber&“
退出Do

您可以使用一个

拆分（

），它将在每行返回一个值数组，而不是使用

InStr

arrVals = Split(strReadLineText, ",")

strImageName = Trim(arrVals(0))
URLString = Trim(arrVals(1))