Asp classic 如何使用<；a href></a>；在经典asp？

我有三列—第（0）列、第（1）列、第（2）列，我希望在此行的以下代码中为这三列添加标记：“strNewContents=strNewContents&&”“columns（0）&”“columns（1）&”“columns（2）&”“vbcrlf:”

实际代码：

Dim strFileName1
Dim objFSO, objTextFile
Dim intLineNumber, strNewContents, strReadLineText,strLineNumbers
dim data, columns

strFileName1 = "saveimagename.txt"

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Server.MapPath(strFileName1))

intLineNumber = 0
strLineNumbers = ""

data = split(objTextFile.readall(), vbcrlf)

for intLineNumber = 0 to ubound(data)
    columns = split(data(intLineNumber), ",", 3)
    if (ubound(columns) = 2) then
       ''//strNewContents =  "<td class='red'>" & columns(0) & "</td><td class='blue'>" & columns(2) & "</td>" 
       strNewContents = strNewContents & "<tr><td>" & columns(0) & "</td><td>" & columns(1) & "</td><td>" & columns(2) & "</td></tr>" & vbcrlf
    end if
next

Dim strFileName1
Dim objFSO，objTextFile
Dim intLineNumber、strnewContent、strReadLineText、strlineNumber
dim数据、列
strFileName1=“saveimagename.txt”
常数ForReading=1
写入常数=2
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objTextFile=objFSO.OpenTextFile（Server.MapPath（strFileName1））
intLineNumber=0
strLineNumbers=“”
数据=拆分（objTextFile.readall（），vbcrlf）
对于intLineNumber=0到ubound（数据）
列=拆分（数据（intLineNumber），“，”，3）
如果（ubound（columns）=2），则
''//strNewContents=“”&第（0）列和第（2）列和
strNewContents=strNewContents&“列（0）&”“列（1）&”“列（2）&”“和vbcrlf”
如果结束
下一个

您已经在使用

响应。请使用字符串编写

你只需：

Response.Write”“
这是我见过的最草率的代码。你不使用IDE吗？可以自动更正大写错误的内容？